Synch to Gnus 200312310312.

[elisp/gnus.git-] / lisp / message.el

diff --git a/lisp/message.el b/lisp/message.el
index 02e3a24..45a0f06 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1769,6 +1769,9 @@ no, only reply back to the author."
   (autoload 'rmail-output "rmailout")
   (autoload 'gnus-delay-article "gnus-delay")
   (autoload 'gnus-make-local-hook "gnus-util")
+  (autoload 'gnus-extract-address-components "gnus-util"))
+
+(eval-and-compile
   (autoload 'mu-cite-original "mu-cite"))
 
 \f
@@ -3504,7 +3507,7 @@ be added to the \"References\" field."
 (defun message-yank-buffer (buffer)
   "Insert BUFFER into the current buffer and quote it."
   (interactive "bYank buffer: ")
-  (let ((message-reply-buffer buffer))
+  (let ((message-reply-buffer (get-buffer buffer)))
     (save-window-excursion
       (message-yank-original))))
 
@@ -5764,7 +5767,6 @@ If the current line has `message-yank-prefix', insert it on the new line."
     (error
      (split-line))))
      
-
 (defun message-fill-header (header value)
   (let ((begin (point))
        (fill-column 78)
@@ -6784,7 +6786,7 @@ news, Source is the list of newsgroups is was posted to."
            (if group
                (gnus-group-decoded-name group)
              (or (and (setq from (message-fetch-field "from"))
-                      (car (std11-extract-address-components 
+                      (car (std11-extract-address-components
                             (nnheader-decode-from from))))
                  "(nowhere)")))
          "] " subject))