[Emacs-diffs] /srv/bzr/emacs/trunk r99369: * message.el (message-setup-1): Prefer to save message-reply-buffer as a buffer.

[Chong Yidong]

------------------------------------------------------------
revno: 99369
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sun 2010-01-17 18:49:27 -0500
message:
  * message.el (message-setup-1): Prefer to save message-reply-buffer as a 
buffer.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/message.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-01-17 23:33:55 +0000
+++ b/lisp/gnus/ChangeLog       2010-01-17 23:49:27 +0000
@@ -5,6 +5,7 @@
        (message-with-reply-buffer, message-widen-reply)
        (message-yank-original): Handle non-buffer values of
        message-reply-buffer (Bug#4080).
+       (message-setup-1): Prefer to save message-reply-buffer as a buffer.
 
 2010-01-17  Juanma Barranquero  <address@hidden>
 

=== modified file 'lisp/gnus/message.el'
--- a/lisp/gnus/message.el      2010-01-17 23:33:55 +0000
+++ b/lisp/gnus/message.el      2010-01-17 23:49:27 +0000
@@ -6320,7 +6320,11 @@
     (condition-case nil
        (add-to-list 'message-send-actions
                     `(apply ',(car action) ',(cdr action)))))
-  (setq message-reply-buffer yank-action)
+  (setq message-reply-buffer
+       (if (and (consp yank-action)
+                (eq (car yank-action) 'insert-buffer))
+           (nth 1 yank-action)
+         yank-action))
   (goto-char (point-min))
   ;; Insert all the headers.
   (mail-header-format