From: yoichi <yoichi>
Date: Wed, 7 Jan 2004 14:20:40 +0000 (+0000)
Subject: * wl-action.el (wl-summary-set-action-refile): Don't proceed if
X-Git-Tag: wl-2_11_23~7
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=fea374b0ac9c8b727a31a1bb76dd0e7a0700423d;p=elisp%2Fwanderlust.git

* wl-action.el (wl-summary-set-action-refile): Don't proceed if
destination folder is empty.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 88e9e8f..26cd807 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2004-01-07  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* wl-action.el (wl-summary-set-action-refile): Don't proceed if
+	destination folder is empty.
+
 2004-01-07  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-summary.el (wl-summary-buffer-prev-copy-destination): Abolish.
diff --git a/wl/wl-action.el b/wl/wl-action.el
index fe0a28d..980be79 100644
--- a/wl/wl-action.el
+++ b/wl/wl-action.el
@@ -434,6 +434,8 @@ Return number if put mark succeed"
 
 ;; Refile action
 (defun wl-summary-set-action-refile (number mark data)
+  (when (null data)
+    (error "Destination folder is empty"))
   (let ((policy (wl-get-assoc-list-value wl-refile-policy-alist
 					 (wl-summary-buffer-folder-name)))
 	(elem wl-summary-mark-action-list))