From: ShengHuo ZHU <zsh@cs.rochester.edu>
Date: Sun, 24 Dec 2000 16:13:31 +0000 (+0000)
Subject: * message.el (message-mail): Support yank-action.
X-Git-Tag: emacs-pretest-21.0.95~288
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7dfb59f43023d50d5cdfed096953ec276a91f58c;p=emacs.git

* message.el (message-mail): Support yank-action.

* message.el (message-setup): Revoke the last change.
---

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index a88151febda..041eea81f9c 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,9 @@
+2000-12-24 11:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+	* message.el (message-mail): Support yank-action.
+
+	* message.el (message-setup): Revoke the last change.
+
 2000-12-24 01:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
 	* message.el (message-setup): Use cons. Suggested by Johan Vromans
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index ae3b3a5d71a..589f205c947 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -3595,7 +3595,7 @@ than 988 characters long, and if they are not, trim them until they are."
     (if (not (and message-this-is-mail mua))
 	(message-setup-1 headers replybuffer actions)
       (if replybuffer
-	  (setq yank-action (cons 'insert-buffer replybuffer)))
+	  (setq yank-action (list 'insert-buffer replybuffer)))
       (setq headers (copy-sequence headers))
       (setq field (assq 'Subject headers))
       (when field
@@ -3728,13 +3728,20 @@ than 988 characters long, and if they are not, trim them until they are."
   "Start editing a mail message to be sent.
 OTHER-HEADERS is an alist of header/value pairs."
   (interactive)
-  (let ((message-this-is-mail t))
+  (let ((message-this-is-mail t) replybuffer)
     (unless (message-mail-user-agent)
       (message-pop-to-buffer (message-buffer-name "mail" to)))
+    ;; FIXME: message-mail should do something if YANK-ACTION is not
+    ;; insert-buffer.
+    (and (consp yank-action) (eq (car yank-action) 'insert-buffer)
+	 (setq replybuffer (nth 1 yank-action)))
     (message-setup
      (nconc
       `((To . ,(or to "")) (Subject . ,(or subject "")))
-      (when other-headers other-headers)))))
+      (when other-headers other-headers))
+     replybuffer)
+    ;; FIXME: Should return nil if failure.
+    t))
 
 ;;;###autoload
 (defun message-news (&optional newsgroups subject)