From f604caf70eb87a719acd7a2a59c2c10e52645c4d Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 28 Aug 2002 07:14:01 +0000 Subject: [PATCH] * mime-edit.el (mime-edit-user-agent-value): Add `xemacs-extra-name'. --- ChangeLog | 5 +++++ mime-edit.el | 9 ++++++++- 2 files changed, 13 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index b677275..be65f38 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2002-08-28 Katsumi Yamaoka + + * mime-edit.el (mime-edit-user-agent-value): Add + `xemacs-extra-name'. + 2000-10-19 Takanori Saneto * pgg-pgp.el (pgg-pgp-process-region): bind process-environment diff --git a/mime-edit.el b/mime-edit.el index d6899a3..febccc2 100644 --- a/mime-edit.el +++ b/mime-edit.el @@ -670,7 +670,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