>>404
falseの時にmlname自身を返せばいいんじゃない？
あと、let使ってるからsetqは不用、navi2ch〜は、
↓みたいに残りの部分だけに適用するだけでいいと思う。
間違ってたらスマソ
(defun navi2ch-article-link-ml-change-period (mlname)
　(let ((point (string-match "\\." mlname)))
　　(if point
　　　 (concat (substring mlname 0 point) "-"
　　　　 (navi2ch-article-link-ml-change-period
　　　　　 (substring mlname (1+ point))))
　　　 mlname)))