From: yoichi <yoichi>
Date: Sun, 6 Oct 2002 11:02:11 +0000 (+0000)
Subject: * wl-mime.el (wl-summary-burst): Get elmo-folder correctly.
X-Git-Tag: wl-2_11_1~119
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=53612e8a687e26b26a8f4141150c87b701d3bc02;p=elisp%2Fwanderlust.git

* wl-mime.el (wl-summary-burst): Get elmo-folder correctly.
Take prefix argument to force asking the destination folder.
---

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  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* wl-mime.el (wl-summary-burst): Get elmo-folder correctly.
+	Take prefix argument to force asking the destination folder.
+
 2002-09-23  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* 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)))