[mew-dist 27587] mew-est-search() のエラー

[Hideyuki SHIRAI ( 白井秀行 )]

白井です。

友人に『Zaurus で Hyper Estraier 使っているとエラーになる』と解
析を頼まれまして、解決したので報告です。

エラーは 'k/' で検索すると、

>> Debugger entered--Lisp error: (args-out-of-range "/hdd3/Mail" 13 10)
>>  substring("/hdd3/Mail" 13)
 ...snip...
>>  mew-search-est("\xe7a2\xe6ed\xe068" "/home/zaurus/Mail" "")

となる、というものです。

原因ですが、Zaurus のハードディスク構成などご存知の方には、なん
で下のように ~/Mail からリンクを張っているのかおわかりでしょうが、
この方の場合は
   
mew-home =>"~/"
(expand-file-name mew-home) => "/home/zaurus/"
(length (expand-file-name mew-home)) => 13

mew-mail-path => "~/Mail"
(expand-file-name mew-mail-path) "/home/zaurus/Mail"

(file-truename (expand-file-name mew-mail-path)) => "/hdd3/Mail"

となっているために、mew-search-est() で "Mail/" 部分を作るときに
(substring "/hdd3/Mail" 13) でエラーになっています。また、エラー
にならなくても、例えば ~/Mail の実体が ~/ の下から外れていたら正
常に動かないと思います。

周辺の関連コードなども漁ってみて、mew-search-est() で mew-home
を使っているのがよろしくない、という結論に達しましたので、そのパッ
チを送ります。友人による動作確認済みですが、ぼく自身が Hyper
Estraier を使っていないので、チェックしてくださいませ。

# substring じゃなくて string-match にしたのは趣味の問題＋エラー
# が起きないように、です

ついでに、Hyper Estraier で不要なインデックスをパージするときも、
minibuffer に "Hyper Estraier indexing ...done" と出てしまって紛
らわしいとのことなので、そのパッチも含みます。

-- 
白井秀行 (mailto:shirai at example.com)
-------------- next part --------------
H4sIAAAAAAAAA6SS3U7jMBCFr1up7zBbgZREDKSlATbSChDsBUh0JVr2BoFknMmPNnGK7X
bh7bGd0oZu4WZHqpKe+HxzPPaVSOglhor+oiImeb5PZa/74/+r1729mEBalBTDAV8o0+Fg
+Vt32lv0upK0LGhRiAykeaiiFjDYj0563aRIU8A5IAeUVtqMGQTBR6kzgmsmYBiGxxAexa
Pv8WAEGJrqNEhE3HAM4IbJpeMwjo7j4WHjcPh2Nf2iaLgXnYTQKGDKK0kH4HkkNHhrOGak
0WotqSKd14nvW2MHvJmss38sTjS+1SrO1B8yaHqZMZGgHSkKVlEbTEpj8uQUXosUZ0znFv
DNACpWlEkhoSQBTGsJTGbKfXPprWdmtvAuNAprK+Ap0s8rkOciaDknF2N7sLyuyPf9TYYN
YQYmMp0vOdaBTKEhE9e1fH3vs8Vtt2Ve50/K3BlzYTaSuF3bFp85P2m4nlbb4mblpbWsmI
b+2VwWMJneXo0vYFf1myk9mwPmdUK4zOO6nO5+TG4OJFn/NRelWYwGy3PoP0JwPr4c/5pC
3/o1SdEc3Cq4lRyG2yD3d78nP6cPrdXtbtvwO1+A3wAAAP//1JSxbsMgEIbnvAViSTowdK
jUsX2AdusaCQFuLFHsxNCkb9//AANO7QfoYLC44+44fj5XAvKVfpNScF39hLziO3CMX/JG
0yMNw0VjelFaesPeP95eOctiLaU1EYOzZkI4c046nUi1bB98J57bwlJSHHdKTYajH4Q6yQ
vMzdaHJOSNrVz0imePP+eCDlAeOzgQxyBsXlg4Xk8QSzZspSCJ8LlWBY7kOG3e3TKl0sVr
q98rweu7XWyS42h/2F5Ja4kbivob+eF6y3wceSJEaUXCCn0HbbrgWopcex9RAjJlcXSD1a
YUvORdelK0fQZAdo4T5SHaJl4+MfyL/8FLpDGf5lZf3JFHww6maBnFOQzezIstVgpTihFt
ntdqKdV6h7DGsHEAgmMuN98m1bzC9XvsVV63FPwFAAD//8IoBREGlGeAymqU0gQaMmCVhM
pmaPIA6QNGa4qCAWrSxah20CoeTioVwpzw8peT+KIXyU/EFb5YzUYvd9FNRS95OalZ6HIS
Ud5iKXaIL3GxllloZS4nEcUtJ2ZJS7A4xFnWohfwGKUtoVIcvaDlJK+MpWMhi7WVamZqrG
NmaonUSgVnr+LixPRUBSXHvPySDKAhHpUFAAAAAP//ApKuwISbmAlkZIL6AiC6WKGoNC8P
mJiVNKHOwUjeMXogmAYsjFKByREip4lpEzYbQHlUTw+mF14oYLchJT8vlTzzwTpxRAWo+A
erBUZKXklmXmoOuHIBxy0wiQIrE0jlZWZqoWNmZoZUeQ25YASmEwWoOcVYg1QRv10FpUXp
qCGKw6K81HL8FtEx7gADAJZEso3WDgAA