From: yoichi <yoichi>
Date: Sun, 24 Mar 2002 13:00:45 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-default-headers): Use cons with symbol car
X-Git-Tag: elmo-mark-root~237
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a91fa92dec668b2f66802d2cee7517e14e5b662b;p=elisp%2Fwanderlust.git

* wl-draft.el (wl-draft-default-headers): Use cons with symbol car
rather than one with string car.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 97bac7f..2594703 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,8 @@
 2002-03-24  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
+	* wl-draft.el (wl-draft-default-headers): Use cons with symbol car
+	rather than one with string car.
+
 	* wl-vars.el (wl-draft-additional-header-alist): New variable.
 	* wl-draft.el (wl-draft-create-contents): Add it after the default
 	headers.
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index a3388f1..26727fb 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1672,17 +1672,17 @@ Derived from `message-save-drafts' in T-gnus."
 
 (defsubst wl-draft-default-headers ()
   (list
-   (cons "Mail-Reply-To: " (and wl-insert-mail-reply-to
+   (cons 'Mail-Reply-To (and wl-insert-mail-reply-to
 				(wl-address-header-extract-address
 				 wl-from)))
    (cons "" wl-generate-mailer-string-function)
-   (cons "Reply-To: " mail-default-reply-to)
+   (cons 'Reply-To mail-default-reply-to)
    (cons 'wl-draft-insert-ccs
 	 (list "Bcc: " (or wl-bcc
 			   (and mail-self-blind (user-login-name)))))
    (cons 'wl-draft-insert-ccs
 	 (list "Fcc: " wl-fcc))
-   (cons "Organization: " wl-organization)
+   (cons 'Organization wl-organization)
    (and wl-auto-insert-x-face
 	(file-exists-p wl-x-face-file)
 	'wl-draft-insert-x-face-field-here) ;; allow nil