From: yoichi <yoichi>
Date: Tue, 7 Dec 2004 03:44:54 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-forward): Don't call set-buffer since
X-Git-Tag: wl-2_12-root~23
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3a01a2ef6029f0514b65124627d93a2cfba484f7;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-forward): Don't call set-buffer since
there is switch-to-buffer at the end of wl-message-select-buffer.
(wl-summary-reply): Ditto.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index d06646d..aac0b60 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2004-12-07  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* wl-summary.el (wl-summary-forward): Don't call set-buffer since
+	there is switch-to-buffer at the end of wl-message-select-buffer.
+	(wl-summary-reply): Ditto.
+
 2004-12-06  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
 	* wl-summary.el (wl-summary-forward): Put subject in original
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 4729e29..c270925 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -4145,9 +4145,7 @@ Reply to author if invoked with ARG."
     (when number
       (save-excursion
 	(wl-summary-set-message-buffer-or-redisplay))
-      (setq mes-buf wl-message-buffer)
       (wl-message-select-buffer wl-message-buffer)
-      (set-buffer mes-buf)
       (condition-case err
 	  (when (setq mes-buf (wl-message-get-original-buffer))
 	    (wl-draft-reply mes-buf arg summary-buf number)
@@ -4210,7 +4208,6 @@ Use function list is `wl-summary-write-current-folder-functions'."
 	(number (wl-summary-message-number))
 	(summary-buf (current-buffer))
 	(wl-draft-forward t)
-	mes-buf
 	entity subject num)
     (if (null number)
 	(message "No message.")
@@ -4222,9 +4219,7 @@ Use function list is `wl-summary-write-current-folder-functions'."
 	  ;; Reload.
 	  (wl-summary-redisplay-internal nil nil 'force-reload)
 	(wl-summary-redisplay-internal folder number))
-      (setq mes-buf wl-message-buffer)
-      (wl-message-select-buffer mes-buf)
-      (set-buffer mes-buf)
+      (wl-message-select-buffer wl-message-buffer)
       (setq subject (with-current-buffer
 			wl-message-buffer-original-buffer
 		      (std11-field-body "Subject")))