From 8fd288a96c456741e638b86417fc669c987a90ef Mon Sep 17 00:00:00 2001 From: teranisi Date: Wed, 4 Jul 2001 06:21:41 +0000 Subject: [PATCH] * wl-summary.el (wl-summary-exec-subr): Delete message buffer only when message at cursor point is deleted. --- wl/ChangeLog | 5 +++++ wl/wl-summary.el | 5 ++++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index f0daa17..bf35862 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2001-07-04 Yuuichi Teranishi + + * wl-summary.el (wl-summary-exec-subr): Delete message buffer only when + message at cursor point is deleted. + 2001-07-02 Yuuichi Teranishi * wl-vars.el: Changed file coding system to euc-japan. diff --git a/wl/wl-summary.el b/wl/wl-summary.el index 867b143..1a6bae6 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -3184,7 +3184,10 @@ 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) - (wl-summary-toggle-disp-msg 'off) + (unless (eq (wl-summary-message-number) + (with-current-buffer wl-message-buffer + wl-message-buffer-cur-number)) + (wl-summary-toggle-disp-msg 'off)) (set-buffer-modified-p nil) (message (concat "Executing ... done" (if (> refile-failures 0) -- 1.7.10.4