From: morioka <morioka>
Date: Fri, 3 Apr 1998 06:30:44 +0000 (+0000)
Subject: (mime-view-version-string): Use `mime-module-version' instead of
X-Git-Tag: semi-1_2_0^5
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=refs%2Fheads%2Funlabeled-1.71.2;p=elisp%2Fsemi.git

(mime-view-version-string): Use `mime-module-version' instead of
`semi-version'.
(mime-view-insert-message/partial-button): Use `mime-insert-button'.
---

diff --git a/mime-view.el b/mime-view.el
index 245602a..a81d306 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -8,7 +8,7 @@
 ;;	Renamed: 1997/02/19 from tm-view.el
 ;; Keywords: MIME, multimedia, mail, news
 
-;; This file is part of SEMI (Sophisticated Emacs MIME Interfaces).
+;; This file is part of WEMI (Widget based Emacs MIME Interfaces).
 
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU General Public License as
@@ -38,9 +38,9 @@
 ;;;
 
 (defconst mime-view-version-string
-  `,(concat "SEMI MIME-View "
-	    (mapconcat #'number-to-string (cdr semi-version) ".")
-	    " (" (car semi-version) ")"))
+  `,(concat (car mime-module-version) " MIME-View "
+	    (mapconcat #'number-to-string (cddr mime-module-version) ".")
+	    " (" (cadr mime-module-version) ")"))
 
 
 ;;; @ buffer local variables
@@ -447,12 +447,12 @@ if it is not nil.")
 (defvar mime-view-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         
+or click here by mouse button-2.            "
     "\
-\[[ This is message/partial style split message. ]]
-\[[ Please press `v' key in this buffer.         ]]"
+This is message/partial style split message.
+Please press `v' key in this buffer.        "
     ))
 
 (defun mime-view-insert-message/partial-button (&optional situation)
@@ -462,10 +462,12 @@ if it is not nil.")
 	(insert "\n")
       )
     (goto-char (point-max))
-    (narrow-to-region (point-max)(point-max))
-    (insert mime-view-announcement-for-message/partial)
-    (mime-add-button (point-min)(point-max)
-		     #'mime-preview-play-current-entity)
+    ;;(narrow-to-region (point-max)(point-max))
+    ;;(insert mime-view-announcement-for-message/partial)
+    ;; (mime-add-button (point-min)(point-max)
+    ;;                  #'mime-preview-play-current-entity)
+    (mime-insert-button mime-view-announcement-for-message/partial
+			#'mime-preview-play-current-entity)
     ))