From 7c5800770ce79dcbbf8e173d9b0d209d6eb18398 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 27 Sep 1999 07:07:22 +0000 Subject: [PATCH] (mime-edit-user-agent-value): Include `emacs-patch-level'. It exists in XEmacs 21.1.1 or later. --- ChangeLog | 5 +++++ mime-edit.el | 26 ++++++++++++++++---------- 2 files changed, 21 insertions(+), 10 deletions(-) diff --git a/ChangeLog b/ChangeLog index 0e52440..b8c83d1 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +1999-09-27 Katsumi Yamaoka + + * 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 * mime-view.el (mime-preview-scroll-up-entitiy, diff --git a/mime-edit.el b/mime-edit.el index c6549f9..bbddd6f 100644 --- 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)) -- 1.7.10.4