(mime-edit-user-agent-value): Include `emacs-patch-level'.

It exists in XEmacs 21.1.1 or later.

diff --git a/ChangeLog b/ChangeLog
index 0e52440..b8c83d1 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+1999-09-27  Katsumi Yamaoka   <yamaoka@jpl.org>
+
+       * mime-edit.el (mime-edit-user-agent-value): Include
+       `emacs-patch-level'.  It exists in XEmacs 21.1.1 or later.
+
 1999-09-20  Yoshiki Hayashi <t90553@mail.ecc.u-tokyo.ac.jp>
 
        * mime-view.el (mime-preview-scroll-up-entitiy,

diff --git a/mime-edit.el b/mime-edit.el
index c6549f9..bbddd6f 100644 (file)
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -640,16 +640,22 @@ If it is not specified for a major-mode,
                            ((featurep 'mule) "MULE"))
                      " XEmacs"
                      (if (string-match "^[0-9]+\\(\\.[0-9]+\\)" emacs-version)
-                         (concat "/"
-                                 (substring emacs-version 0 (match-end 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 ")")
+                         (concat
+                          "/"
+                          (substring emacs-version 0 (match-end 0))
+                          (cond ((and (boundp 'xemacs-betaname)
+                                      xemacs-betaname)
+                                 ;; It does not exist in XEmacs
+                                 ;; versions prior to 20.3.
+                                 (concat " " xemacs-betaname))
+                                ((and (boundp 'emacs-patch-level)
+                                      emacs-patch-level)
+                                 ;; It does not exist in FSF Emacs or in
+                                 ;; XEmacs versions earlier than 21.1.1.
+                                 (format " (patch %d)" emacs-patch-level))
+                                (t ""))
+                          " (" xemacs-codename ") ("
+                          system-configuration ")")
                        " (" emacs-version ")"))
            (let ((ver (if (string-match "\\.[0-9]+$" emacs-version)
                           (substring emacs-version 0 (match-beginning 0))