From 6544724fdc31a60e7a341d53c61426b8d58011d0 Mon Sep 17 00:00:00 2001 From: yoichi Date: Tue, 14 Jan 2003 14:11:05 +0000 Subject: [PATCH] Merge from trunk: * wl-summary.el (wl-summary-exec-subr): Unset wl-message-buffer if it is not up-tp-date. --- wl/ChangeLog | 5 +++++ wl/wl-summary.el | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 4a6a980..faac845 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2003-01-14 Yoichi NAKAYAMA + + * wl-summary.el (wl-summary-exec-subr): Unset wl-message-buffer if + it is not up-tp-date. + 2003-01-12 Yoichi NAKAYAMA Merge from trunk: diff --git a/wl/wl-summary.el b/wl/wl-summary.el index 77fc39f..24ad93a 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -3119,11 +3119,13 @@ If optional argument NUMBER is specified, mark message specified by NUMBER." (wl-summary-set-message-modified) (wl-summary-set-mark-modified) (run-hooks 'wl-summary-exec-hook) + ;; message buffer is not up-to-date (unless (and wl-message-buffer (eq (wl-summary-message-number) (with-current-buffer wl-message-buffer wl-message-buffer-cur-number))) - (wl-summary-toggle-disp-msg 'off)) + (wl-summary-toggle-disp-msg 'off) + (setq wl-message-buffer nil)) (set-buffer-modified-p nil) (message (concat "Executing...done" (if (> refile-failures 0) -- 1.7.10.4