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