From 62aa59105f31441412291e7bd38083912dc1ae3f Mon Sep 17 00:00:00 2001 From: okada Date: Wed, 23 Jan 2002 11:45:19 +0000 Subject: [PATCH] * wl-draft.el (wl-draft-decode-body): Remove `debug'. (wl-draft-default-headers): Fix. --- wl/ChangeLog | 5 +++++ wl/wl-draft.el | 4 +--- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index fbd4fba..3f2a75b 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2002-01-23 Kenichi OKADA + + * wl-draft.el (wl-draft-decode-body): Remove `debug'. + (wl-draft-default-headers): Fix. + 2002-01-23 Yoichi NAKAYAMA * wl-draft.el (wl-draft-default-headers): Insert return value of diff --git a/wl/wl-draft.el b/wl/wl-draft.el index a46d15e..9094e3a 100644 --- a/wl/wl-draft.el +++ b/wl/wl-draft.el @@ -1555,7 +1555,6 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed" (insert "\n")) (save-restriction (narrow-to-region delimline (point-max)) - (debug) (wl-draft-decode-message-in-buffer) (widen)) (goto-char delimline) @@ -1588,8 +1587,7 @@ 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))) - (cons 'insert - (list (funcall wl-generate-mailer-string-function) "\n")) + (cons "" wl-generate-mailer-string-function) (cons "Reply-To: " mail-default-reply-to) (cons 'wl-draft-insert-ccs (list "Bcc: " (or wl-bcc -- 1.7.10.4