From a321b4e2a82010a080081c04f5c9c1637cc3fbb4 Mon Sep 17 00:00:00 2001 From: teranisi Date: Wed, 1 Nov 2000 00:48:53 +0000 Subject: [PATCH] * wl-summary.el (wl-summary-read-folder): Fixed problem when petname folder default was selected. (Fix by HIROSE Yuuji ) * wl-refile.el (wl-refile-guess-by-rule): Use `wl-folder-get-realname'. --- wl/ChangeLog | 9 +++++++++ wl/wl-refile.el | 2 +- wl/wl-summary.el | 6 +++--- 3 files changed, 13 insertions(+), 4 deletions(-) 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 + + * wl-summary.el (wl-summary-read-folder): Fixed problem when + petname folder default was selected. + (Fix by HIROSE Yuuji ) + + * wl-refile.el (wl-refile-guess-by-rule): + Use `wl-folder-get-realname'. + 2000-10-31 Yuuichi Teranishi * 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)) -- 1.7.10.4