>>535
遅くなりました。
(mapcar #'car alist)
=> (1 3 5 8)
(navi2ch-string-match-regexp-alist alist "http://navi2ch.sf.net/")
=> nil
です。

regexp-opt.el:1.17 には typo があったので
1.18 を拾ってきて試したらこうなりました。(サンクス>>536)
(mapcar #'car alist)
=> (1 4 7 10)
(navi2ch-string-match-regexp-alist alist "http://navi2ch.sf.net/")
=> ("\\(h?t?tps?\\|x-localbbs\\|ftp\\)\\(://[-a-zA-Z0-9_=?#$@~`%&*+|\\/.,:;]+\\)" quote url)

Meadow の方を修正してもらうのが良さそうです。