From 85de5d4809029f66f7263b173201b8e646e22637 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 28 Aug 2002 07:14:11 +0000 Subject: [PATCH] * mime-edit.el (mime-edit-user-agent-value): Add `xemacs-extra-name'. --- ChangeLog | 6 ++++++ mime-edit.el | 9 ++++++++- 2 files changed, 14 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index a9d6e5e..4b502a4 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2002-08-28 Katsumi Yamaoka + + * mime-edit.el (mime-edit-user-agent-value): Add + `xemacs-extra-name'. + + 2002-07-08 MORIOKA Tomohiko * SEMI: Version 1.14.4 (Hosorogi) released. diff --git a/mime-edit.el b/mime-edit.el index 8716c25..40ce497 100644 --- a/mime-edit.el +++ b/mime-edit.el @@ -669,7 +669,14 @@ If it is not specified for a major-mode, ;; XEmacs versions earlier than 21.1.1. (format " (patch %d)" emacs-patch-level)) (t "")) - " (" xemacs-codename ") (" + " (" xemacs-codename ")" + ;; `xemacs-extra-name' has appeared in the + ;; development version of XEmacs 21.5-b8. + (if (and (boundp 'xemacs-extra-name) + (symbol-value 'xemacs-extra-name)) + (concat " " (symbol-value 'xemacs-extra-name)) + "") + " (" system-configuration ")") " (" emacs-version ")")) (let ((ver (if (string-match "\\.[0-9]+$" emacs-version) -- 1.7.10.4