From: hmurata Date: Sat, 27 Sep 2003 11:53:23 +0000 (+0000) Subject: * wl-summary.el (wl-summary-update-persistent-mark): Call X-Git-Tag: wl-2_11_19~38 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e93172050fe651aff94e7d078a0e7e1e0143810a;p=elisp%2Fwanderlust.git * wl-summary.el (wl-summary-update-persistent-mark): Call wl-summary-set-message-modified. --- diff --git a/wl/ChangeLog b/wl/ChangeLog index 5d43e1d..d3d8b47 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,5 +1,8 @@ 2003-09-27 Hiroya Murata + * wl-summary.el (wl-summary-update-persistent-mark): Call + wl-summary-set-message-modified. + * wl-summary.el (wl-summary-sync-update): Don't call wl-summary-update-status-marks. diff --git a/wl/wl-summary.el b/wl/wl-summary.el index e5873eb..4169deb 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -2804,20 +2804,19 @@ The mark is decided according to the FOLDER, FLAGS and CACHED." (defun wl-summary-update-persistent-mark () "Synch up persistent mark of current line with msgdb's. Return non-nil if the mark is updated" - (if wl-summary-buffer-persistent-mark-column - (save-excursion - (move-to-column wl-summary-buffer-persistent-mark-column) - (let ((inhibit-read-only t) - (buffer-read-only nil) - (mark (buffer-substring (- (point) 1) (point))) - (new-mark (wl-summary-persistent-mark))) - (unless (string= new-mark mark) - (delete-backward-char 1) - (insert new-mark)) - (when wl-summary-highlight - (wl-highlight-summary-current-line)) - (set-buffer-modified-p nil) - t)) + (prog1 + (when wl-summary-buffer-persistent-mark-column + (save-excursion + (move-to-column wl-summary-buffer-persistent-mark-column) + (let ((inhibit-read-only t) + (buffer-read-only nil) + (mark (buffer-substring (- (point) 1) (point))) + (new-mark (wl-summary-persistent-mark))) + (unless (string= new-mark mark) + (delete-backward-char 1) + (insert new-mark) + (wl-summary-set-message-modified) + t)))) (when wl-summary-highlight (wl-highlight-summary-current-line)) (set-buffer-modified-p nil)))