From fea374b0ac9c8b727a31a1bb76dd0e7a0700423d Mon Sep 17 00:00:00 2001 From: yoichi Date: Wed, 7 Jan 2004 14:20:40 +0000 Subject: [PATCH] * wl-action.el (wl-summary-set-action-refile): Don't proceed if destination folder is empty. --- wl/ChangeLog | 5 +++++ wl/wl-action.el | 2 ++ 2 files changed, 7 insertions(+) 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 + + * wl-action.el (wl-summary-set-action-refile): Don't proceed if + destination folder is empty. + 2004-01-07 Yuuichi Teranishi * 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)) -- 1.7.10.4