From: teranisi <teranisi>
Date: Wed, 1 Nov 2000 00:48:53 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-read-folder): Fixed problem when petname folder
X-Git-Tag: wl-2_4-root~29
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a321b4e2a82010a080081c04f5c9c1637cc3fbb4;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-read-folder): Fixed problem when petname folder
 default was selected. (Fix by HIROSE Yuuji <yuuji@gentei.org>)

* wl-refile.el (wl-refile-guess-by-rule): Use `wl-folder-get-realname'.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index bd65029..6857b22 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,12 @@
+2000-11-01  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-summary.el (wl-summary-read-folder): Fixed problem when
+	petname folder default was selected.
+	(Fix by HIROSE Yuuji <yuuji@gentei.org>)
+
+	* wl-refile.el (wl-refile-guess-by-rule):
+	Use `wl-folder-get-realname'.
+
 2000-10-31  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-nemacs.el (wl-draft-overload-functions): Bind 'C-c C-e'
diff --git a/wl/wl-refile.el b/wl/wl-refile.el
index 03dff24..4def198 100644
--- a/wl/wl-refile.el
+++ b/wl/wl-refile.el
@@ -247,7 +247,7 @@ If RULE does not match ENTITY, returns nil."
       (if (setq guess (wl-refile-evaluate-rule (car rules) entity))
 	  (setq rules nil)
 	(setq rules (cdr rules))))
-    guess))
+    (wl-folder-get-realname guess)))
 
 (defun wl-refile-guess-by-history (entity)
   (let ((tocc-list
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index deae3c9..124a01c 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -3410,12 +3410,12 @@ If optional argument NUMBER is specified, mark message specified by NUMBER."
 		    wl-folder-entity-hashtb))
 	      nil nil (or init wl-default-spec)
 	      'wl-read-folder-hist)))
-    (setq fld (elmo-string (wl-folder-get-realname fld)))
-    (if (string-match "\n" fld)
-	(error "Not supported folder name: %s" fld))
     (if (or (string= fld wl-default-spec)
 	    (string= fld ""))
 	(setq fld default))
+    (setq fld (elmo-string (wl-folder-get-realname fld)))
+    (if (string-match "\n" fld)
+	(error "Not supported folder name: %s" fld))    
     (unless no-create
       (if ignore-error
 	  (ignore-errors (wl-folder-confirm-existence fld))