* wl-summary.el (wl-summary-update-persistent-mark-on-event):

Revert `save-excursion' for `wl-summary-jump-to-msg'.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 7a96187..353d523 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2010-01-06  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+       * wl-summary.el (wl-summary-update-persistent-mark-on-event):
+       Revert `save-excursion' for `wl-summary-jump-to-msg'.
+
 2010-01-05  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
        * wl.el (wl-toggle-plugged, wl-plugged-dop-queue-info)

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 0930360..83998c4 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -653,32 +653,33 @@ See also variable `wl-use-petname'."
 ;; Handler of event from elmo-folder
 (defun wl-summary-update-persistent-mark-on-event (buffer numbers)
   (with-current-buffer buffer
-    (if wl-summary-lazy-update-mark
-       (let ((window-list (get-buffer-window-list (current-buffer) 'nomini t))
-             invalidate)
-         (dolist (number numbers)
-           (when (wl-summary-message-visible-p number)
-             (if (catch 'visible
-                   (let ((window-list window-list)
-                         win)
-                     (while (setq win (car window-list))
-                       (when (wl-summary-jump-to-msg number
-                                                     (window-start win)
-                                                     (window-end win))
-                         (throw 'visible t))
-                       (setq window-list (cdr window-list)))))
-                 (wl-summary-update-persistent-mark number)
-               (setq invalidate t))))
-         (when invalidate
-           (wl-summary-invalidate-persistent-mark)
-           (dolist (win window-list)
-             (wl-summary-validate-persistent-mark
-              (window-start win)
-              (window-end win)))))
-      (dolist (number numbers)
-       (when (and (wl-summary-message-visible-p number)
-                  (wl-summary-jump-to-msg number))
-         (wl-summary-update-persistent-mark number))))))
+    (save-excursion
+      (if wl-summary-lazy-update-mark
+         (let ((window-list (get-buffer-window-list (current-buffer) 'nomini t))
+               invalidate)
+           (dolist (number numbers)
+             (when (wl-summary-message-visible-p number)
+               (if (catch 'visible
+                     (let ((window-list window-list)
+                           win)
+                       (while (setq win (car window-list))
+                         (when (wl-summary-jump-to-msg number
+                                                       (window-start win)
+                                                       (window-end win))
+                           (throw 'visible t))
+                         (setq window-list (cdr window-list)))))
+                   (wl-summary-update-persistent-mark number)
+                 (setq invalidate t))))
+           (when invalidate
+             (wl-summary-invalidate-persistent-mark)
+             (dolist (win window-list)
+               (wl-summary-validate-persistent-mark
+                (window-start win)
+                (window-end win)))))
+       (dolist (number numbers)
+         (when (and (wl-summary-message-visible-p number)
+                    (wl-summary-jump-to-msg number))
+           (wl-summary-update-persistent-mark number)))))))
 
 (defun wl-summary-buffer-attach ()
   (when wl-summary-buffer-elmo-folder