;; This function should be as follows.

(defun muse-latex-strip-image-extensions (link &rest ignored)
  (save-match-data
    (and (string-match muse-image-regexp link)
         (setq link (replace-match "" nil t link))))
  link)