[mew-dist 20575] mew-nmz problem

[KIRIAKE Masanori]

こんばんわ、切明です。

Mewを最新にしたら、mew-nmzでの検索ができなくなってしまったようです。

こんなパッチでしのいでみました。nntpのフォルダとかを考えるとこれではいけ
ないような気もするのですが、とりあえず投稿いたします。

--- Sei Ken

Index: mew-nmz.el
===================================================================
RCS file: /cvsmew/mew/contrib/mew-nmz.el,v
retrieving revision 1.8
diff -u -r1.8 mew-nmz.el
--- mew-nmz.el	2001/12/20 07:52:55	1.8
+++ mew-nmz.el	2002/03/09 10:17:54
@@ -374,7 +374,7 @@
     (mew-folder-setup (interactive-p))
     (message "folder setup...done"))
   (save-excursion
-    (let ((flist mew-folder-list))
+    (let ((flist mew-local-folder-list))
       (while (car flist)
 	(condition-case nil
 	    (mew-nmz-mknmz (car flist) nil 'call)
@@ -1123,7 +1123,7 @@
 (defun mew-nmz-gather-indexed-folder ()
   "Gather indexed folder."
   (interactive)
-  (let ((flds mew-folder-list)
+  (let ((flds mew-local-folder-list)
 	nmzdir nmzflds fld)
     (while (setq fld (car flds))
       (and (setq nmzdir (mew-nmz-expand-folder fld))
@@ -1156,7 +1156,7 @@
       nil)))
 
 (defun mew-nmz-have-figure-folder (fld)
-  (let ((flds mew-folder-list)
+  (let ((flds mew-local-local-folder-list)
 	(regex (concat "^" fld "/[1-9][0-9]*/?$")))
     (catch 'match
       (while flds