From c43344ef9bee9267ff00abedc19251551c4b43e0 Mon Sep 17 00:00:00 2001 From: teranisi Date: Thu, 24 Oct 2002 13:50:06 +0000 Subject: [PATCH] * wl-draft.el (wl-draft-highlight-and-recenter): Restore buffer-modified status (Thanks to Tomotaka SUWA ). --- wl/ChangeLog | 6 ++++++ wl/wl-draft.el | 12 +++++++----- 2 files changed, 13 insertions(+), 5 deletions(-) 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 + + * wl-draft.el (wl-draft-highlight-and-recenter): Restore + buffer-modified status (Thanks to + Tomotaka SUWA ). + 2002-10-22 Yuuichi Teranishi * 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 -- 1.7.10.4