From 19379384bb8901a92aa2dc91c1e5ae16d50155c3 Mon Sep 17 00:00:00 2001 From: kaoru Date: Sun, 15 Jun 2003 15:14:05 +0000 Subject: [PATCH] * elmo-imap4.el (elmo-folder-expand-msgdb-path): Don't expand mailbox (e.g. for %~/something). --- elmo/ChangeLog | 3 +++ elmo/elmo-imap4.el | 7 ++++--- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index a85a60c..2130941 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,5 +1,8 @@ 2003-06-15 TAKAHASHI Kaoru + * elmo-imap4.el (elmo-folder-expand-msgdb-path): Don't expand + mailbox (e.g. for %~/something). + * elmo-msgdb.el (elmo-msgdb-overview-entity-get-extra-field): Convert field-name to lower case. (elmo-msgdb-overview-entity-set-extra-field): Ditto. diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el index b056019..4524cbd 100644 --- a/elmo/elmo-imap4.el +++ b/elmo/elmo-imap4.el @@ -1804,15 +1804,16 @@ 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 + ;; don't use expand-file-name (e.g. %~/something) + (concat (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