From 53612e8a687e26b26a8f4141150c87b701d3bc02 Mon Sep 17 00:00:00 2001 From: yoichi Date: Sun, 6 Oct 2002 11:02:11 +0000 Subject: [PATCH] * wl-mime.el (wl-summary-burst): Get elmo-folder correctly. Take prefix argument to force asking the destination folder. --- wl/ChangeLog | 5 +++++ wl/wl-mime.el | 13 +++++++------ 2 files changed, 12 insertions(+), 6 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 5dcf522..f7fab5b 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2002-10-06 Yoichi NAKAYAMA + + * wl-mime.el (wl-summary-burst): Get elmo-folder correctly. + Take prefix argument to force asking the destination folder. + 2002-09-23 Yoichi NAKAYAMA * wl-summary.el (wl-summary-cursor-move-surface): Add missing diff --git a/wl/wl-mime.el b/wl/wl-mime.el index 18c3034..7f09b26 100644 --- a/wl/wl-mime.el +++ b/wl/wl-mime.el @@ -189,17 +189,18 @@ By setting following-method as yank-content." (mime-entity-fetch-field entity "Message-ID"))))) number)) -(defun wl-summary-burst () - "" - (interactive) +(defun wl-summary-burst (&optional arg) + "De-capsulate embedded messages in MIME format. +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) (save-excursion (setq target wl-summary-buffer-elmo-folder) - (while (not (elmo-folder-writable-p target)) - (setq target - (wl-summary-read-folder wl-default-folder "to extract to"))) + (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)))) (wl-summary-set-message-buffer-or-redisplay) (with-current-buffer view-buf (setq message-entity (get-text-property (point-min) 'mime-view-entity))) -- 1.7.10.4