[Mew-Win32 03055] Re: mew-nmz.el で INDEX作成ができない

[SUGIMORI ( 杉森 隆行 )]

すぎもりです。

From: Takanori YAMAO <yama at example.com>
Subject: [Mew-Win32 03052] Re: mew-nmz.el で INDEX作成ができない
Date: Thu, 08 Feb 2001 15:17:19 +0900 (JST)

やま> えっと，杉森さんはWindows98とかMEをお使いですか？私の場合，

すみません。WindowsMEの話題でもりあがっていたので、自分の環境を言うの
を忘れました。お察っしの通りMEです。

やま> Windows98とMEでは，杉森さんと同じようにディレクトリができるけど
やま> INDEXが作成できませんでした。コマンドラインからimmknmzを実行した
やま> 場合には，INDEXが作成できます。

げげげ。

From: Hideyuki SHIRAI (白井秀行) <shirai at example.com>
Subject: [Mew-Win32 03053] Re: mew-nmz.el で INDEX作成ができない
Date: Thu, 08 Feb 2001 15:22:31 +0900 (JST)

白井> (setq mew-nmz-prog-mknmz-args nil)
白井> とすると (default は '("-q") で quiet mode)
白井> " *mew mknmz*+folder名"

を見てみました。

そしたら、Perlのライブラリがロードできなくて死んでました。(_o_)
気をとり直して、再度挑戦するとINDEXはできたのですが、
こんなエラーが出てしまいました。


Signaling: (void-variable mew-nmz-mknmz-process-folder)
  (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 ...) (setq msg ...) (if ... ...)) (and (file-readable-p tmpfile) (file-writable-p tmpfile) (condition-case err ... ...)) (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 ... ...) (save-excursion ... ... ...)) (set-buffer-modified-p nil) (message "%s" msg) (sit-for 1))
  (save-excursion (set-buffer (process-buffer process)) (let (... ... msg) (goto-char ...) (if ... ... ... ...) (and ... ... ...) (setq mew-nmz-mknmz-process nil) (setq mew-nmz-mknmz-process-file nil) (setq mew-nmz-mknmz-process-folder nil) (if ... ...) (set-buffer-modified-p nil) (message "%s" msg) (sit-for 1)))
  mew-nmz-mknmz-sentinel(#<process mknmz-+ml/mew-win32> "finished\n")


そして、z ? すると


Signaling: (wrong-number-of-arguments (lambda (fld msg &optional must-hit) "Return the buffer associated with FLD and MSG.
If no cache entry is found, nil is returned.
If a cache entry is invalid, the entry is removed and nil is returned.
If MUST-HIT is non-nil and no valid cache entry is found, an error occurs." (let ((entry (mew-cache-get fld msg)) cache file time size ok) (if (null entry) (if must-hit (error "Cache not found.") nil) (setq cache (mew-cache-buffer-get entry)) (if (mew-folder-remotep fld) nil (setq file (mew-expand-folder fld msg)) (if (not (file-readable-p file)) (error "%s%s doesn't exist" (file-name-as-directory fld) msg)) (setq time (mew-file-get-time file)) (setq size (mew-file-get-size file))) (save-excursion (set-buffer cache) (setq ok (mew-cinfo-equal fld msg time size))) (if ok (progn (mew-cache-sort entry) cache) (if must-hit (error "Cache not found.") (mew-cache-delete2 fld msg) nil))))) 1)
  mew-cache-hit(("+ml/mew-win32" . "245"))
  (let ((buf ...) (gather-list mew-nmz-pick-gather-field-list) ret-list gather header duplchk) (if (not ...) nil (set-buffer buf) (while gather-list ... ... ... ...) (if ret-list ...) (nreverse ret-list)))
  (save-excursion (let (... ... ret-list gather header duplchk) (if ... nil ... ... ... ...)))
  (if mew-nmz-pick-gather-field-list (save-excursion (let ... ...)))
  mew-nmz-pick-pattern-gather-header()
  (let ((mew-nmz-gather-header-list ...)) (setq mew-input-complete-function (function mew-nmz-pick-pattern)) (let (... ret) (define-key keymap " " nil) (setq ret ...) (mew-decode-syntax-delete) ret))
  mew-nmz-input-pick-pattern()
  (setq pattern (mew-nmz-input-pick-pattern))
  (let ((folder ...) pattern first last range) (setq pattern (mew-nmz-input-pick-pattern)) (message "Namazu picking messages in %s ..." folder) (goto-char r1) (if (eobp) nil (setq first ...) (goto-char r2) (if ... ...) (setq last ...) (setq range ...)) (message "Namazu picking messages in %s ... done" folder) (if (null range) (message "No message to be marked.") (message "Marking messages ... ") (goto-char r1) (while ... ... ...) (beginning-of-line) (set-buffer-modified-p nil) (message "Marking messages ... done")))
  (if (equal (point-min) (point-max)) (message "No messages in this buffer.") (let (... pattern first last range) (setq pattern ...) (message "Namazu picking messages in %s ..." folder) (goto-char r1) (if ... nil ... ... ... ... ...) (message "Namazu picking messages in %s ... done" folder) (if ... ... ... ... ... ... ... ...)))
  mew-nmz-search-mark-region(1 41774)
  (if arg (mew-nmz-search-mark-region (region-beginning) (region-end)) (mew-nmz-search-mark-region (point-min) (point-max)))
  (cond ((not ...) (message "This command can be used in Summary mode only")) (t (if arg ... ...)))
  (mew-summary-only (if arg (mew-nmz-search-mark-region ... ...) (mew-nmz-search-mark-region ... ...)))
  mew-nmz-search-mark(nil)
* call-interactively(mew-nmz-search-mark)



;; エラー添付しすぎ？