* 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 (file)
--- 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