2003-01-10 Masahiro Murata <muse@ba2.so-net.ne.jp>

	* wl-draft.el (wl-draft-reedit): Avoid error on Meadow [wl:11209].

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 475b0f7..654d178 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2003-01-10  Masahiro Murata  <muse@ba2.so-net.ne.jp>
+
+       * wl-draft.el (wl-draft-reedit): Avoid error on Meadow [wl:11209].
+
 2003-01-06  Mito  <mito@mxa.nes.nec.co.jp>
 
        * wl-summary.el (wl-summary-line-list-info): Use %f to make

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 56955a9..138a4ca 100644 (file)
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1945,6 +1945,7 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed"
               (error "Invalid value for wl-draft-buffer-style")))))
       (set-buffer buffer)
       (insert-file-contents-as-binary file-name)
+      (elmo-delete-cr-buffer)
       (let((mime-edit-again-ignored-field-regexp
            "^\\(Content-.*\\|Mime-Version\\):"))
        (wl-draft-decode-message-in-buffer))