From: morioka <morioka>
Date: Thu, 18 Sep 1997 03:01:52 +0000 (+0000)
Subject: (mime-edit-x-emacs-value): Use `(featurep 'xemacs)'; add DOC-string.
X-Git-Tag: semi-0_115~20
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ff4849c1064f95823192a9ce95233caa11b897c2;p=elisp%2Fsemi.git

(mime-edit-x-emacs-value): Use `(featurep 'xemacs)'; add DOC-string.
---

diff --git a/mime-edit.el b/mime-edit.el
index 243c1dd..613e401 100644
--- 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.90 $
+;; Version: $Revision: 0.91 $
 ;; 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.90 1997-09-18 02:56:12 morioka Exp $")
+  "$Id: mime-edit.el,v 0.91 1997-09-18 03:01:52 morioka Exp $")
 
 (defconst mime-edit-version `,(get-version-string mime-edit-RCS-ID))
 
@@ -519,19 +519,22 @@ If it is not specified for a major-mode,
   "*If non-nil, insert X-Emacs header field.")
 
 (defvar mime-edit-x-emacs-value
-  (if running-xemacs
-      (concat emacs-version
-	      (if (featurep 'mule)
-		  " with mule"
-		" without mule"))
+  (if (featurep 'xemacs)
+      (concat emacs-version (if (featurep 'mule)
+				" with mule"
+			      " without mule"))
     (let ((ver (if (string-match "\\.[0-9]+$" emacs-version)
 		   (substring emacs-version 0 (match-beginning 0))
 		 emacs-version)))
       (if (featurep 'mule)
-	  (if (featurep 'meadow)
-	      (concat "Emacs " ver ", MULE " mule-version ", " (Meadow-version))
-	    (concat "Emacs " ver ", MULE " mule-version))
-	ver))))
+	  (concat "Emacs " ver ", MULE " mule-version
+		  (if (featurep 'meadow)
+		      (concat ", " (Meadow-version))
+		    ))
+	ver)))
+  "Body of X-Emacs field.
+If variable `mime-edit-insert-x-emacs-field' is not nil, it is
+inserted into message header.")
 
 
 ;;; @ constants