* wl-draft.el (wl-draft-default-headers): Insert return value of

  `wl-generate-mailer-string-function'.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 4516089..fbd4fba 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2002-01-23  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+       * wl-draft.el (wl-draft-default-headers): Insert return value of
+       `wl-generate-mailer-string-function'.
+
 2002-01-23  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * 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 (file)
--- 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