Mercurial > emacs

changeset 106892:2bef3a4193f8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* message.el (message-setup-1): Prefer to save message-reply-buffer as a buffer.
author Chong Yidong <cyd@stupidchicken.com>
date Sun, 17 Jan 2010 18:49:27 -0500
parents bcf8645ca619
children 68e28bd7d00a fb36a68f9d48 401176c64983
files lisp/gnus/ChangeLog lisp/gnus/message.el
diffstat 2 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog	Sun Jan 17 18:34:53 2010 -0500
+++ b/lisp/gnus/ChangeLog	Sun Jan 17 18:49:27 2010 -0500
@@ -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  <lekktu@gmail.com>
 
--- a/lisp/gnus/message.el	Sun Jan 17 18:34:53 2010 -0500
+++ b/lisp/gnus/message.el	Sun Jan 17 18:49:27 2010 -0500
@@ -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