[mew-dist 25651] Re: mew-nmz.el

[Hideyuki SHIRAI ( 白井秀行 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [mew-dist 25649] mew-nmz.el
Message-ID: <20041110.164119.167596531.kazu at example.com>
Date: Wed, 10 Nov 2004 16:41:19 +0900 (JST)

> mew-nmz.el ですが、

へい。すっかり忘れていますが。。。

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

前半は良いのですが、後半がちょっと問題がありまして、
mew-nmz-search-parent() は、summary 以外からも呼ばれるのでガード
が必要です。冗長な気もしますが、付属のパッチでお願いします (_ _)

# いままでは、エラーにならずに "+" が帰っていたので気にしていな
# かった。

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

現状の mew-nmz はリモートフォルダには一切対応していません。なの
で、各種関数も一緒です。リモートフォルダ対応は、もう、何年も前か
らの懸案事項だったりします ^^;;;

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

Windows の shell で試してみましたが、mknmz も namazu も問題なく
動作しました。ので、UNIX でも大丈夫でしょう。

## ということは、mew-nmz のリモートフォルダ対応をやれ！というこ
## とかしらん。リクエストを聞いたことがないし、ぼくが local で生
## 活しているので必要性を感じていなかったんだけど ^^;;;

-- 
白井秀行 (mailto:shirai at example.com)

Index: mew-nmz.el
===================================================================
RCS file: /cvsroot/shirai/mew/mew/mew-nmz.el,v
retrieving revision 1.69
diff -u -u -r1.69 mew-nmz.el
--- mew-nmz.el	2004/09/07 02:09:29	1.69
+++ mew-nmz.el	2004/11/10 08:52:36
@@ -186,8 +186,7 @@
 	  (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 (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,7 +435,9 @@
 		   (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))
+	(proto (or (mew-proto-to-refile (or (mew-sinfo-get-folder)
+					    (mew-minfo-get-summary)
+					    "+"))
 		   "+"))
 	(case (mew-sinfo-get-case))
 	refiledir mess ref pid rh pos)