From: teranisi <teranisi>
Date: Wed, 21 Feb 2001 10:45:14 +0000 (+0000)
Subject: * wl-highlight.el (wl-highlight-summary-window): Call `set-buffer-modified-p'.
X-Git-Tag: wl-2_6-root~89
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=68751f2017308e9e9f8b61eb6c7aa3f7a8d628b7;p=elisp%2Fwanderlust.git

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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 0c8b63e..2e2d738 100644
--- 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
--- 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))