From: hmurata <hmurata>
Date: Thu, 24 Feb 2005 23:46:00 +0000 (+0000)
Subject: (wl-summary-exec-action-resend-subr): Disable
X-Git-Tag: wl-2_14-root~25
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=eb48762d4c938bbb06ab9d030453293deade459e;p=elisp%2Fwanderlust.git

(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
--- 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
--- 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