From d1efcadc1f3bf31a62bcc5f92792c50fb045585a Mon Sep 17 00:00:00 2001 From: yamaoka Date: Sun, 27 Jun 1999 23:34:20 +0000 Subject: [PATCH] (mime-edit-user-agent-value): Include UTF-2000-MULE version if it exists. --- mime-edit.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) 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. -- 1.7.10.4