2000-10-15 Osamu Yamane <yamane@green.ocn.ne.jp>

	* wl-summary.el (wl-summary-refile-subr): Fix.

2000-10-15  Kenichi OKADA  <okada@opaopa.org>

	* wl-summary.el (wl-summary-refile-subr): Check dst-spec-plugged
	if pipe folder.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 22d2812..625cc6e 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,12 @@
+2000-10-15  Osamu Yamane <yamane@green.ocn.ne.jp>
+
+       * wl-summary.el (wl-summary-refile-subr): Fix.
+
+2000-10-15  Kenichi OKADA  <okada@opaopa.org>
+
+       * wl-summary.el (wl-summary-refile-subr): Check dst-spec-plugged
+       if pipe folder.
+
 2000-10-17  Kenichi OKADA  <okada@opaopa.org>
 
        * 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 (file)
--- 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))