From 9783f9ebecf0bdde4bc38dc03c802c068ace0ad3 Mon Sep 17 00:00:00 2001 From: yoichi Date: Fri, 18 Jun 2004 01:50:09 +0000 Subject: [PATCH] * wl-summary.el (wl-summary-sync-update): Fix the last change --- wl/wl-summary.el | 22 ++++++++++++---------- 1 file changed, 12 insertions(+), 10 deletions(-) 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))))) -- 1.7.10.4