From dbcca347d4c0665a1f975c7ea4d6d2cffd402cb4 Mon Sep 17 00:00:00 2001 From: okada Date: Tue, 17 Oct 2000 06:44:47 +0000 Subject: [PATCH] 2000-10-15 Osamu Yamane * wl-summary.el (wl-summary-refile-subr): Fix. 2000-10-15 Kenichi OKADA * wl-summary.el (wl-summary-refile-subr): Check dst-spec-plugged if pipe folder. --- wl/ChangeLog | 9 +++++++++ wl/wl-summary.el | 11 ++++++----- 2 files changed, 15 insertions(+), 5 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 22d2812..625cc6e 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,12 @@ +2000-10-15 Osamu Yamane + + * wl-summary.el (wl-summary-refile-subr): Fix. + +2000-10-15 Kenichi OKADA + + * wl-summary.el (wl-summary-refile-subr): Check dst-spec-plugged + if pipe folder. + 2000-10-17 Kenichi OKADA * wl-vars.el (wl-draft-use-cache): Default `nil'. diff --git a/wl/wl-summary.el b/wl/wl-summary.el index dc912db..6267512 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -3519,11 +3519,12 @@ If optional argument NUMBER is specified, mark message specified by NUMBER." (message "Force refile to %s." folder))) (if (string= folder wl-summary-buffer-folder-name) (error "Same folder")) - (if (and - (not (elmo-folder-plugged-p wl-summary-buffer-folder-name)) - (or (null msgid) - (not (elmo-cache-exists-p msgid)))) - (error "Unplugged (no cache or msgid)")) + (unless (or (elmo-folder-plugged-p wl-summary-buffer-folder-name) + (and (eq (elmo-folder-get-type wl-summary-buffer-folder-name) 'pipe) + (elmo-folder-plugged-p + (elmo-pipe-spec-dst (elmo-folder-get-spec wl-summary-buffer-folder-name)))) + (elmo-cache-exists-p msgid)) + (error "Unplugged (no cache or msgid)")) (if (or (string= folder wl-queue-folder) (string= folder wl-draft-folder)) (error "Don't %s messages to %s" copy-or-refile folder)) -- 1.7.10.4