[mew-dist 25649] mew-nmz.el

[Kazu Yamamoto ( 山本和彦 )]

mew-nmz.el ですが、

1) 以下のパッチのように修正する必要があります。
   commit してもいいでしょうか？ > 白井さん

2) mew-nmz-expand-folder() が case にもリモートフォルダにも対応していま
   せん。

   たとえば、$inbox は ~/Namazu/Mail/.pop/ 以下に作っていいのでしょうか？
   namazu が "." で始まるディレクトリ名を普通に扱ってくれるのかという質
   問です。

--かず

Index: mew-nmz.el
===================================================================
RCS file: /cvsroot/mew/mew/contrib/mew-nmz.el,v
retrieving revision 1.30
diff -c -r1.30 mew-nmz.el
*** mew-nmz.el	7 Sep 2004 03:31:31 -0000	1.30
--- mew-nmz.el	10 Nov 2004 07:37:36 -0000
***************
*** 186,193 ****
  	  (message "Please install mknmz.")
  	(and current-prefix-arg (setq remove t))
  	(if (not fld)
! 	    (setq fld (mew-input-folder (mew-sinfo-get-case)
! 					(mew-summary-folder-name 'ext)))
  	  (setq fld (directory-file-name fld)))
  	(setq figfld (mew-nmz-have-figure-folder fld))
  	(if (or (mew-folder-remotep fld)
--- 186,192 ----
  	  (message "Please install mknmz.")
  	(and current-prefix-arg (setq remove t))
  	(if (not fld)
! 	    (setq fld (mew-input-folder (mew-sinfo-get-case) (mew-sinfo-get-folder)))
  	  (setq fld (directory-file-name fld)))
  	(setq figfld (mew-nmz-have-figure-folder fld))
  	(if (or (mew-folder-remotep fld)
***************
*** 436,443 ****
  		   (list mew-message-id:)))
  	(message (if child "children" "parent"))
  	(refilefld (copy-sequence mew-nmz-search-parent-folder))
! 	(proto (or (mew-proto-to-refile (mew-summary-folder-name 'ext))
! 		   "+"))
  	(case (mew-sinfo-get-case))
  	refiledir mess ref pid rh pos)
      (if mid
--- 435,441 ----
  		   (list mew-message-id:)))
  	(message (if child "children" "parent"))
  	(refilefld (copy-sequence mew-nmz-search-parent-folder))
! 	(proto (or (mew-proto-to-refile (mew-sinfo-get-folder)) "+"))
  	(case (mew-sinfo-get-case))
  	refiledir mess ref pid rh pos)
      (if mid