From: okazaki <okazaki>
Date: Sat, 3 Jun 2000 11:58:19 +0000 (+0000)
Subject: * wl-message.el (wl-message-normal-get-original-buffer): Use
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d706d2b57648effc52d4cca401527032f65e3e97;p=elisp%2Fwanderlust.git

* wl-message.el (wl-message-normal-get-original-buffer): Use
`save-excursion'.
---

diff --git a/wl/wl-message.el b/wl/wl-message.el
index b98418c..e8ec543 100644
--- a/wl/wl-message.el
+++ b/wl/wl-message.el
@@ -337,13 +337,13 @@
 	(setq wl-message-buffer-cur-summary-buffer sum-buf)))))
 
 (defun wl-message-normal-get-original-buffer ()
-  (let (ret-val)
-    (if (setq ret-val (get-buffer wl-original-buf-name))
-	ret-val
-      (set-buffer (setq ret-val 
-			(get-buffer-create wl-original-buf-name)))
-      (wl-message-original-mode)
-      ret-val)))
+  (let ((ret-val (get-buffer wl-original-buf-name)))
+    (if (not ret-val)
+	(save-excursion
+	  (set-buffer (setq ret-val 
+			    (get-buffer-create wl-original-buf-name)))
+	  (wl-message-original-mode)))
+    ret-val))
 
 
 (if wl-use-semi