09/02/21 00:28:48
>>440
ためしてないけどこれで全部いけるはず
(setq navi2ch-list-moved-board-alist
(append navi2ch-list-moved-board-alist
(apply 'append
(mapcar (lambda (x)
(let ((uri (cdr (assq 'uri x))))
(and (stringp uri)
(string-match "^URLﾘﾝｸ(live23\\.2ch\\.net\\)<)"
(match-string 1 uri)))))))
navi2ch-list-board-name-list))))