[mew-dist 24714] Re: Can't go to IMAP folder that contains subfolder.

[Shigeru Yasuda]

In article <20040309.200653.630098133.yasuda at example.com>,
     Shigeru Yasuda <yasuda at example.com> wrote:

>> サブフォルダを含む IMAP フォルダに移動できないことに気が付きました。
>> 
>> "%parent/child" のようなフォルダがある状態で、g で "%parent" に移動
>> しようとすると、そんなのないと言って怒られます。

>> とりあえず、手元では mew-imap-mailbox-arrange をバッサリ削って回避して
>> いるのですが、正式にどのようにすべきかはちょっと判断できなかったので、
>> 対処して頂けると助かります。

以下のように mew-summary-goto-folder のチェックのところで
対処した方がいいような気がしてきたので、修正してみました。
これでサブフォルダを含む IMAP フォルダにも移動できるようになりました。

問題がなければ取り込んで頂けるようにお願いします。

Index: mew-summary4.el
===================================================================
RCS file: /cvsmew/mew/mew-summary4.el,v
retrieving revision 1.126
diff -u -r1.126 mew-summary4.el
--- mew-summary4.el	5 Mar 2004 07:01:07 -0000	1.126
+++ mew-summary4.el	10 Mar 2004 08:56:56 -0000
@@ -68,9 +68,14 @@
 	 (folder (mew-case:folder-folder case:folder))
 	 buf win frame goend)
     (if (mew-folder-imapp folder)
-	(unless (assoc folder (mew-imap-folder-alist case))
-	  (message "%s does not exist" case:folder)
-	  (setq case:folder nil)))
+	(let ((folder-alist (mew-imap-folder-alist case)))
+	  (or (assoc folder folder-alist)
+	      (assoc (concat folder
+			     (mew-imap-namespace-sep (mew-imap-namespace case)))
+		     folder-alist)
+	      (progn
+		(message "%s does not exist" case:folder)
+		(setq case:folder nil)))))
     (when case:folder
       (when mew-use-other-frame-for-summary
 	(if (setq buf (get-buffer case:folder))

--
やすだ