[mew-dist 26471] Re: Courier imap namespace w/ shared-folder

[Kazu Yamamoto ( 山本和彦 )]

山本です。

質問に誘導されて、変な思い込みをしていました。

> 現状では、デフォルトおよび mew-imap-prefix-list で INBOX が含まれてい
> ると shared が表れません。これらを外して、たとえば '("shared.") を指定
> すると、shared.* は参照できるようになるのですが、INBOX 配下は INBOX を
> 指定する必要があるので、あまり嬉しくありません。

mew-imap-prefix-list は、ユーザの空間にしか影響ありません。
しかも、NAMESPACE でユーザの空間を複数返す UW にしか関係ありません。

Courier は、デフォルトの nil が正解です。(UW でも、おおむねデフォルトで
正解。)

> <NAMESPACE>
> * NAMESPACE (("INBOX." ".")) NIL (("#shared." ".")("shared." "."))
> rgwg5246 OK NAMESPACE completed.
> 
> [mew-dist 23790] で実現されていたらしいフォルダ指定方法ができると
> ありがたいのですが、うまく設定すると救われるのでしょうか?

指定できないって書いてあったので、名前の展開に問題があると言っているの
かと思いきや、単に "g" で移動できないってことですね？

試しに、
	(mew-imap-expand-mailbox "case" "%#sharp.foo")
を評価すると、
	#sharp.foo
になりますね？
(共有の空間に "#" があるので、"#" は保存されるはず)

もしそうなら、単にフォルダリストが取れていないのです。

どうも "INBOX.*" しか取得しないコードになっているようなので、
以下に (#shared を含む) "*" を取るようにするパッチを付けます。

パッチを当て、
mew-imap-prefix-list の設定を削ってデフォルトに戻し、
"3Z" として下さい。

問題が解決する可能性は大です。

--かず

Index: mew-imap.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-imap.el,v
retrieving revision 1.251
diff -c -r1.251 mew-imap.el
*** mew-imap.el	2 Jun 2005 08:52:06 -0000	1.251
--- mew-imap.el	6 Jul 2005 13:01:06 -0000
***************
*** 714,722 ****
  		  "Listing"
  		  nil
  		  (mew-imap-secure-p pnm))
!   (let ((my-prefix (mew-imap-get-my-prefix pnm)))
      (mew-imap-message pnm "Collecting mailbox list...")
!     (mew-imap-process-send-string pro pnm "LIST \"%s\" *" (or my-prefix ""))))
  
  (defun mew-imap-command-post-list (pro pnm)
    (let* ((case (mew-imap-get-case pnm))
--- 714,724 ----
  		  "Listing"
  		  nil
  		  (mew-imap-secure-p pnm))
!   (let* ((my-prefix (mew-imap-get-my-prefix pnm))
! 	 (case (mew-imap-get-case pnm))
! 	 (prefix-list (mew-imap-prefix-list case)))
      (mew-imap-message pnm "Collecting mailbox list...")
!     (mew-imap-process-send-string pro pnm "LIST \"%s\" *" (or (and prefix-list my-prefix) ""))))
  
  (defun mew-imap-command-post-list (pro pnm)
    (let* ((case (mew-imap-get-case pnm))