Mercurial > emacs

diff lisp/gnus/message.el @ 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 2ed4eab78ca3
children 6a11e3b311d8
line wrap: on
line diff
--- 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