[mew-win32 04226] Re: mew4.2 での 'k/' namzu での検索エラー

[Hitoya Tachikawa]

立川です。

TO:白井さん

対応いただきありがとうございます。

いただいたコメントの方法で試したところ、mewは立ち上がるようになりました。
しかし、まだ、k/で検索はできていません。

Signaling: (wrong-type-argument stringp nil)
  string-match("^[$%+-]" nil)
というエラーになってしまいます。Meadow1とMeadow2の両方を行ってみました。


>
>> Meadow１は、Signaling: (wrong-type-argument stringp nil)
>> Meadow2は、Debugger entered--Lisp error: (error "Install w3m
>> command in `exec-path' or set `w3m-command' variable correctly")
>
> emacs-w3m(w3m.elなど) は load-path 上にあるのだけれど、w3m 本体
> (Windows だから w3m.exe) が存在しないよ、というエラーです。正直
> いって、w3m.el があるけど、w3m.exe が無い場合は想定していません
> でした (__)
>
> (1) emacs-w3m を使う予定があるなら w3m.exe を install する。
>   => 自分で make しないとだめなので面倒くさいかも。

今はMeadow上でWebページを参照していないので、今回は
この方法を試しませんでした。


>
> (2) emacs-w3m を使う予定がないなら、emacs-w3m を load-path から
>     外す。
>   => どーんと消しちゃってもいいですが、普通に emacs-w3m をインス
>      トールしたのなら、site-lisp/w3m みたいな directory があるの
>      で、site-lisp/.w3m とかに rename するのがお手軽です。
>
> (3) 付属のパッチを mew-nmz.el にあてる。
>   => すいません。今後もありそうなのでお願いします。> かずさん
>
> のどれかが必要となります。
>

自分の都合ではありますが、2つのMeadowを使っているので
それぞれ試してみました。
(2)はsite-lisp/w3mをRenameでおこないました。

(3)のみをおこなって、やはりエラー文がでたので、
さらに(2)もおこなってみました。
Meadow1とMeadow2でも同様の結果でした。

いずれも、以下のデバッグでは以下のような表示になりました。
検索しようとしたHolderはすべてチェックしているようです。

おいそがしいところすいません。よろしくお願いいたします。

--------------------------------
Signaling: (wrong-type-argument stringp nil)
  string-match("^[$%+-]" nil)
  (if (string-match defaultregex (car ...)) (setq defmsgs (cons ...
defmsgs)) (setq casemsgs (cons ... casemsgs)))
  (while retmsgs (if (string-match defaultregex ...) (setq defmsgs ...)
(setq casemsgs ...)) (setq retmsgs (cdr retmsgs)))
  (progn (setq retmsgs intmsgs) (while retmsgs (setq sortfld ...) (setq
retmsgs ...)) (while sortfld (setq cell ...) (setq retmsgs ...) (setq
sortfld ...)) (while retmsgs (if ... ... ...) (setq retmsgs ...))
(append defmsgs casemsgs))
  (if intmsgs (progn (setq retmsgs intmsgs) (while retmsgs ... ...) (while
sortfld ... ... ...) (while retmsgs ... ...) (append defmsgs casemsgs)))
  (when intmsgs (setq retmsgs intmsgs) (while retmsgs (setq sortfld ...)
(setq retmsgs ...)) (while sortfld (setq cell ...) (setq retmsgs ...)
(setq sortfld ...)) (while retmsgs (if ... ... ...) (setq retmsgs ...))
(append defmsgs casemsgs))
  (save-current-buffer (set-buffer temp-buffer) (while (and nmzdirs ...)
(setq prog-args ...) (erase-buffer) (mew-piolet mew-cs-text-for-read
mew-cs-text-for-write ...) (goto-char ...) (let ... ... ...)) (when
intmsgs (setq retmsgs intmsgs) (while retmsgs ... ...) (while sortfld
... ... ...) (while retmsgs ... ...) (append defmsgs casemsgs)))
  (with-current-buffer temp-buffer (while (and nmzdirs ...) (setq
prog-args ...) (erase-buffer) (mew-piolet mew-cs-text-for-read
mew-cs-text-for-write ...) (goto-char ...) (let ... ... ...)) (when
intmsgs (setq retmsgs intmsgs) (while retmsgs ... ...) (while sortfld
... ... ...) (while retmsgs ... ...) (append defmsgs casemsgs)))
  (unwind-protect (with-current-buffer temp-buffer (while ... ... ... ...
... ...) (when intmsgs ... ... ... ... ...)) (and (buffer-name
temp-buffer) (kill-buffer temp-buffer)))
  (let ((temp-buffer ...)) (unwind-protect (with-current-buffer
temp-buffer ... ...) (and ... ...)))
  (with-temp-buffer (while (and nmzdirs ...) (setq prog-args ...)
(erase-buffer) (mew-piolet mew-cs-text-for-read mew-cs-text-for-write
...) (goto-char ...) (let ... ... ...)) (when intmsgs (setq retmsgs
intmsgs) (while retmsgs ... ...) (while sortfld ... ... ...) (while
retmsgs ... ...) (append defmsgs casemsgs)))
  (let ((tmpdirs nmzdirs) (defaultregex ...) nxt prog-args intmsgs retmsgs
sortfld defmsgs casemsgs cell) (setq pattern (mew-cs-encode-arg
pattern)) (setq nmzdirs nil) (while tmpdirs (setq nxt ...) (if nxt ...)
(setq nmzdirs ...) (setq tmpdirs nxt)) (setq nmzdirs (nreverse nmzdirs))
(with-temp-buffer (while ... ... ... ... ... ...) (when intmsgs ... ...
... ... ...)))
  mew-nmz-multi-pick(("d:/HOME/Namazu/Mail/***"
"d:/HOME/Namazu/Mail/***/+++++++" "d:/HOME/Namazu/Mail/***/???"
"d:/HOME/Namazu/Mail/***/????" "d:/HOME/Namazu/Mail/***/??????")
"+from:@@@@" nil)
  (setq fldmsgs (mew-nmz-multi-pick nmzdirs pattern nil))
  (if (null nmzdirs) (message "Please make namazu index") (setq fldmsgs
(mew-nmz-multi-pick nmzdirs pattern nil)) (if (null fldmsgs) (message
"No message pick") (while fldmsgs ... ... ...) (setq scans ...) (setq
pickflds ...) (setq vfld ...) (unless ... ...)
(mew-summary-switch-to-folder vfld) (when ... ... ... ... ... ... ...
...) (mew-remove-buffer buf) (mew-summary-switch-to-folder vfld) (when
scans ... ... ...)))
  (let* ((flds ...) (pattern ...) (buf ...) (file ...) vfld nmzdirs
fldmsgs fld msgs scans func lra pickflds path opts) (mew-nmz-setup)
(setq nmzdirs (mew-nmz-flds-to-indexs flds)) (if (null nmzdirs) (message
"Please make namazu index") (setq fldmsgs ...) (if ... ... ... ... ...
... ... ... ... ... ... ...)))
  (if (not (mew-summary-or-virtual-p)) (message "This command cannot be
used in this mode") (let* (... ... ... ... vfld nmzdirs fldmsgs fld msgs
scans func lra pickflds path opts) (mew-nmz-setup) (setq nmzdirs ...)
(if ... ... ... ...)))
  mew-nmz-virtual()
* call-interactively(mew-nmz-virtual)
------------------------------------------