(mime-edit-x-emacs-value): applied Hisashi Miyashita

<himi@bird.scphys.kyoto-u.ac.jp>'s patch (cf. [tm-ja:2567]):
Add `(Meadow-version)' when running Meadow.

diff --git a/mime-edit.el b/mime-edit.el
index 8c3b053..243c1dd 100644 (file)
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -7,7 +7,7 @@
 ;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Created: 1994/08/21 renamed from mime.el
 ;;     Renamed: 1997/2/21 from tm-edit.el
-;; Version: $Revision: 0.89 $
+;; Version: $Revision: 0.90 $
 ;; Keywords: MIME, multimedia, multilingual, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -122,7 +122,7 @@
 ;;;
 
 (defconst mime-edit-RCS-ID
-  "$Id: mime-edit.el,v 0.89 1997-09-15 09:10:52 morioka Exp $")
+  "$Id: mime-edit.el,v 0.90 1997-09-18 02:56:12 morioka Exp $")
 
 (defconst mime-edit-version `,(get-version-string mime-edit-RCS-ID))
 
@@ -528,7 +528,9 @@ If it is not specified for a major-mode,
                   (substring emacs-version 0 (match-beginning 0))
                 emacs-version)))
       (if (featurep 'mule)
-         (concat "Emacs " ver ", MULE " mule-version)
+         (if (featurep 'meadow)
+             (concat "Emacs " ver ", MULE " mule-version ", " (Meadow-version))
+           (concat "Emacs " ver ", MULE " mule-version))
        ver))))
 
 \f