*** empty log message ***

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 69beb58..482a1bb 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,69 @@
+Sat May 31 15:41:09 1997  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
+
+       * gnus.el: Gnus v5.4.56 is released.
+
+Sat May 31 14:51:37 1997  Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
+
+       * message.el (message-make-in-reply-to): Make valid In-Reply-To.
+
+Sat May 31 14:45:54 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * gnus-art.el (gnus-header-button-alist): Check for URLs in the
+       Subject. 
+
+Sat May 31 14:42:53 1997  Hrvoje Niksic <hniksic@srce.hr>
+
+       * gnus-xmas.el: Cleanup.
+
+Sat May 31 14:34:39 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * gnus-art.el (gnus-output-to-file): Return t.
+
+Sat May 31 14:14:40 1997  Guy Geens <Guy.Geens@elis.rug.ac.be>
+
+       * gnus-score.el (gnus-decay-score): Make decay work on negative
+       scores. 
+
+Sat May 31 14:07:53 1997  Kurt Swanson <kurt@dna.lth.se>
+
+       * nnmail.el (nnmail-article-group): Handle junk properly.
+
+Sat May 31 14:03:32 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * gnus-sum.el (gnus-summary-limit-children): Typo.  Wouldn't
+       marked NoCeM'ed out messages as read.
+
+Sat May 31 13:46:49 1997  Darren Stalder  <torin@daft.com>
+
+       * gnus-util.el (gnus-encode-date): Fix time zone.
+
+Sat May 31 13:38:02 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * gnus-move.el (gnus-move-group-to-server): Don't sort nil lists.
+
+Tue May 27 16:03:12 1997  Paul Franklin  <paul@cs.washington.edu>
+
+       * nnmail.el (nnmail-keep-last-article): clarify docstring
+
+Tue May 27 15:03:30 1997  Danny Siu  <dsiu@adobe.com>
+
+       * gnus-picon.el (gnus-group-display-picons): use
+       gnus-group-real-name so that picons for foreign groups display
+       correctly.
+
+Fri May 30 22:03:39 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * gnus-topic.el (gnus-topic-mode): Nix out topic missing group
+       function when switching off.
+
+       * gnus-salt.el (gnus-pick-start-reading): Don't prompt.
+
+Mon May 26 11:49:53 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * gnus-art.el (gnus-hack-decode-rfc1522): New function.
+
+       * gnus-sum.el (gnus-parse-headers-hook): New default.
+
 Sun May 25 17:08:16 1997  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
 
        * gnus.el: Gnus v5.4.55 is released.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index f107e84..74f728c 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -866,6 +866,18 @@ always hide."
                  (process-send-region "article-x-face" beg end)
                  (process-send-eof "article-x-face"))))))))))
 
+(defun gnus-hack-decode-rfc1522 ()
+  "Emergency hack function for avoiding problems when decoding."
+  (let ((buffer-read-only nil))
+    (goto-char (point-min))
+    ;; Remove encoded TABs.
+    (while (search-forward "=09" nil t)
+      (replace-match " " t t))
+    ;; Remove encoded newlines.
+    (goto-char (point-min))
+    (while (search-forward "=10" nil t)
+      (replace-match " " t t))))
+
 (defalias 'gnus-decode-rfc1522 'article-decode-rfc1522)
 (defalias 'gnus-article-decode-rfc1522 'article-decode-rfc1522)
 (defun article-decode-rfc1522 ()
@@ -2044,7 +2056,8 @@ Provided for backwards compatibility."
       ;; save it to file.
       (goto-char (point-max))
       (insert "\n")
-      (append-to-file (point-min) (point-max) file-name))))
+      (append-to-file (point-min) (point-max) file-name)
+      t)))
 
 (defun gnus-narrow-to-page (&optional arg)
   "Narrow the article buffer to a page.
@@ -2584,6 +2597,7 @@ variable it the real callback function."
     ("^\\(Cc\\|To\\):" "[^ \t\n<>,()\"]+@[^ \t\n<>,()\"]+"
      0 t gnus-button-mailto 0)
     ("^X-[Uu][Rr][Ll]:" ,gnus-button-url-regexp 0 t gnus-button-url 0)
+    ("^Subject:" ,gnus-button-url-regexp 0 t gnus-button-url 0)
     ("^[^:]+:" ,gnus-button-url-regexp 0 t gnus-button-url 0)
     ("^[^:]+:" "\\(<\\(url: \\)?news:\\([^>\n ]*\\)>\\)" 1 t
      gnus-button-message-id 3))

diff --git a/lisp/gnus-cache.el b/lisp/gnus-cache.el
index 3ece68a..754a56f 100644 (file)
--- a/lisp/gnus-cache.el
+++ b/lisp/gnus-cache.el
@@ -463,7 +463,7 @@ Returns the list of articles removed."
        (gnus-cache-update-active group (car (last articles))))
       articles)))
 
-(defun gnus-cache-braid-nov (group cached)
+(defun gnus-cache-braid-nov (group cached &optional file)
   (let ((cache-buf (get-buffer-create " *gnus-cache*"))
        beg end)
     (gnus-cache-save-buffers)
@@ -471,7 +471,7 @@ Returns the list of articles removed."
       (set-buffer cache-buf)
       (buffer-disable-undo (current-buffer))
       (erase-buffer)
-      (insert-file-contents (gnus-cache-file-name group ".overview"))
+      (insert-file-contents (or file (gnus-cache-file-name group ".overview")))
       (goto-char (point-min))
       (insert "\n")
       (goto-char (point-min)))

diff --git a/lisp/gnus-move.el b/lisp/gnus-move.el
index ba8b9c2..c61128a 100644 (file)
--- a/lisp/gnus-move.el
+++ b/lisp/gnus-move.el
@@ -125,7 +125,7 @@ Update the .newsrc.eld file to reflect the change of nntp server."
          ;; into the Gnus info format.
          (setq to-reads
                (gnus-range-add
-                (gnus-compress-sequence (sort to-reads '<) t)
+                (gnus-compress-sequence (and to-reads (sort to-reads '<)) t)
                 (cons 1 (1- (car to-active)))))
          (gnus-info-set-read info to-reads)
          ;; Do the marks.  I'm sure y'all understand what's
@@ -142,7 +142,8 @@ Update the .newsrc.eld file to reflect the change of nntp server."
                        (cons article (cdr a)))))
            (setq a lists)
            (while a
-             (setcdr (car a) (gnus-compress-sequence (sort (cdar a) '<)))
+             (setcdr (car a) (gnus-compress-sequence
+                              (and (cdar a) (sort (cdar a) '<))))
              (pop a))
            (gnus-info-set-marks info lists t)))))
     (gnus-message 7 "Translating %s...done" group)))

diff --git a/lisp/gnus-picon.el b/lisp/gnus-picon.el
index ed2d277..00bf6cb 100644 (file)
--- a/lisp/gnus-picon.el
+++ b/lisp/gnus-picon.el
@@ -342,11 +342,13 @@ To use:  (setq gnus-article-x-face-command 'gnus-picons-display-x-face)"
          (setq gnus-group-annotations
                (gnus-picons-display-pairs
                 (gnus-picons-lookup-pairs (reverse (message-tokenize-header
-                                                    gnus-newsgroup-name "."))
+                                                    (gnus-group-real-name gnus-newsgroup-name) 
+                                                    "."))
                                           gnus-picons-news-directories)
                 t "."))
        (push (list 'gnus-group-annotations 'search nil
-                   (message-tokenize-header gnus-newsgroup-name ".")
+                   (message-tokenize-header 
+                    (gnus-group-real-name gnus-newsgroup-name) ".")
                    (if (listp gnus-picons-news-directories)
                        gnus-picons-news-directories
                      (list gnus-picons-news-directories))

diff --git a/lisp/gnus-salt.el b/lisp/gnus-salt.el
index ba63d27..10bb67f 100644 (file)
--- a/lisp/gnus-salt.el
+++ b/lisp/gnus-salt.el
@@ -158,7 +158,7 @@ If given a prefix, mark all unpicked articles as read."
     (if gnus-pick-elegant-flow
        (progn
          (when (or catch-up gnus-mark-unpicked-articles-as-read)
-           (gnus-summary-catchup))
+           (gnus-summary-catchup nil t))
          (if (gnus-group-quit-config gnus-newsgroup-name)
              (gnus-summary-exit)
            (gnus-summary-next-group)))

diff --git a/lisp/gnus-score.el b/lisp/gnus-score.el
index 02cb010..d5eddd1 100644 (file)
--- a/lisp/gnus-score.el
+++ b/lisp/gnus-score.el
@@ -2725,11 +2725,11 @@ If ADAPT, return the home adaptive file instead."
 ;;;
 
 (defun gnus-decay-score (score)
-  "Decay SCORE."
+  "Decay SCORE according to `gnus-score-decay-constant' and `gnus-score-decay-scale'."
   (floor
    (- score
       (* (if (< score 0) 1 -1)
-        (min score
+        (min (abs score)
              (max gnus-score-decay-constant
                   (* (abs score)
                      gnus-score-decay-scale)))))))

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 263da48..20af5dd 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -618,7 +618,7 @@ is not run if `gnus-visual' is nil."
   :type 'hook)
 
 (defcustom gnus-parse-headers-hook
-  (list 'gnus-decode-rfc1522)
+  (list 'gnus-hack-decode-rfc1522 'gnus-decode-rfc1522)
   "*A hook called before parsing the headers."
   :group 'gnus-various
   :type 'hook)
@@ -6052,7 +6052,7 @@ fetch-old-headers verbiage, and so on."
                      (mail-header-id (car thread))))
                (progn
                  (setq gnus-newsgroup-reads
-                       (delq number gnus-newsgroup-unreads))
+                       (delq number gnus-newsgroup-reads))
                  t))))
          ;; Nope, invisible article.
          0

diff --git a/lisp/gnus-topic.el b/lisp/gnus-topic.el
index f576760..b2a5d1c 100644 (file)
--- a/lisp/gnus-topic.el
+++ b/lisp/gnus-topic.el
@@ -937,7 +937,8 @@ articles in the topic and its subtopics."
          (if (null arg) (not gnus-topic-mode)
            (> (prefix-numeric-value arg) 0)))
     ;; Infest Gnus with topics.
-    (when gnus-topic-mode
+    (if (not gnus-topic-mode)
+       (setq gnus-goto-missing-group-function nil)
       (when (gnus-visual-p 'topic-menu 'menu)
        (gnus-topic-make-menu-bar))
       (setq gnus-topic-line-format-spec

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index e48cdac..e4a21b8 100644 (file)
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -255,7 +255,8 @@
         (date (mapcar (lambda (d) (and d (string-to-int d))) parse))
         (time (mapcar 'string-to-int (timezone-parse-time (aref parse 3)))))
     (encode-time (caddr time) (cadr time) (car time)
-                (caddr date) (cadr date) (car date) (nth 4 date))))
+                (caddr date) (cadr date) (car date)
+                (* 60 (timezone-zone-to-minute (nth 4 date))))))
 
 (defun gnus-time-minus (t1 t2)
   "Subtract two internal times."

diff --git a/lisp/gnus-xmas.el b/lisp/gnus-xmas.el
index b714314..8ea2e41 100644 (file)
--- a/lisp/gnus-xmas.el
+++ b/lisp/gnus-xmas.el
@@ -508,21 +508,8 @@ call it with the value of the `gnus-data' text property."
   (add-hook 'gnus-group-mode-hook 'gnus-xmas-setup-group-toolbar)
   (add-hook 'gnus-summary-mode-hook 'gnus-xmas-setup-summary-toolbar)
 
-  (add-hook 'gnus-summary-mode-hook 'gnus-xmas-switch-horizontal-scrollbar-off)
-
-  (when (and (<= emacs-major-version 19)
-            (<= emacs-minor-version 13))
-    (setq gnus-article-x-face-too-ugly (when (eq (device-type) 'tty)
-                                        "."))
-    (fset 'gnus-highlight-selected-summary
-         'gnus-xmas-highlight-selected-summary)
-    (fset 'gnus-group-remove-excess-properties
-         'gnus-xmas-group-remove-excess-properties)
-    (fset 'gnus-topic-remove-excess-properties
-         'gnus-xmas-topic-remove-excess-properties)
-    (fset 'gnus-mode-line-buffer-identification 'identity)
-    (unless (boundp 'shell-command-switch)
-      (setq shell-command-switch "-c"))))
+  (add-hook 'gnus-summary-mode-hook
+           'gnus-xmas-switch-horizontal-scrollbar-off))
 
 
 ;;; XEmacs logo and toolbar.
@@ -532,37 +519,37 @@ call it with the value of the `gnus-data' text property."
   ;; Insert the message.
   (setq gnus-xmas-glyph-directory (message-xmas-find-glyph-directory "gnus"))
   (erase-buffer)
-  (let ((logo (and gnus-xmas-glyph-directory
-                  (concat
-                   (file-name-as-directory gnus-xmas-glyph-directory)
-                   "gnus."
-                   (if (featurep 'xpm) "xpm" "xbm"))))
-       (xpm-color-symbols
-        (and (featurep 'xpm)
-             (append `(("thing" ,(car gnus-xmas-logo-colors))
-                       ("shadow" ,(cadr gnus-xmas-logo-colors)))
-                     xpm-color-symbols))))
-    (if (and (featurep 'xpm)
-            (not (equal (device-type) 'tty))
-            logo
-            (file-exists-p logo))
-       (progn
-         (setq logo (make-glyph logo))
-         (insert " ")
-         (set-extent-begin-glyph (make-extent (point) (point)) logo)
-         (goto-char (point-min))
-         (while (not (eobp))
-           (insert (make-string (/ (max (- (window-width) (or x 35)) 0) 2)
-                                ? ))
-           (forward-line 1))
-         (goto-char (point-min))
-         (let* ((pheight (+ 20 (count-lines (point-min) (point-max))))
-                (wheight (window-height))
-                (rest (- wheight pheight)))
-           (insert (make-string (max 0 (* 2 (/ rest 3))) ?\n))))
-
-      (insert
-       (format "              %s
+  (cond
+   ((and (console-on-window-system-p)
+        (or (featurep 'xpm)
+            (featurep 'xbm)))
+    (let* ((logo-xpm (expand-file-name "gnus.xpm" gnus-xmas-glyph-directory))
+          (logo-xbm (expand-file-name "gnus.xbm" gnus-xmas-glyph-directory))
+          (glyph (make-glyph
+                  (list
+                   (vector 'xpm
+                           ':file logo-xpm
+                           ':color-symbols
+                           `(("thing" . ,(car gnus-xmas-logo-colors))
+                             ("shadow" . ,(cadr gnus-xmas-logo-colors))
+                             ("background" . ,(face-background 'default))))
+                   (vector 'xbm :file logo-xbm)
+                   (vector 'nothing)))))
+      (insert " ")
+      (set-extent-begin-glyph (make-extent (point) (point)) glyph)
+      (goto-char (point-min))
+      (while (not (eobp))
+       (insert (make-string (/ (max (- (window-width) (or x 35)) 0) 2)
+                            ?\ ))
+       (forward-line 1)))
+    (goto-char (point-min))
+    (let* ((pheight (+ 20 (count-lines (point-min) (point-max))))
+          (wheight (window-height))
+          (rest (- wheight pheight)))
+      (insert (make-string (max 0 (* 2 (/ rest 3))) ?\n))))
+   (t
+    (insert
+     (format "              %s
           _    ___ _             _
           _ ___ __ ___  __    _ ___
           __   _     ___    __  ___
@@ -582,23 +569,21 @@ call it with the value of the `gnus-data' text property."
           __
 
 "
-              ""))
-      ;; And then hack it.
-      (gnus-indent-rigidly (point-min) (point-max)
-                          (/ (max (- (window-width) (or x 46)) 0) 2))
-      (goto-char (point-min))
-      (forward-line 1)
-      (let* ((pheight (count-lines (point-min) (point-max)))
-            (wheight (window-height))
-            (rest (- wheight pheight)))
-       (insert (make-string (max 0 (* 2 (/ rest 3))) ?\n))))
-    ;; Fontify some.
-    (goto-char (point-min))
-    (put-text-property (point-min) (point-max) 'face 'gnus-splash-face)
+            ""))
+    ;; And then hack it.
+    (gnus-indent-rigidly (point-min) (point-max)
+                        (/ (max (- (window-width) (or x 46)) 0) 2))
     (goto-char (point-min))
-    (setq modeline-buffer-identification
-         (list (concat gnus-version ": *Group*")))
-    (set-buffer-modified-p t)))
+    (forward-line 1)
+    (let* ((pheight (count-lines (point-min) (point-max)))
+          (wheight (window-height))
+          (rest (- wheight pheight)))
+      (insert (make-string (max 0 (* 2 (/ rest 3))) ?\n)))
+    ;; Paint it.
+    (put-text-property (point-min) (point-max) 'face 'gnus-splash-face)))
+  (setq modeline-buffer-identification
+       (list (concat gnus-version ": *Group*")))
+  (set-buffer-modified-p t))
 
 
 ;;; The toolbar.
@@ -753,33 +738,45 @@ XEmacs compatibility workaround."
       (set-extent-begin-glyph
        (make-extent (point) (1+ (point))) xface-glyph))))
 
-(defvar gnus-xmas-pointer-glyph
-  (progn
-    (setq gnus-xmas-glyph-directory (message-xmas-find-glyph-directory "gnus"))
-    (make-pointer-glyph (concat gnus-xmas-glyph-directory "gnus-pointer."
-                               (if (featurep 'xpm) "xpm" "xbm")))))
+;;(defvar gnus-xmas-pointer-glyph
+;;  (progn
+;;    (setq gnus-xmas-glyph-directory (message-xmas-find-glyph-directory
+;;                                     "gnus"))
+;;    (let ((file-xpm (expand-file-name "gnus-pointer.xpm"
+;;                                   gnus-xmas-glyph-directory))
+;;       (file-xbm (expand-file-name "gnus-pointer.xbm"
+;;                                   gnus-xmas-glyph-directory)))
+;;      (make-pointer-glyph
+;;       (list (vector 'xpm ':file file-xpm)
+;;          (vector 'xbm ':file file-xbm))))))
 
 (defvar gnus-xmas-modeline-left-extent
   (let ((ext (copy-extent modeline-buffer-id-left-extent)))
-    ;(set-extent-property ext 'pointer gnus-xmas-pointer-glyph)
+;    (set-extent-property ext 'pointer gnus-xmas-pointer-glyph)
     ext))
 
 (defvar gnus-xmas-modeline-right-extent
   (let ((ext (copy-extent modeline-buffer-id-right-extent)))
-    ;(set-extent-property ext 'pointer gnus-xmas-pointer-glyph)
+;    (set-extent-property ext 'pointer gnus-xmas-pointer-glyph)
     ext))
 
 (defvar gnus-xmas-modeline-glyph
   (progn
     (setq gnus-xmas-glyph-directory (message-xmas-find-glyph-directory "gnus"))
-    (let* ((file (concat gnus-xmas-glyph-directory "gnus-pointer."
-                        (if (featurep 'xpm) "xpm" "xbm")))
-          (glyph (make-glyph file)))
-      (when (and (featurep 'x)
-                (file-exists-p file))
-       (set-glyph-face glyph 'modeline-buffer-id)
-       (set-glyph-property glyph 'image (cons 'tty "Gnus:"))
-       glyph))))
+    (let* ((file-xpm (expand-file-name "gnus-pointer.xpm"
+                                   gnus-xmas-glyph-directory))
+          (file-xbm (expand-file-name "gnus-pointer.xbm"
+                                   gnus-xmas-glyph-directory))
+          (glyph (make-glyph
+                  (list
+                   ;; Let's try a nifty XPM
+                   (vector 'xpm ':file file-xpm)
+                   ;; Then a not-so-nifty XBM
+                   (vector 'xbm ':file file-xbm)
+                   ;; Then the simple string
+                   (vector 'string ':data "Gnus:")))))
+      (set-glyph-face glyph 'modeline-buffer-id)
+      glyph)))
 
 (defun gnus-xmas-mode-line-buffer-identification (line)
   (let ((line (car line))

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 5894ee8..b6af610 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -226,7 +226,7 @@ is restarted, and sometimes reloaded."
   :link '(custom-manual "(gnus)Exiting Gnus")
   :group 'gnus)
 
-(defconst gnus-version-number "5.4.55"
+(defconst gnus-version-number "5.4.56"
   "Version number for this version of Gnus.")
 
 (defconst gnus-version (format "Gnus v%s" gnus-version-number)
@@ -1640,7 +1640,7 @@ gnus-newsrc-hashtb should be kept so that both hold the same information.")
       gnus-article-next-page gnus-article-prev-page
       gnus-request-article-this-buffer gnus-article-mode
       gnus-article-setup-buffer gnus-narrow-to-page
-      gnus-article-delete-invisible-text)
+      gnus-article-delete-invisible-text gnus-hack-decode-rfc1522)
      ("gnus-art" :interactive t
       gnus-article-hide-headers gnus-article-hide-boring-headers
       gnus-article-treat-overstrike gnus-article-word-wrap

diff --git a/lisp/message.el b/lisp/message.el
index a8eb428..01c6ffc 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2484,9 +2484,10 @@ to find out how to use this."
        (let ((stop-pos
               (string-match "  *at \\|  *@ \\| *(\\| *<" from)))
          (concat (if stop-pos (substring from 0 stop-pos) from)
-                 "'s message of "
+                 "'s message of \""
                  (if (or (not date) (string= date ""))
-                     "(unknown date)" date)))))))
+                     "(unknown date)" date)
+                 "\""))))))
 
 (defun message-make-distribution ()
   "Make a Distribution header."

diff --git a/lisp/nnmail.el b/lisp/nnmail.el
index 6ba318f..402452f 100644 (file)
--- a/lisp/nnmail.el
+++ b/lisp/nnmail.el
@@ -112,7 +112,9 @@ If nil, the first match found will be used."
 
 ;; Added by gord@enci.ucalgary.ca (Gordon Matzigkeit).
 (defcustom nnmail-keep-last-article nil
-  "If non-nil, nnmail will never delete the last expired article in a directory.
+  "If non-nil, nnmail will never delete/move a group's last article.
+It can be marked expirable, so it will be deleted when it is no longer last.
+
 You may need to set this variable if other programs are putting
 new mail into folder numbers that Gnus has marked as expired."
   :group 'nnmail-procmail
@@ -569,7 +571,7 @@ parameter.  It should return nil, `warn' or `delete'."
                      (nnmail-read-passwd
                       (format "Password for %s: "
                               (substring inbox (+ popmail 3))))))
-             (message "Getting mail from post office ..."))
+             (message "Getting mail from the post office..."))
          (when (or (and (file-exists-p tofile)
                         (/= 0 (nnheader-file-size tofile)))
                    (and (file-exists-p inbox)
@@ -1056,7 +1058,7 @@ FUNC will be called with the group name to determine the article number."
              ;; to do?  Just remove the `junk' spec.  Don't really
              ;; see anything else to do...
              (let (elem)
-               (while (setq elem (assq 'junk split))
+               (while (setq elem (car (memq 'junk split)))
                  (setq split (delq elem split))))
              (when split
                (setq group-art
@@ -1093,7 +1095,7 @@ FUNC will be called with the group name to determine the article number."
          ;; to do?  Just remove the `junk' spec.  Don't really
          ;; see anything else to do...
          (let (elem)
-           (while (setq elem (assq 'junk group-art))
+           (while (setq elem (car (memq 'junk group-art)))
              (setq group-art (delq elem group-art)))
            (nreverse group-art)))))))
 

diff --git a/lisp/pop3.el b/lisp/pop3.el
index c67b3d6..1380949 100644 (file)
--- a/lisp/pop3.el
+++ b/lisp/pop3.el
@@ -148,7 +148,7 @@ Return the response string if optional second argument is non-nil."
       (set-buffer (process-buffer process))
       (goto-char pop3-read-point)
       (while (not (search-forward "\r\n" nil t))
-       (accept-process-output process)
+       (accept-process-output process 3)
        (goto-char pop3-read-point))
       (setq match-end (point))
       (goto-char pop3-read-point)
@@ -298,7 +298,7 @@ This function currently does nothing.")
     (save-excursion
       (set-buffer (process-buffer process))
       (while (not (re-search-forward "^\\.\r\n" nil t))
-       (accept-process-output process)
+       (accept-process-output process 3)
        ;; bill@att.com ... to save wear and tear on the heap
        (if (> (buffer-size)  20000) (sleep-for 1))
        (if (> (buffer-size)  50000) (sleep-for 1))

diff --git a/texi/dir b/texi/dir
new file mode 100644 (file)
index 0000000..79bb19d
--- /dev/null
+++ b/texi/dir
@@ -0,0 +1,11 @@
+-*- Text -*-
+The Gnus-realated top node.
+\1f
+File: dir      Node: Top       This is the Gnus Info tree
+
+* Menu: 
+
+* Gnus: (gnus).                The news reader Gnus.
+* Message: (message).  The Message sending thingamabob.
+* Widget: (widget).    The Widget library.
+* Custom: (custom).    The Custom library.

diff --git a/texi/gnus.texi b/texi/gnus.texi
index 00d057d..c767e11 100644 (file)
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -1,7 +1,7 @@
 \input texinfo                  @c -*-texinfo-*-
 
 @setfilename gnus
-@settitle Gnus 5.4.55 Manual
+@settitle Gnus 5.4.56 Manual
 @synindex fn cp
 @synindex vr cp
 @synindex pg cp
@@ -287,7 +287,7 @@ into another language, under the above conditions for modified versions.
 @tex
 
 @titlepage
-@title Gnus 5.4.55 Manual
+@title Gnus 5.4.56 Manual
 
 @author by Lars Magne Ingebrigtsen
 @page
@@ -323,7 +323,7 @@ can be gotten by any nefarious means you can think of---@sc{nntp}, local
 spool or your mbox file.  All at the same time, if you want to push your
 luck.
 
-This manual corresponds to Gnus 5.4.55.
+This manual corresponds to Gnus 5.4.56.
 
 @end ifinfo
 
@@ -12233,10 +12233,11 @@ definition of that function:
 
 @lisp
 (defun gnus-decay-score (score)
+  "Decay SCORE according to `gnus-score-decay-constant' and `gnus-score-decay-scale'."
   (floor
    (- score
       (* (if (< score 0) 1 -1)
-         (min score
+         (min (abs score)
               (max gnus-score-decay-constant
                    (* (abs score)
                       gnus-score-decay-scale)))))))
@@ -14120,6 +14121,7 @@ Michael Ernst,
 Luc Van Eycken,
 Sam Falkner,
 Paul Franklin, 
+Guy Geens,
 Arne Georg Gleditsch,
 David S. Goldberg,
 D. Hall, 
@@ -14181,6 +14183,7 @@ Paul D. Smith,
 Jeff Sparkes,
 Toby Speight,
 Michael Sperber,
+Darren Stalder,
 Richard Stallman,
 Greg Stark, 
 Paul Stodghill,

diff --git a/texi/message.texi b/texi/message.texi
index 5c87134..9ed03a2 100644 (file)
--- a/texi/message.texi
+++ b/texi/message.texi
@@ -1,7 +1,7 @@
 \input texinfo                  @c -*-texinfo-*-
 
 @setfilename message
-@settitle Message 5.4.55 Manual
+@settitle Message 5.4.56 Manual
 @synindex fn cp
 @synindex vr cp
 @synindex pg cp
@@ -39,7 +39,7 @@ into another language, under the above conditions for modified versions.
 @tex
 
 @titlepage
-@title Message 5.4.55 Manual
+@title Message 5.4.56 Manual
 
 @author by Lars Magne Ingebrigtsen
 @page
@@ -79,7 +79,7 @@ buffers.
 * Key Index::         List of Message mode keys.
 @end menu
 
-This manual corresponds to Message 5.4.55.  Message is distributed with
+This manual corresponds to Message 5.4.56.  Message is distributed with
 the Gnus distribution bearing the same version number as this manual
 has.