From: okada <okada>
Date: Wed, 23 Jan 2002 11:45:19 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-decode-body): Remove `debug'.
X-Git-Tag: wl-2_9_7~49
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=62aa59105f31441412291e7bd38083912dc1ae3f;p=elisp%2Fwanderlust.git

* wl-draft.el (wl-draft-decode-body): Remove `debug'.
(wl-draft-default-headers): Fix.
---

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  <okada@opaopa.org>
+
+	* wl-draft.el (wl-draft-decode-body): Remove `debug'.
+	(wl-draft-default-headers): Fix.
+
 2002-01-23  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* 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