From 0a465b89df1dd85e0a68ec31b483ca06782ae955 Mon Sep 17 00:00:00 2001 From: yoichi Date: Tue, 3 Dec 2002 12:51:19 +0000 Subject: [PATCH] * wl-summary.el (wl-summary-target-mark-erase): Delete messages on buffer for unplugged operation. (wl-summary-erase): Ditto. --- wl/ChangeLog | 2 ++ wl/wl-summary.el | 3 +++ 2 files changed, 5 insertions(+) diff --git a/wl/ChangeLog b/wl/ChangeLog index 95e9482..d0063b8 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,6 +1,8 @@ 2002-12-03 Yoichi NAKAYAMA * wl-summary.el (wl-summary-target-mark-erase): Simplify. + Delete messages on buffer for unplugged operation. + (wl-summary-erase): Ditto. 2002-11-25 Yoichi NAKAYAMA diff --git a/wl/wl-summary.el b/wl/wl-summary.el index 61a9100..cd546eb 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -3154,6 +3154,7 @@ If optional argument NUMBER is specified, mark message specified by NUMBER." (wl-summary-unmark msg-num) (elmo-folder-delete-messages wl-summary-buffer-elmo-folder (list msg-num)) + (wl-summary-delete-messages-on-buffer (list msg-num)) (save-excursion (wl-summary-sync nil "update")))))) (message "Read-only folder."))) @@ -3166,6 +3167,8 @@ If optional argument NUMBER is specified, mark message specified by NUMBER." "Erase all marked messages without moving them to trash? ") (elmo-folder-delete-messages wl-summary-buffer-elmo-folder wl-summary-buffer-target-mark-list) + (wl-summary-delete-messages-on-buffer + wl-summary-buffer-target-mark-list) (setq wl-summary-buffer-target-mark-list nil) (save-excursion (wl-summary-sync nil "update")))) (message "Read-only folder."))) -- 1.7.10.4