From 7dfb59f43023d50d5cdfed096953ec276a91f58c Mon Sep 17 00:00:00 2001 From: ShengHuo ZHU Date: Sun, 24 Dec 2000 16:13:31 +0000 Subject: [PATCH] * message.el (message-mail): Support yank-action. * message.el (message-setup): Revoke the last change. --- lisp/gnus/ChangeLog | 6 ++++++ lisp/gnus/message.el | 13 ++++++++++--- 2 files changed, 16 insertions(+), 3 deletions(-) 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 + + * message.el (message-mail): Support yank-action. + + * message.el (message-setup): Revoke the last change. + 2000-12-24 01:00:00 ShengHuo ZHU * 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) -- 2.39.2