From af4314de1add8d9387443d89c9415448c07e8dee Mon Sep 17 00:00:00 2001 From: yoichi Date: Fri, 31 Jan 2003 13:24:17 +0000 Subject: [PATCH] * elmo-imap4.el (elmo-folder-expand-msgdb-path): Don't expand mailbox (e.g. for %~/something). --- elmo/ChangeLog | 5 +++++ elmo/elmo-imap4.el | 6 +++--- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 0ecb0cf..af26b9a 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,8 @@ +2003-01-31 Yoichi NAKAYAMA + + * elmo-imap4.el (elmo-folder-expand-msgdb-path): Don't expand + mailbox (e.g. for %~/something). + 2003-01-31 TAKAHASHI Kaoru * elmo-localdir.el (elmo-folder-rename-internal): Referctoring; diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el index 41ea9b4..0d29d81 100644 --- a/elmo/elmo-imap4.el +++ b/elmo/elmo-imap4.el @@ -1804,15 +1804,15 @@ Return nil if no complete line has arrived." (setq mailbox "inbox")) (if (eq (string-to-char mailbox) ?/) (setq mailbox (substring mailbox 1 (length mailbox)))) - (expand-file-name - mailbox + (concat ; don't use expand-file-name (e.g. %~/something) (expand-file-name (or (elmo-net-folder-user-internal folder) "nobody") (expand-file-name (or (elmo-net-folder-server-internal folder) "nowhere") (expand-file-name "imap" - elmo-msgdb-directory))))))) + elmo-msgdb-directory))) + "/" mailbox)))) (luna-define-method elmo-folder-status-plugged ((folder elmo-imap4-folder)) -- 1.7.10.4