>>405 うぉ，ケコーン!!しかも漏れのがヘタレな解答をしてしまった…．
そこで，ちょっと知恵を絞ってみた↓．
(defun foo (mlname)
(mapconcat (lambda (e) e) (split-string mlname "\\.") "-"))