* elmo-spam.el (elmo-spam-scheme): Add 'sa' as a candidate.

[elisp/wanderlust.git] / wl / wl-action.el

diff --git a/wl/wl-action.el b/wl/wl-action.el
index fe0a28d..e164137 100644 (file)
--- 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))
@@ -782,8 +784,9 @@ Return number if put mark succeed"
 (defun wl-summary-refile-prev-destination ()
   "Refile message to previously refiled destination."
   (interactive)
-  (wl-summary-refile (wl-summary-message-number)
-                    wl-summary-buffer-prev-refile-destination)
+  (funcall (symbol-function 'wl-summary-refile)
+          (wl-summary-message-number)
+          wl-summary-buffer-prev-refile-destination)
   (if (and (interactive-p)
           (eq wl-summary-move-direction-downward nil))
       (wl-summary-prev)