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

diff --git a/ChangeLog b/ChangeLog
index c7e7204..6fe0a75 100644 (file)
--- 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'.
+
+\f
 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 (file)
--- 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 ")"))