From a91fa92dec668b2f66802d2cee7517e14e5b662b Mon Sep 17 00:00:00 2001 From: yoichi Date: Sun, 24 Mar 2002 13:00:45 +0000 Subject: [PATCH] * wl-draft.el (wl-draft-default-headers): Use cons with symbol car rather than one with string car. --- wl/ChangeLog | 3 +++ wl/wl-draft.el | 6 +++--- 2 files changed, 6 insertions(+), 3 deletions(-) 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 + * 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 -- 1.7.10.4