--- a/lisp/tm/tm-view.el	Mon Aug 13 09:38:27 2007 +0200
+++ b/lisp/tm/tm-view.el	Mon Aug 13 09:39:39 2007 +0200
@@ -4,7 +4,7 @@
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Created: 1994/7/13 (1994/8/31 obsolete tm-body.el)
-;; Version: $Revision: 1.5 $
+;; Version: $Revision: 1.6 $
 ;; 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 1.5 1997/05/29 23:50:21 steve Exp $")
+  "$Id: tm-view.el,v 1.6 1997/06/06 00:57:44 steve Exp $")
 
 (defconst mime-viewer/version (get-version-string mime-viewer/RCS-ID))
 (defconst mime/viewer-version mime-viewer/version)
@@ -182,30 +182,17 @@
 
 (defvar mime-viewer/redisplay nil)
 
-(defun mime-viewer/get-key-for-fun (symb)
-  (let ((key (where-is-internal symb))
-	)
-    (if key
-	(key-description (car key))
-      "v")))
+(defvar mime-viewer/announcement-for-message/partial
+  (if (and (>= emacs-major-version 19) window-system)
+      "\
+\[[ This is message/partial style split message. ]]
+\[[ Please press `v' key in this buffer          ]]
+\[[ or click here by mouse button-2.             ]]"
+    "\
+\[[ This is message/partial style split message. ]]
+\[[ Please press `v' key in this buffer.         ]]"
+    ))
 
-(defun mime-viewer/announcement-for-message/partial ()
-  (let ((key (mime-viewer/get-key-for-fun 'mime-viewer/play-content)))
-    (if (and (>= emacs-major-version 19) window-system)
-	(concat
-	 "\
-\[[ This is message/partial style split message. ]]
-\[[ Please press `" 
-	 key
-	 "' in this buffer              ]]
-\[[ or click here by mouse button-2.             ]]")
-      (concat 
-       "\
-\[[ This is message/partial style split message. ]]
-\[[ Please press `"
-       key
-       "' in this buffer.         ]]")
-      )))
 
 ;;; @@ predicate functions
 ;;;
@@ -596,7 +583,7 @@
       )
     (let ((be (point-max)))
       (narrow-to-region be be)
-      (insert (mime-viewer/announcement-for-message/partial))
+      (insert mime-viewer/announcement-for-message/partial)
       (tm:add-button (point-min)(point-max)
 		     (function mime-viewer/play-content))
       )))