From: yamaoka <yamaoka>
Date: Wed, 28 Aug 2002 07:13:52 +0000 (+0000)
Subject: * mime-edit.el (mime-edit-user-agent-value): Add `xemacs-extra-name'.
X-Git-Tag: emiko-1_14-epg-branchpoint~52
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f4678cd6130203d9f7edfaeec5a4c4e04a991fb9;p=elisp%2Fsemi.git

* mime-edit.el (mime-edit-user-agent-value): Add `xemacs-extra-name'.
---

diff --git a/ChangeLog b/ChangeLog
index bdc82ce..48de0db 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2002-08-28  Katsumi Yamaoka   <yamaoka@jpl.org>
+
+	* mime-edit.el (mime-edit-user-agent-value): Add
+	`xemacs-extra-name'.
+
 2002-04-16   Daiki Ueno  <ueno@unixuser.org>
 
 	* mime-edit.el (mime-file-types): Add setting of *.jpeg for image/jpeg.
diff --git a/mime-edit.el b/mime-edit.el
index 34500d4..ba071ed 100644
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -626,7 +626,14 @@ If it is not specified for a major-mode,
 				  ;; XEmacs versions earlier than 21.1.1.
 				  (format " (patch %d)" emacs-patch-level))
 				 (t ""))
-			   " (" xemacs-codename ") ("
+			   " (" xemacs-codename ")"
+			   ;; `xemacs-extra-name' has appeared in the
+			   ;; development version of XEmacs 21.5-b8.
+			   (if (and (boundp 'xemacs-extra-name)
+				    (symbol-value 'xemacs-extra-name))
+			       (concat " " (symbol-value 'xemacs-extra-name))
+			     "")
+			   " ("
 			   system-configuration ")")
 			" (" emacs-version ")"))
 	    (let ((ver (if (string-match "\\.[0-9]+$" emacs-version)