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

[Kazu Yamamoto ( 山本和彦 )]

From: Kenichi Niioka (新岡賢一) <ken at example.com>
Subject: [mew-dist 23927] Re: current Mew requires "Type '3 Z'..." again...

> うまく行きません。

すいません。これで直るはずです。

さらの 4.0.56 に当てて下さい。

--かず＠天空橋

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 13:34:54
***************
*** 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,605 ----
        (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) case:folder)
         ((mew-folder-imapp folder)
! 	(setq sep (string-to-char
! 		   (mew-imap-separator
! 		    (or case                 ;; visit
! 			mew-inherit-case)))) ;; refile
  	(setq len (1- (length case:folder)))
  	(if (char-equal (aref case:folder len) sep)
  	    (substring case:folder 0 len)