tm 7.104.

[elisp/tm.git] / tm-view.el

diff --git a/tm-view.el b/tm-view.el
index 07f2aae..e84e33f 100644 (file)
--- a/tm-view.el
+++ b/tm-view.el
@@ -4,7 +4,7 @@
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Created: 1994/7/13 (1994/8/31 obsolete tm-body.el)
-;; Version: $Revision: 7.80 $
+;; Version: $Revision: 7.81 $
 ;; Keywords: mail, news, MIME, multimedia
 
 ;; This file is part of tm (Tools for MIME).
@@ -42,7 +42,7 @@
 ;;;
 
 (defconst mime-viewer/RCS-ID
-  "$Id: tm-view.el,v 7.80 1997/01/31 12:59:06 morioka Exp $")
+  "$Id: tm-view.el,v 7.81 1997/02/10 06:03:38 morioka Exp $")
 
 (defconst mime-viewer/version (get-version-string mime-viewer/RCS-ID))
 (defconst mime/viewer-version mime-viewer/version)
@@ -1007,8 +1007,14 @@ button-2 Move to point under the mouse cursor
                ))
            (mime/decode-message-header)
            )
-         (funcall (cdr (assq mode mime-viewer/following-method-alist))
-                  new-buf)
+         (let ((f (cdr (assq mode mime-viewer/following-method-alist))))
+           (if (functionp f)
+               (funcall f new-buf)
+             (message
+              (format
+               "Sorry, following method for %s is not implemented yet."
+               mode))
+             ))
          ))))
 
 (defun mime-viewer/display-x-face ()