From 63d2dd0186626db57dae4b867541189360fb0f26 Mon Sep 17 00:00:00 2001 From: teranisi Date: Mon, 29 Sep 2003 12:53:16 +0000 Subject: [PATCH] (wl-summary-update-mark-and-highlight-window): Call set-buffer-modified-p. (wl-summary-display-top): Call wl-summary-window-scroll-functions. (wl-summary-display-bottom): Ditto. (wl-summary-toggle-disp-msg): Ditto. --- wl/ChangeLog | 8 ++++++++ wl/wl-summary.el | 18 +++++++++++------- 2 files changed, 19 insertions(+), 7 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 8ab30cd..83880f7 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,11 @@ +2003-09-29 Yuuichi Teranishi + + * wl-summary.el (wl-summary-update-mark-and-highlight-window): Call + set-buffer-modified-p. + (wl-summary-display-top): Call wl-summary-window-scroll-functions. + (wl-summary-display-bottom): Ditto. + (wl-summary-toggle-disp-msg): Ditto. + 2003-09-29 Hiroya Murata * wl-score.el (wl-score-ov-entity-get): Treat extra field. diff --git a/wl/wl-summary.el b/wl/wl-summary.el index 381ed8b..5eef392 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -578,7 +578,8 @@ See also variable `wl-use-petname'." (wl-summary-update-persistent-mark number flags) (setq wl-summary-highlight t) (wl-highlight-summary-current-line number flags)) - (forward-line 1))))))) + (forward-line 1))))) + (set-buffer-modified-p nil))) (defun wl-summary-window-scroll-functions () (or wl-summary-window-scroll-functions @@ -599,8 +600,9 @@ See also variable `wl-use-petname'." (defun wl-summary-display-top () (interactive) (goto-char (point-min)) - (when wl-summary-lazy-highlight - (wl-highlight-summary-window)) + (when wl-summary-window-scroll-functions + (dolist (function wl-summary-window-scroll-functions) + (funcall function))) (if wl-summary-buffer-disp-msg (wl-summary-redisplay))) @@ -608,8 +610,9 @@ See also variable `wl-use-petname'." (interactive) (goto-char (point-max)) (forward-line -1) - (when wl-summary-lazy-highlight - (wl-highlight-summary-window)) + (when wl-summary-window-scroll-functions + (dolist (function wl-summary-window-scroll-functions) + (funcall function))) (if wl-summary-buffer-disp-msg (wl-summary-redisplay))) @@ -3522,8 +3525,9 @@ Return non-nil if the mark is updated" (run-hooks 'wl-summary-toggle-disp-off-hook)) ;;; (switch-to-buffer cur-buf) ))) - (when wl-summary-lazy-highlight - (wl-highlight-summary-window)))) + (when wl-summary-window-scroll-functions + (dolist (function wl-summary-window-scroll-functions) + (funcall function))))) (defun wl-summary-next-line-content () "Show next line of the message." -- 1.7.10.4