From 8d0b89fb87ae9ec178c1dbf39ed7f56e0523e209 Mon Sep 17 00:00:00 2001 From: yoichi Date: Wed, 23 Jan 2002 11:06:10 +0000 Subject: [PATCH] * wl-draft.el (wl-draft-default-headers): Insert return value of `wl-generate-mailer-string-function'. --- wl/ChangeLog | 5 +++++ wl/wl-draft.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 4516089..fbd4fba 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2002-01-23 Yoichi NAKAYAMA + + * wl-draft.el (wl-draft-default-headers): Insert return value of + `wl-generate-mailer-string-function'. + 2002-01-23 Yuuichi Teranishi * wl-draft.el (wl-draft-decode-body): Give an argument for delete-char. diff --git a/wl/wl-draft.el b/wl/wl-draft.el index 2cb9332..a46d15e 100644 --- a/wl/wl-draft.el +++ b/wl/wl-draft.el @@ -1588,7 +1588,8 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed" (cons "Mail-Reply-To: " (and wl-insert-mail-reply-to (wl-address-header-extract-address wl-from))) - wl-generate-mailer-string-function + (cons 'insert + (list (funcall wl-generate-mailer-string-function) "\n")) (cons "Reply-To: " mail-default-reply-to) (cons 'wl-draft-insert-ccs (list "Bcc: " (or wl-bcc -- 1.7.10.4