(mime-edit-user-agent-value): Modify code to get version number of

XEmacs. [cf. <tm-ja:4561>]

diff --git a/mime-edit.el b/mime-edit.el
index 2d5a52b..76a8343 100644 (file)
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -634,10 +634,9 @@ If it is not specified for a major-mode,
          (if (featurep 'xemacs)
              (concat (if (featurep 'mule) "MULE")
                      " XEmacs"
-                     (if (string-match "\\s +\\\"" emacs-version)
+                     (if (string-match "^[0-9]+\\(\\.[0-9]+\\)" emacs-version)
                          (concat "/"
-                                 (substring emacs-version 0
-                                            (match-beginning 0))
+                                 (substring emacs-version 0 (match-end 0))
                                  (if (and (boundp 'xemacs-betaname)
                                           ;; It does not exist in XEmacs
                                           ;; versions prior to 20.3.