* 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 (file)
--- 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 (file)
--- 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 (file)
--- 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))