[mew-win32 04152] Re: mew-nmzでインデックスが作られません。

[Hideyuki SHIRAI ( 白井秀行 )]

From: Jun-Krb <jun-krb at example.com> さん曰く
Subject: [mew-win32 04151] mew-nmzでインデックスが作られません。
Message-ID: <20041117.233947.132845021.jun-krb at example.com>
Date: Wed, 17 Nov 2004 23:39:47 +0900 (JST)

> mew-win32の4.1に、4.1.50に入っていたmew-nmz.elを追加し、namazuを使い
> たいと考えています。mzコマンドを起動しましたが、インデックスファイルを
> 入れるディレクトリは作られましたが、インデックスファイルは作られません。
> mew-nmz.el中のmknmzのプログラム名定義は、mknmz.batに書き換えました。

> 原因を調べる方法、対策がありましたら、ご教示いただけませんか？

(setq mew-nmz-prog-mknmz-args nil)

をして、

(defun mew-nmz-mknmz-sentinel (process event)
  (save-excursion
    (set-buffer (process-buffer process))
    (let ((fld mew-nmz-mknmz-process-folder)
	  (tmpfile mew-nmz-mknmz-process-file)
	  msg)
      (goto-char (point-min))
      (if (search-forward-regexp "^ERROR:.*$" nil t)
	  (setq msg (format "Mew mknmz (%s)...%s" fld (match-string 0)))
	(setq msg (format "Mew mknmz (%s)...done" fld))
	(if (not (or (null mew-nmz-indexed-folders)
		     (member fld mew-nmz-indexed-folders)))
	    (setq mew-nmz-indexed-folders
		  (cons fld mew-nmz-indexed-folders))))
      (and (file-readable-p tmpfile)
	   (file-writable-p tmpfile)
	   (condition-case nil
	       (progn
		 (delete-file tmpfile)
		 (mew-nmz-timestamp-rename fld))
	     (error nil)))
      (setq mew-nmz-mknmz-process nil)
      (setq mew-nmz-mknmz-process-file nil)
      (setq mew-nmz-mknmz-process-folder nil)
      (if (and mew-nmz-mknmz-use-mode-line
	       fld (get-buffer fld) (buffer-name (get-buffer fld)))
	  (save-excursion
	    (set-buffer (get-buffer fld))
	    (setq mode-line-buffer-identification mew-mode-line-id)
	    (set-buffer-modified-p nil)))
      (set-buffer-modified-p nil)
      ;; (kill-buffer (current-buffer))
      (pop-to-buffer (current-buffer))
      (message "%s" msg)
      (sit-for 1))))

を評価したあと、"zm" をすると、" *mew mknmz*+inbox" のような
buffer に mknmz した結果が残ります。まずはそいつを見てください。

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