[mew-dist 24164] Re: Type '3 Z' to collect IMAP folders!

[Kazu Yamamoto ( 山本和彦 )]

From: Tomoya Ida <tomoya.ida at example.com>
Subject: [mew-dist 24161] Re: Type '3 Z' to collect IMAP folders!

>  |これで直るでしょうか？
> 
> だめのようです。

申し訳ないです。

オリジナルに、これを当てて試して下さい。

これでダメだと、本格的なデバッグが必要かもしれません。

--かず

Index: mew-imap.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-imap.el,v
retrieving revision 1.195
diff -c -r1.195 mew-imap.el
*** mew-imap.el	26 Aug 2003 08:42:43 -0000	1.195
--- mew-imap.el	6 Nov 2003 12:58:57 -0000
***************
*** 63,69 ****
      ;;
      ("fetch"         ("OK" . "post-fetch"))
      ;;
!     ("namespace"     ("OK" . "post-namespace") ("NO" . "list"))
      ("list"          ("OK" . "post-list"))
      ;;
      ("logout"        ("OK" . "noop"))))
--- 63,69 ----
      ;;
      ("fetch"         ("OK" . "post-fetch"))
      ;;
!     ("namespace"     ("OK" . "post-namespace") ("NO\\|BAD" . "list"))
      ("list"          ("OK" . "post-list"))
      ;;
      ("logout"        ("OK" . "noop"))))
***************
*** 632,638 ****
  	 ret mailboxes friends)
      (mew-eol-fix-for-read)
      (unless namespace
!       (mew-imap-namespace-create nil "" "" nil) ;; xxx not test
        (mew-imap-set-namespace pnm namespace))
      (setq ret (mew-imap-command-post-list-tree namespace case))
      (setq mailboxes (nth 0 ret) friends (nth 1 ret))
--- 632,638 ----
  	 ret mailboxes friends)
      (mew-eol-fix-for-read)
      (unless namespace
!       (setq namespace (mew-imap-namespace-create nil "" "" nil))
        (mew-imap-set-namespace pnm namespace))
      (setq ret (mew-imap-command-post-list-tree namespace case))
      (setq mailboxes (nth 0 ret) friends (nth 1 ret))
***************
*** 642,648 ****
      (mew-imap-set-status pnm "logout")
      (mew-imap-command-logout pro pnm)))
  
- ;; xxx namespace would be nil.
  (defun mew-imap-command-post-list-tree (namespace case)
    (let* ((case-fold-search t)
  	 (my   (format "^%s" (regexp-quote
--- 642,647 ----