From: okada <okada>
Date: Tue, 17 Oct 2000 06:44:47 +0000 (+0000)
Subject: 2000-10-15  Osamu Yamane <yamane@green.ocn.ne.jp>
X-Git-Tag: wl-2_4-root~141
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=dbcca347d4c0665a1f975c7ea4d6d2cffd402cb4;p=elisp%2Fwanderlust.git

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
--- 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
--- 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))