From: yoichi <yoichi>
Date: Fri, 31 Jan 2003 13:24:17 +0000 (+0000)
Subject: * elmo-imap4.el (elmo-folder-expand-msgdb-path): Don't expand
X-Git-Tag: wl-2_11_2~6
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=af4314de1add8d9387443d89c9415448c07e8dee;p=elisp%2Fwanderlust.git

* elmo-imap4.el (elmo-folder-expand-msgdb-path): Don't expand
mailbox (e.g. for %~/something).
---

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  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* elmo-imap4.el (elmo-folder-expand-msgdb-path): Don't expand
+	mailbox (e.g. for %~/something).
+
 2003-01-31  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* 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))