[mew-dist 25889] Re: mew-nmz-prog-mknmz-args

[Hideyuki SHIRAI ( 白井秀行 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [mew-dist 25888] mew-nmz-prog-mknmz-args
Message-ID: <20050107.162008.133042568.kazu at example.com>
Date: Fri, 07 Jan 2005 16:20:08 +0900 (JST)

> mew-nmz-prog-mknmz-args って有効ですか？ 

おぉ (_ _)

-- 
白井秀行 (mailto:shirai at example.com)

Index: mew-nmz.el
===================================================================
RCS file: /cvsmew/mew/mew-nmz.el,v
retrieving revision 1.13
diff -u -u -r1.13 mew-nmz.el
--- mew-nmz.el	7 Jan 2005 04:31:03 -0000	1.13
+++ mew-nmz.el	7 Jan 2005 07:36:08 -0000
@@ -288,14 +288,15 @@
 	(setq continue t))
        ((and flddir nmzdir (file-directory-p flddir))
 	(setq args (delq nil
-			 (list "--no-encode-uri" "--mailnews"
-			       (when (and incfile (file-exists-p incfile))
-				 (format "--include=%s" incfile))
-			       "--allow=^[0-9]+$"
-			       (format "--exclude=%s"
-				       (expand-file-name "[^/]+/" flddir))
-			       (format "--output-dir=%s" nmzdir)
-			       flddir)))
+			 (append args
+				 (list "--no-encode-uri" "--mailnews"
+				       (when (and incfile (file-exists-p incfile))
+					 (format "--include=%s" incfile))
+				       "--allow=^[0-9]+$"
+				       (format "--exclude=%s"
+					       (expand-file-name "[^/]+/" flddir))
+				       (format "--output-dir=%s" nmzdir)
+				       flddir))))
 	(unless (file-directory-p nmzdir)
 	  (mew-make-directory nmzdir))
 	(when remove