From: teranisi <teranisi>
Date: Mon, 13 Nov 2000 02:47:47 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-refile-subr): Use folder realname while checking
X-Git-Tag: wl-2_4_0pre2~5
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=3f4bb986abbc2689160136c23aa274756f42b142;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-refile-subr): Use folder realname while checking
cache folder.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 36a0d3b..0402e0f 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2000-11-13  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-summary.el (wl-summary-refile-subr): Use folder realname while
+	checking cache folder.
+
 2000-11-09  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* wl-folder.el (wl-folder-guess-mailing-list-by-folder-name): Use
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 33ca8c1..c41276e 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -3522,7 +3522,8 @@ If optional argument NUMBER is specified, mark message specified by NUMBER."
 				 (or (wl-refile-guess entity) wl-trash-folder)
 				 (format "for %s" copy-or-refile)))))
       ;; Cache folder hack by okada@opaopa.org
-      (if (and (eq (car (elmo-folder-get-spec folder)) 'cache)
+      (if (and (eq (car (elmo-folder-get-spec
+			 (wl-folder-get-realname folder))) 'cache)
 	       (not (string= folder
 			     (setq tmp-folder
 				   (concat "'cache/"