From: teranisi <teranisi>
Date: Thu, 24 Oct 2002 13:50:06 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-highlight-and-recenter): Restore
X-Git-Tag: wl-2_11_1~84
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c43344ef9bee9267ff00abedc19251551c4b43e0;p=elisp%2Fwanderlust.git

* wl-draft.el (wl-draft-highlight-and-recenter): Restore
buffer-modified status (Thanks to
Tomotaka SUWA <cooper@saitama.fujimic.fujisankei-g.co.jp>).
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index f92789d..ad9a2b4 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2002-10-24  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-draft.el (wl-draft-highlight-and-recenter): Restore
+	buffer-modified status (Thanks to
+	Tomotaka SUWA <cooper@saitama.fujimic.fujisankei-g.co.jp>).
+
 2002-10-22  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-util.el (wl-region-exists-p): New function.
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 053b9fa..cf637ca 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -2305,11 +2305,13 @@ Automatically applied in draft sending time."
 
 (defun wl-draft-highlight-and-recenter (&optional n)
   (interactive "P")
-  (if wl-highlight-body-too
-      (let ((beg (point-min))
-	    (end (point-max)))
-	(put-text-property beg end 'face nil)
-	(wl-highlight-message beg end t)))
+  (when wl-highlight-body-too
+    (let ((modified (buffer-modified-p)))
+      (unwind-protect
+	  (progn
+	    (put-text-property (point-min) (point-max) 'face nil)
+	    (wl-highlight-message (point-min) (point-max) t))
+	(set-buffer-modified-p modified))))
   (recenter n))
 
 ;;;; user-agent support by Sen Nagata