YaTeXとhowmの連携で.howmを消す

普段YaTeXを使ってて，howmもよく使ってるので，howmでLaTeXを書くこともしばしば．
そんときはやてふモードにしてるんだけど，bibtex(C-ctbとか)を実行するとコマンドに渡すファイル名に.howmが残ってて毎回消すのが面倒だから，
.texだけじゃなくて.howmも消すようにした．

(defadvice YaTeX-call-command-on-file
  (around around-yatex-call-command-on-file (base-cmd buffer))
  (YaTeX-save-buffers)
  (YaTeX-typeset
   (read-string-with-history
    "Call command: "
    (concat base-cmd " "
            (let ((me (file-name-nondirectory buffer-file-name)))
;; ここにorで追加しただけ．
              (if (or (string-match "\\.tex" me) (string-match "\\.howm" me))
                  (substring me 0 (match-beginning 0))
                me)))
    'YaTeX-call-command-history)
   buffer))
(ad-activate 'YaTeX-call-command-on-file)

なんかもっと汎用的な書き方ができそうなもんだけども