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

[Shigemi Mikayama]

三箇山と申します。

私も、同じ現象に陥ったような（そのとき書いていれば良かったけど）記憶が
あります。

うろ覚え＋推測なので違っていたら済みません。そのときの原因は、
Namazuの検索結果のURL
/d|/HOME/Mail/inbox/1
をmew-nmz-url-to-folederでfolderに変換するときに大文字/小文字が違って
いて、マッチしていないためでした。

なので、mew-nmz-url-to-folder の最後のassocをassoc-ignore-caseに変更し
なくちゃいけないのでは？と思った（実際、一旦手元ではこうした）のですが、
大文字・小文字が合っていない理由は、環境変数HOMEにドライブレターを大文
字で設定すると、namazuは環境変数通り大文字、Meadowは小文字になったため、
だったので、環境変数を変えてそのままになっていたような、、、

From: "Hitoya Tachikawa"
Subject: [mew-win32 04226] Re: mew4.2での 'k/' namzu での検索エラー
Date: Mon, 9 May 2005 13:43:38 +0900 (JST)

> 
> 立川です。
> 
> 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)
> ------------------------------------------
>