From d706d2b57648effc52d4cca401527032f65e3e97 Mon Sep 17 00:00:00 2001 From: okazaki Date: Sat, 3 Jun 2000 11:58:19 +0000 Subject: [PATCH] * wl-message.el (wl-message-normal-get-original-buffer): Use `save-excursion'. --- wl/wl-message.el | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) 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 -- 1.7.10.4