From: yamaoka <yamaoka>
Date: Sun, 27 Jun 1999 23:34:20 +0000 (+0000)
Subject: (mime-edit-user-agent-value): Include UTF-2000-MULE version if it exists.
X-Git-Tag: semi-1_13_5~7
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d1efcadc1f3bf31a62bcc5f92792c50fb045585a;p=elisp%2Fsemi.git

(mime-edit-user-agent-value): Include UTF-2000-MULE version if it exists.
---

diff --git a/mime-edit.el b/mime-edit.el
index 26eb543..8e3da1f 100644
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -632,12 +632,14 @@ If it is not specified for a major-mode,
 	  (mime-product-code-name mime-library-product)
 	  ") "
 	  (if (featurep 'xemacs)
-	      (concat (if (featurep 'mule) "MULE")
+	      (concat (cond ((boundp 'utf-2000-version)
+			     (concat "UTF-2000-MULE/" utf-2000-version))
+			    ((featurep 'mule) "MULE")
+			    (t ""))
 		      " 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.