From 98939c1d392a6e5fdc6998add116a753693678d4 Mon Sep 17 00:00:00 2001 From: morioka Date: Fri, 4 Jun 1999 10:21:54 +0000 Subject: [PATCH] (mime-edit-user-agent-value): Modify code to get version number of XEmacs. [cf. ] --- mime-edit.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/mime-edit.el b/mime-edit.el index 2d5a52b..76a8343 100644 --- 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. -- 1.7.10.4