* 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 (file)
--- 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 (file)
--- 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