* wl-highlight.el (wl-highlight-summary-window): Call `set-buffer-modified-p'.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 0c8b63e..2e2d738 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,8 @@
 2001-02-21  Yuuichi Teranishi  <teranisi@gohome.org>
 
+       * wl-highlight.el (wl-highlight-summary-window):
+       Call `set-buffer-modified-p'.
+
        * wl-vars.el (wl-summary-lazy-highlight): New variable.
 
        * wl-summary.el (wl-summary-mode): Set up window-scroll-functions

diff --git a/wl/wl-highlight.el b/wl/wl-highlight.el
index e73a998..ec8b5a1 100644 (file)
--- a/wl/wl-highlight.el
+++ b/wl/wl-highlight.el
@@ -1023,7 +1023,8 @@ This function is defined for `window-scroll-functions'"
                              (save-excursion
                                (goto-char (window-start win))
                                (forward-line (frame-height))
-                               (point))))))
+                               (point)))
+       (set-buffer-modified-p nil))))
 
 (defun wl-highlight-headers (&optional for-draft)
   (let ((beg (point-min))