From 3f902466589f92d94e1e4d6c8ff4b4f22449b620 Mon Sep 17 00:00:00 2001 From: yoichi Date: Sun, 16 Feb 2003 16:05:46 +0000 Subject: [PATCH] * wl-mime.el (wl-summary-burst): Update summary only when target folder equals current folder. --- wl/ChangeLog | 5 +++++ wl/wl-mime.el | 10 ++++++---- 2 files changed, 11 insertions(+), 4 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index c757b6a..f4ccb26 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2003-02-17 Yoichi NAKAYAMA + + * wl-mime.el (wl-summary-burst): Update summary only when target + folder equals current folder. + 2003-02-16 Yoichi NAKAYAMA * wl-thread.el (wl-thread-set-parent): Reconstruct number-list. diff --git a/wl/wl-mime.el b/wl/wl-mime.el index cc0d236..37afaf2 100644 --- a/wl/wl-mime.el +++ b/wl/wl-mime.el @@ -438,12 +438,12 @@ With ARG, ask destination folder." (interactive "P") (let ((raw-buf (wl-summary-get-original-buffer)) (view-buf wl-message-buffer) - children message-entity content-type target) + children message-entity content-type target-name target) (save-excursion (setq target wl-summary-buffer-elmo-folder) (when (or arg (not (elmo-folder-writable-p target))) - (let ((fld (wl-summary-read-folder wl-default-folder "to extract to"))) - (setq target (wl-folder-get-elmo-folder fld)))) + (setq target-name (wl-summary-read-folder wl-default-folder "to extract to")) + (setq target (wl-folder-get-elmo-folder target-name))) (wl-summary-set-message-buffer-or-redisplay) (with-current-buffer view-buf (setq message-entity (get-text-property (point-min) 'mime-view-entity))) @@ -454,7 +454,9 @@ With ARG, ask destination folder." (message "Bursting...done")) (if (elmo-folder-plugged-p target) (elmo-folder-check target))) - (wl-summary-sync-update))) + (when (or (not target-name) + (string= wl-summary-buffer-folder-name target-name)) + (save-excursion (wl-summary-sync-update))))) ;; internal variable. (defvar wl-mime-save-directory nil "Last saved directory.") -- 1.7.10.4