* message.el (message-get-reply-headers): Return a value.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2435c9a..71c8f30 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-04-22 14:25:05  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * message.el (message-get-reply-headers): Return a value.
+
 2000-04-22 14:12:41  David Aspinwall  <aspinwall@TimesTen.com>
 
        * gnus-art.el (gnus-button-url-regexp): New value to match naked

diff --git a/lisp/message.el b/lisp/message.el
index e261d5a..ec13bb8 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3547,7 +3547,8 @@ OTHER-HEADERS is an alist of header/value pairs."
                            (lambda (addr) (cdr addr)) ccalist ", "))))
        (when (string-match "^ +" (cdr ccs))
          (setcdr ccs (substring (cdr ccs) (match-end 0))))
-       (push ccs follow-to)))))
+       (push ccs follow-to)))
+    follow-to))
 
 
 ;;;###autoload

diff --git a/lisp/nnmail.el b/lisp/nnmail.el
index 6cf1774..94d721c 100644 (file)
--- a/lisp/nnmail.el
+++ b/lisp/nnmail.el
@@ -1340,6 +1340,10 @@ See the documentation for the variable `nnmail-split-fancy' for documentation."
       (setq nnmail-cache-buffer nil)
       (kill-buffer (current-buffer)))))
 
+;; Compiler directives.
+(defvar group)
+(defvar group-art-list)
+(defvar group-art)
 (defun nnmail-cache-insert (id)
   (when nnmail-treat-duplicates
     ;; Store some information about the group this message is written