[mew-dist 23924] Re: current Mew requires "Type '3 Z'..." again...

[Kazu Yamamoto ( 山本和彦 )]

From: Koga Youichirou <y-koga at example.com>
Subject: [mew-dist 23920] current Mew requires "Type '3 Z'..." again...

> 現在の CVS 版 (4.0.56 も多分そう) では、IMAP フォルダを参照しようと
> するとまた 3 Z せい、と言ってくるようになりました。3 Z しても言われ
> 続けます。

うーん。これで直るでしょうか？

--かず

Index: mew-func.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-func.el,v
retrieving revision 1.132
diff -c -r1.132 mew-func.el
*** mew-func.el	2003/07/23 15:08:29	1.132
--- mew-func.el	2003/07/24 09:58:26
***************
*** 590,600 ****
        (if (null case)
  	  (setq folder case:folder)
  	(if (string-equal case mew-case-default)
! 	    (setq case:folder folder)))
        (cond
         ((mew-folder-popp folder) folder)
         ((mew-folder-imapp folder)
! 	(setq sep (string-to-char (mew-imap-separator mew-inherit-case)))
  	(setq len (1- (length case:folder)))
  	(if (char-equal (aref case:folder len) sep)
  	    (substring case:folder 0 len)
--- 590,603 ----
        (if (null case)
  	  (setq folder case:folder)
  	(if (string-equal case mew-case-default)
! 	    (progn
! 	      (setq case nil)
! 	      (setq case:folder folder))))
        (cond
         ((mew-folder-popp folder) folder)
         ((mew-folder-imapp folder)
! 	(setq sep (string-to-char
! 		   (mew-imap-separator (or case mew-inherit-case))))
  	(setq len (1- (length case:folder)))
  	(if (char-equal (aref case:folder len) sep)
  	    (substring case:folder 0 len)