From: kaoru <kaoru>
Date: Wed, 6 Jan 2010 11:07:06 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-update-persistent-mark-on-event):
X-Git-Tag: elmo-imap4-compliance-root~27
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=22b98e8265691c80573b7e52a59be0f930f4f927;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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