[mew-dist 24171] Re: cyrus-imapd の共有メールボックスへのアクセス

[Kazu Yamamoto ( 山本和彦 )]

From: sai at example.com
Subject: [mew-dist 24170] cyrus-imapd の共有メールボックスへのアクセス

> cyrus-imapd 上に共有メールボックスを作成したのですが、mew か
> らアクセスすることができませんでした。
> 
> サーバに '#' 付きでフォルダ名を送っていることが原因のようで
> す。log を添付します。

これで直るでしょうか？

念のため、パッチを当てた後に 3Z を実行してから、実験して下さい。

--かず

Index: mew-imap.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-imap.el,v
retrieving revision 1.196
diff -c -r1.196 mew-imap.el
*** mew-imap.el	7 Nov 2003 01:14:30 -0000	1.196
--- mew-imap.el	10 Nov 2003 13:25:16 -0000
***************
*** 920,935 ****
         ((char-equal c ?~)
  	(if user-prefix (concat user-prefix substr) substr))
         ((char-equal c ?#)
! 	(if sharp substr str))
         ((string= str mew-imap-inbox-string)
  	mew-imap-inbox-string)
         (t
  	(if my-prefix (concat my-prefix str) str))))))
  
  (defun mew-imap-expand-folder (case str)
!   "%foo   -> foo
!    %~foo  -> user.foo
!    %#foo  -> #foo
  "
    (when (stringp str)
      (if (char-equal (aref str 0) ?~)
--- 920,935 ----
         ((char-equal c ?~)
  	(if user-prefix (concat user-prefix substr) substr))
         ((char-equal c ?#)
! 	(if sharp str substr))
         ((string= str mew-imap-inbox-string)
  	mew-imap-inbox-string)
         (t
  	(if my-prefix (concat my-prefix str) str))))))
  
  (defun mew-imap-expand-folder (case str)
!   "foo   -> foo
!    ~foo  -> user.foo
!    #foo  -> #foo
  "
    (when (stringp str)
      (if (char-equal (aref str 0) ?~)