Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

*** empty log message ***

  • Loading branch information...
commit 39508c1b3deb0547fde540333e34049f754ed994 1 parent 95a67fe
Lars Ingebrigtsen authored August 09, 1998
34  lisp/ChangeLog
... ...
@@ -1,3 +1,37 @@
  1
+Sun Aug  9 15:46:16 1998  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
  2
+
  3
+	* gnus.el: Gnus v5.6.30 is released.
  4
+
  5
+1998-08-09 10:48:31  Lars Magne Ingebrigtsen  <larsi@gnus.org>
  6
+
  7
+	* message.el (message-cite-original-without-signature): Peel off
  8
+	blank lines.
  9
+
  10
+	* gnus-art.el (gnus-article-maybe-highlight): Doc fix.
  11
+
  12
+	* gnus-sum.el (gnus-data-enter-list): Threw away all new list data
  13
+	at the beginning of the buffer.
  14
+
  15
+1998-08-07 01:41:29  Gareth Jones  <gdj1@gdjones.demon.co.uk>
  16
+
  17
+	* gnus-score.el (gnus-summary-increase-score): Don't downcase
  18
+	before lookin in char-to-header.
  19
+
  20
+1998-08-07 01:33:22  Lars Magne Ingebrigtsen  <larsi@gnus.org>
  21
+
  22
+	* gnus.el (gnus-predefined-server-alist): Too many parentheses.
  23
+
  24
+1998-08-06 11:20:08  Lars Magne Ingebrigtsen  <larsi@gnus.org>
  25
+
  26
+	* gnus.el (gnus-continuum-version): Include quassia.
  27
+
  28
+	* gnus-sum.el (gnus-data-enter-list): Check before entering list. 
  29
+
  30
+1998-08-06 11:13:56  Francois Felix Ingrand  <felix@dial.oleane.com>
  31
+
  32
+	* gnus-salt.el (gnus-generate-vertical-tree): Don't go too far to
  33
+	the left.
  34
+
1 35
 Thu Aug  6 07:58:17 1998  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
2 36
 
3 37
 	* gnus.el: Gnus v5.6.29 is released.
2  lisp/gnus-art.el
@@ -2404,7 +2404,7 @@ If given a prefix, show the hidden text instead."
2404 2404
   (gnus-article-hide-signature arg))
2405 2405
 
2406 2406
 (defun gnus-article-maybe-highlight ()
2407  
-  "Do some article highlighting if `article-visual' is non-nil."
  2407
+  "Do some article highlighting if article highlighting is requested."
2408 2408
   (when (gnus-visual-p 'article-highlight 'highlight)
2409 2409
     (gnus-article-highlight-some)))
2410 2410
 
2  lisp/gnus-group.el
@@ -1786,6 +1786,8 @@ ADDRESS."
1786 1786
     (gnus-read-group "Group name: ")
1787 1787
     (gnus-read-method "From method: ")))
1788 1788
 
  1789
+  (when (stringp method)
  1790
+    (setq method (gnus-server-to-method method)))
1789 1791
   (let* ((meth (when (and method
1790 1792
 			  (not (gnus-server-equal method gnus-select-method)))
1791 1793
 		 (if address (list (intern method) address)
3  lisp/gnus-salt.el
@@ -763,7 +763,8 @@ Two predefined functions are available:
763 763
 	  (setq beg (point))
764 764
 	  (forward-char -1)
765 765
 	  ;; Draw "-" lines leftwards.
766  
-	  (while (= (char-after (1- (point))) ? )
  766
+	  (while (and (> (point) 1)
  767
+		      (= (char-after (1- (point))) ? ))
767 768
 	    (delete-char -1)
768 769
 	    (insert (car gnus-tree-parent-child-edges))
769 770
 	    (forward-char -1))
2  lisp/gnus-score.el
@@ -550,7 +550,7 @@ used as score."
550 550
 	      (gnus-score-insert-help "Match on header" char-to-header 1)))
551 551
 
552 552
 	  (gnus-score-kill-help-buffer)
553  
-	  (unless (setq entry (assq (downcase hchar) char-to-header))
  553
+	  (unless (setq entry (assq hchar char-to-header))
554 554
 	    (if mimic (error "%c %c" prefix hchar)
555 555
 	      (error "Illegal header type")))
556 556
 
4  lisp/gnus-soup.el
@@ -205,7 +205,9 @@ for matching on group names.
205 205
 For instance, if you want to brew on all the nnml groups, as well as
206 206
 groups with \"emacs\" in the name, you could say something like:
207 207
 
208  
-$ emacs -batch -f gnus-batch-brew-soup ^nnml \".*emacs.*\""
  208
+$ emacs -batch -f gnus-batch-brew-soup ^nnml \".*emacs.*\"
  209
+
  210
+Note -- this function hasn't been implemented yet."
209 211
   (interactive)
210 212
   nil)
211 213
 
42  lisp/gnus-sum.el
@@ -1976,21 +1976,26 @@ The following commands are available:
1976 1976
   (when list
1977 1977
     (let ((data (and after-article (gnus-data-find-list after-article)))
1978 1978
 	  (ilist list))
1979  
-      (or data (not after-article) (error "No such article: %d" after-article))
1980  
-      ;; Find the last element in the list to be spliced into the main
1981  
-      ;; list.
1982  
-      (while (cdr list)
1983  
-	(setq list (cdr list)))
1984  
-      (if (not data)
1985  
-	  (progn
1986  
-	    (setcdr list gnus-newsgroup-data)
1987  
-	    (setq gnus-newsgroup-data ilist)
  1979
+      (if (not (or data
  1980
+		   after-article))
  1981
+	  (let ((odata gnus-newsgroup-data))
  1982
+	    (setq gnus-newsgroup-data (nconc list gnus-newsgroup-data))
1988 1983
 	    (when offset
1989  
-	      (gnus-data-update-list (cdr list) offset)))
1990  
-	(setcdr list (cdr data))
1991  
-	(setcdr data ilist)
1992  
-	(when offset
1993  
-	  (gnus-data-update-list (cdr list) offset)))
  1984
+	      (gnus-data-update-list odata offset)))
  1985
+	;; Find the last element in the list to be spliced into the main
  1986
+	;; list.
  1987
+	(while (cdr list)
  1988
+	  (setq list (cdr list)))
  1989
+	(if (not data)
  1990
+	    (progn
  1991
+	      (setcdr list gnus-newsgroup-data)
  1992
+	      (setq gnus-newsgroup-data ilist)
  1993
+	      (when offset
  1994
+		(gnus-data-update-list (cdr list) offset)))
  1995
+	  (setcdr list (cdr data))
  1996
+	  (setcdr data ilist)
  1997
+	  (when offset
  1998
+	    (gnus-data-update-list (cdr list) offset))))
1994 1999
       (setq gnus-newsgroup-data-reverse nil))))
1995 2000
 
1996 2001
 (defun gnus-data-remove (article &optional offset)
@@ -3250,10 +3255,11 @@ If LINE, insert the rebuilt thread starting on line LINE."
3250 3255
       ;;!!! then we want to insert at the beginning of the buffer.
3251 3256
       ;;!!! That happens to be true with Gnus now, but that may
3252 3257
       ;;!!! change in the future.  Perhaps.
3253  
-      (gnus-data-enter-list (if line nil current) data (- (point) old-pos))
3254  
-      (setq gnus-newsgroup-threads (nconc threads gnus-newsgroup-threads))
3255  
-      (when line
3256  
-	(gnus-data-compute-positions)))))
  3258
+      (gnus-data-enter-list
  3259
+       (if line nil current) data (- (point) old-pos))
  3260
+      (setq gnus-newsgroup-threads
  3261
+	    (nconc threads gnus-newsgroup-threads))
  3262
+      (gnus-data-compute-positions))))
3257 3263
 
3258 3264
 (defun gnus-number-to-header (number)
3259 3265
   "Return the header for article NUMBER."
3  lisp/gnus-uu.el
@@ -1291,7 +1291,8 @@ didn't work, and overwrite existing files.  Otherwise, ask each time."
1291 1291
 	   (file-exists-p result-file)
1292 1292
 	   (not gnus-uu-be-dangerous)
1293 1293
 	   (or (eq gnus-uu-be-dangerous t)
1294  
-	       (gnus-y-or-n-p (format "Delete incomplete file %s? " result-file)))
  1294
+	       (gnus-y-or-n-p
  1295
+		(format "Delete incomplete file %s? " result-file)))
1295 1296
 	   (delete-file result-file))
1296 1297
 
1297 1298
       ;; If this was a file of the wrong sort, then
36  lisp/gnus.el
@@ -250,7 +250,7 @@ is restarted, and sometimes reloaded."
250 250
   :link '(custom-manual "(gnus)Exiting Gnus")
251 251
   :group 'gnus)
252 252
 
253  
-(defconst gnus-version-number "5.6.29"
  253
+(defconst gnus-version-number "5.6.30"
254 254
   "Version number for this version of Gnus.")
255 255
 
256 256
 (defconst gnus-version (format "Gnus v%s" gnus-version-number)
@@ -1420,11 +1420,11 @@ want."
1420 1420
 
1421 1421
 (defvar gnus-predefined-server-alist
1422 1422
   `(("cache"
1423  
-     (nnspool "cache"
1424  
-	      (nnspool-spool-directory gnus-cache-directory)
1425  
-	      (nnspool-nov-directory gnus-cache-directory)
1426  
-	      (nnspool-active-file
1427  
-	       (nnheader-concat gnus-cache-directory "active")))))
  1423
+     nnspool "cache"
  1424
+     (nnspool-spool-directory gnus-cache-directory)
  1425
+     (nnspool-nov-directory gnus-cache-directory)
  1426
+     (nnspool-active-file
  1427
+      (nnheader-concat gnus-cache-directory "active"))))
1428 1428
   "List of predefined (convenience) servers.")
1429 1429
 
1430 1430
 (defvar gnus-topic-indentation "") ;; Obsolete variable.
@@ -1976,13 +1976,15 @@ If ARG, insert string at point."
1976 1976
   "Return VERSION as a floating point number."
1977 1977
   (when (or (string-match "^\\([^ ]+\\)? ?Gnus v?\\([0-9.]+\\)$" version)
1978 1978
 	    (string-match "^\\(.?\\)gnus-\\([0-9.]+\\)$" version))
1979  
-    (let* ((alpha (and (match-beginning 1) (match-string 1 version)))
1980  
-	   (number (match-string 2 version))
1981  
-	   major minor least)
1982  
-      (string-match "\\([0-9]\\)\\.\\([0-9]+\\)\\.?\\([0-9]+\\)?" number)
1983  
-      (setq major (string-to-number (match-string 1 number)))
1984  
-      (setq minor (string-to-number (match-string 2 number)))
1985  
-      (setq least (if (match-beginning 3)
  1979
+    (let ((alpha (and (match-beginning 1) (match-string 1 version)))
  1980
+	  (number (match-string 2 version))
  1981
+	  major minor least)
  1982
+      (unless (string-match
  1983
+	       "\\([0-9]\\)\\.\\([0-9]+\\)\\.?\\([0-9]+\\)?" number)
  1984
+	(error "Invalid version string: %s" version))
  1985
+      (setq major (string-to-number (match-string 1 number))
  1986
+	    minor (string-to-number (match-string 2 number))
  1987
+	    least (if (match-beginning 3)
1986 1988
 		      (string-to-number (match-string 3 number))
1987 1989
 		    0))
1988 1990
       (string-to-number
@@ -1991,7 +1993,11 @@ If ARG, insert string at point."
1991 1993
 		   (cond
1992 1994
 		    ((member alpha '("(ding)" "d")) "4.99")
1993 1995
 		    ((member alpha '("September" "s")) "5.01")
1994  
-		    ((member alpha '("Red" "r")) "5.03"))
  1996
+		    ((member alpha '("Red" "r")) "5.03")
  1997
+		    ((member alpha '("Quassia" "q")) "5.05")
  1998
+		    ((member alpha '("p")) "5.07")
  1999
+		    ((member alpha '("o")) "5.09")
  2000
+		    ((member alpha '("n")) "5.11"))
1995 2001
 		   minor least)
1996 2002
 	 (format "%d.%02d%02d" major minor least))))))
1997 2003
 
@@ -2034,7 +2040,7 @@ g -- Group name."
2034 2040
 	(setq prompt (match-string 1 string)))
2035 2041
       (setq i (match-end 0))
2036 2042
       ;; We basically emulate just about everything that
2037  
-      ;; `interactive' does, but adds the "g" and "G" specs.
  2043
+      ;; `interactive' does, but add the specs listed above.
2038 2044
       (push
2039 2045
        (cond
2040 2046
 	((= c ?a)
5  lisp/message.el
@@ -1729,6 +1729,11 @@ prefix, and don't delete any headers."
1729 1729
 	     (list message-indent-citation-function)))))
1730 1730
     (goto-char end)
1731 1731
     (when (re-search-backward "^-- $" start t)
  1732
+      ;; Also peel off any blank lines before the signature.
  1733
+      (forward-line -1)
  1734
+      (while (looking-at "^[ \t]*$")
  1735
+	(forward-line -1))
  1736
+      (forward-line 1)
1732 1737
       (delete-region (point) end))
1733 1738
     (goto-char start)
1734 1739
     (while functions
8  texi/ChangeLog
... ...
@@ -1,3 +1,11 @@
  1
+1998-08-09 15:32:24  Lars Magne Ingebrigtsen  <larsi@gnus.org>
  2
+
  3
+	* gnus.texi (Hiding Headers): Fix.
  4
+
  5
+1998-08-08 06:06:37  Lars Magne Ingebrigtsen  <larsi@gnus.org>
  6
+
  7
+	* gnus.texi (Fancy Mail Splitting): Change.
  8
+
1 9
 1998-08-06 02:12:04  Lars Magne Ingebrigtsen  <larsi@gnus.org>
2 10
 
3 11
 	* gnus.texi: De-legalize.
27  texi/gnus.texi
... ...
@@ -1,7 +1,7 @@
1 1
 \input texinfo                  @c -*-texinfo-*-
2 2
 
3 3
 @setfilename gnus
4  
-@settitle Gnus 5.6.29 Manual
  4
+@settitle Gnus 5.6.30 Manual
5 5
 @synindex fn cp
6 6
 @synindex vr cp
7 7
 @synindex pg cp
@@ -316,7 +316,7 @@ into another language, under the above conditions for modified versions.
316 316
 @tex
317 317
 
318 318
 @titlepage
319  
-@title Gnus 5.6.29 Manual
  319
+@title Gnus 5.6.30 Manual
320 320
 
321 321
 @author by Lars Magne Ingebrigtsen
322 322
 @page
@@ -352,7 +352,7 @@ can be gotten by any nefarious means you can think of---@sc{nntp}, local
352 352
 spool or your mbox file.  All at the same time, if you want to push your
353 353
 luck.
354 354
 
355  
-This manual corresponds to Gnus 5.6.29.
  355
+This manual corresponds to Gnus 5.6.30.
356 356
 
357 357
 @end ifinfo
358 358
 
@@ -7772,15 +7772,15 @@ These conditions are:
7772 7772
 @table @code
7773 7773
 @item empty
7774 7774
 Remove all empty headers.
7775  
-@item newsgroups
7776  
-Remove the @code{Newsgroups} header if it only contains the current group
7777  
-name.
7778 7775
 @item followup-to
7779 7776
 Remove the @code{Followup-To} header if it is identical to the
7780 7777
 @code{Newsgroups} header.
7781 7778
 @item reply-to
7782 7779
 Remove the @code{Reply-To} header if it lists the same address as the
7783 7780
 @code{From} header.
  7781
+@item newsgroups
  7782
+Remove the @code{Newsgroups} header if it only contains the current group
  7783
+name.
7784 7784
 @item date
7785 7785
 Remove the @code{Date} header if the article is less than three days
7786 7786
 old.
@@ -7790,11 +7790,11 @@ Remove the @code{To} header if it is very long.
7790 7790
 Remove all @code{To} headers if there are more than one.
7791 7791
 @end table
7792 7792
 
7793  
-To include the four first elements, you could say something like;
  7793
+To include the four three elements, you could say something like;
7794 7794
 
7795 7795
 @lisp
7796 7796
 (setq gnus-boring-article-headers
7797  
-      '(empty newsgroups followup-to reply-to))
  7797
+      '(empty followup-to reply-to))
7798 7798
 @end lisp
7799 7799
 
7800 7800
 This is also the default value for this variable.
@@ -9674,7 +9674,7 @@ information in the headers (i.e., do @code{replace-match}-like
9674 9674
 substitutions in the group names), you can say things like:
9675 9675
 
9676 9676
 @example
9677  
-(any "debian-\\(\\w*\\)@@lists.debian.org" "mail.debian.\\1")
  9677
+(any "debian-\\b\\(\\w+\\)@@lists.debian.org" "mail.debian.\\1")
9678 9678
 @end example
9679 9679
 
9680 9680
 If the string contains the element @samp{\&}, then the previously
@@ -15387,7 +15387,7 @@ On July 28th 1996 work on Red Gnus was begun, and it was released on
15387 15387
 January 25th 1997 (after 84 releases) as ``Gnus 5.4'' (67 releases).
15388 15388
 
15389 15389
 On September 13th 1997, Quassia Gnus was started and lasted 37
15390  
-releases.  If was released as ``Gnus 5.6.29' on March 8th 1998.
  15390
+releases.  If was released as ``Gnus 5.6.30' on March 8th 1998.
15391 15391
 
15392 15392
 If you happen upon a version of Gnus that has a prefixed name --
15393 15393
 ``(ding) Gnus'', ``September Gnus'', ``Red Gnus'', ``Quassia Gnus'' --
@@ -15864,7 +15864,7 @@ actually are people who are using Gnus.  Who'd'a thunk it!
15864 15864
 * ding Gnus::          New things in Gnus 5.0/5.1, the first new Gnus.
15865 15865
 * September Gnus::     The Thing Formally Known As Gnus 5.3/5.3.
15866 15866
 * Red Gnus::           Third time best---Gnus 5.4/5.5.
15867  
-* Quassia Gnus::       Two times two is four, or Gnus 5.6.29.
  15867
+* Quassia Gnus::       Two times two is four, or Gnus 5.6.30.
15868 15868
 @end menu
15869 15869
 
15870 15870
 These lists are, of course, just @emph{short} overviews of the
@@ -16399,7 +16399,7 @@ Emphasized text can be properly fontisized:
16399 16399
 @node Quassia Gnus
16400 16400
 @subsubsection Quassia Gnus
16401 16401
 
16402  
-New features in Gnus 5.6.29:
  16402
+New features in Gnus 5.6.30:
16403 16403
 
16404 16404
 @itemize @bullet
16405 16405
 
@@ -17720,6 +17720,9 @@ many articles in the cache, since it regenerates big parts of the
17720 17720
 summary buffer for each article.
17721 17721
 
17722 17722
 @item
  17723
+Implement gnus-batch-brew-soup.
  17724
+
  17725
+@item
17723 17726
 Solve the halting problem.
17724 17727
 
17725 17728
 @c TODO
6  texi/message.texi
... ...
@@ -1,7 +1,7 @@
1 1
 \input texinfo                  @c -*-texinfo-*-
2 2
 
3 3
 @setfilename message
4  
-@settitle Message 5.6.29 Manual
  4
+@settitle Message 5.6.30 Manual
5 5
 @synindex fn cp
6 6
 @synindex vr cp
7 7
 @synindex pg cp
@@ -42,7 +42,7 @@ into another language, under the above conditions for modified versions.
42 42
 @tex
43 43
 
44 44
 @titlepage
45  
-@title Message 5.6.29 Manual
  45
+@title Message 5.6.30 Manual
46 46
 
47 47
 @author by Lars Magne Ingebrigtsen
48 48
 @page
@@ -83,7 +83,7 @@ Message mode buffers.
83 83
 * Key Index::         List of Message mode keys.
84 84
 @end menu
85 85
 
86  
-This manual corresponds to Message 5.6.29.  Message is distributed with
  86
+This manual corresponds to Message 5.6.30.  Message is distributed with
87 87
 the Gnus distribution bearing the same version number as this manual
88 88
 has. 
89 89
 

0 notes on commit 39508c1

Please sign in to comment.
Something went wrong with that request. Please try again.