(wl-summary-exec-action-resend-subr): Disable

multibyte on working buffer and removed unnecessary
`buffer-disable-undo'.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 7be8382..359e06a 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2005-02-24  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * wl-action.el (wl-summary-exec-action-resend-subr): Disable
+       multibyte on working buffer and removed unnecessary
+       `buffer-disable-undo'.
+
 2005-02-18  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
        * wl-util.el (wl-read-search-condition-internal): Fixed the last

diff --git a/wl/wl-action.el b/wl/wl-action.el
index 1a79a25..24820e1 100644 (file)
--- a/wl/wl-action.el
+++ b/wl/wl-action.el
@@ -569,7 +569,7 @@ Return number if put mark succeed"
     (save-excursion
       ;; We first set up a normal mail buffer.
       (set-buffer (get-buffer-create " *wl-draft-resend*"))
-      (buffer-disable-undo (current-buffer))
+      (set-buffer-multibyte nil)
       (erase-buffer)
       (setq wl-sent-message-via nil)
       ;; Insert our usual headers.
@@ -587,7 +587,7 @@ Return number if put mark succeed"
       (let ((beg (point)))
        ;; Insert the message to be resent.
        (insert
-        ;; elmo-message-fetch is erace current buffer before fetch message
+        ;; elmo-message-fetch is erase current buffer before fetch message
         (elmo-message-fetch-string folder number
                                    (if wl-summary-resend-use-cache
                                        (elmo-make-fetch-strategy