2000-12-24 01:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* message.el (message-setup): Use cons. Suggested by Johan Vromans
	<jvromans@squirrel.nl>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 54bad8a..1678f25 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-12-24 01:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * message.el (message-setup): Use cons. Suggested by Johan Vromans
+       <jvromans@squirrel.nl>.
+
 2000-12-24  Simon Josefsson  <sj@extundo.com>
 
        * mm-bodies.el (mm-decode-content-transfer-encoding): Preserve

diff --git a/lisp/message.el b/lisp/message.el
index 7fc0cb4..7c287b5 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3698,7 +3698,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 (list 'insert-buffer replybuffer)))
+         (setq yank-action (cons 'insert-buffer replybuffer)))
       (setq headers (copy-sequence headers))
       (setq field (assq 'Subject headers))
       (when field