From: yamaoka <yamaoka>
Date: Thu, 3 Dec 1998 08:43:24 +0000 (+0000)
Subject: * mime-edit.el (mime-edit-user-agent-value): Include `xemacs-betaname'.
X-Git-Tag: semi-1_12-199812031900
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9b4e0ccdb88bf548323d9a54f975bd5dac625b3b;p=elisp%2Fsemi.git

* mime-edit.el (mime-edit-user-agent-value): Include `xemacs-betaname'.
---

diff --git a/ChangeLog b/ChangeLog
index c7e7204..6fe0a75 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+1998-12-03  Katsumi Yamaoka   <yamaoka@jpl.org>
+
+	* mime-edit.el (mime-edit-user-agent-value): Include
+	`xemacs-betaname'.
+
+
 1998-12-02  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
 	* SEMI: Version 1.12.0 (Nishi-Kanazawa) released.
diff --git a/mime-edit.el b/mime-edit.el
index 56ee40b..89b4655 100644
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -633,6 +633,12 @@ If it is not specified for a major-mode,
 			  (concat "/"
 				  (substring emacs-version 0
 					     (match-beginning 0))
+				  (if (and (boundp 'xemacs-betaname)
+					   ;; It does not exist in XEmacs
+					   ;; versions prior to 20.3.
+					   xemacs-betaname)
+				      (concat " " xemacs-betaname)
+				    "")
 				  " (" xemacs-codename ") ("
 				  system-configuration ")")
 			" (" emacs-version ")"))