From: yoichi <yoichi>
Date: Fri, 18 Jun 2004 01:50:09 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-sync-update): Fix the last change
X-Git-Tag: wl-2_11_31~105
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9783f9ebecf0bdde4bc38dc03c802c068ace0ad3;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-sync-update): Fix the last change
---

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index ecaa60c..c3b5408 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -2023,17 +2023,19 @@ This function is defined for `window-scroll-functions'"
 	    (progn
 	      (goto-char (point-max))
 	      (forward-line -1))
-	  (when wl-summary-highlight
-	    (if wl-summary-lazy-highlight
-		(run-hooks 'wl-summary-buffer-window-scroll-functions)
-	      (when (not (get-text-property (point) 'face))
-		(save-excursion
-		  (forward-line (- 0
-				   (or
-				    wl-summary-partial-highlight-above-lines
-				    wl-summary-highlight-partial-threshold)))
-		  (wl-highlight-summary (point) (point-max))))))))
+	  (when (and wl-summary-highlight
+		     (not wl-summary-lazy-highlight)
+		     (not (get-text-property (point) 'face)))
+	    (save-excursion
+	      (forward-line (- 0
+			       (or
+				wl-summary-partial-highlight-above-lines
+				wl-summary-highlight-partial-threshold)))
+	      (wl-highlight-summary (point) (point-max))))))
       (wl-delete-all-overlays)
+      (when (and wl-summary-highlight
+		 wl-summary-lazy-highlight)
+	(run-hooks 'wl-summary-buffer-window-scroll-functions))
       (set-buffer-modified-p nil)
       (if mes (message "%s" mes)))))