From 20d5132eac4ab8946b88ae2ae6c9951cc7ed9535 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 2 Jul 1999 05:07:39 +0000 Subject: [PATCH] Sync up with the latest semi-1_13. --- ChangeLog | 11 +++-------- mime-edit.el | 5 ++--- 2 files changed, 5 insertions(+), 11 deletions(-) diff --git a/ChangeLog b/ChangeLog index ed6fd24..51d44b9 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,7 +1,7 @@ -1999-06-27 Katsumi Yamaoka +1999-06-17 MORIOKA Tomohiko - * mime-edit.el (mime-edit-user-agent-value): Include UTF-2000-MULE - version if it exists. + * mime-edit.el (mime-edit-user-agent-value): Modify for XEmacs + UTF-2000-MULE. 1999-06-25 Kenichi OKADA @@ -17,11 +17,6 @@ * mime-edit.el (mime-edit-user-agent-value): Modify code to get version number of XEmacs. [cf. ] -1999-06-04 Katsumi Yamaoka - - * mime-edit.el (mime-edit-user-agent-value): Ignore parenthesis in - `emacs-version' for XEmacs 21.2.15. - 1999-05-31 Keiichi Suzuki * mime-play.el (mime-show-echo-buffer): Bind `buffer-read-only' to diff --git a/mime-edit.el b/mime-edit.el index 8e3da1f..c6229b8 100644 --- a/mime-edit.el +++ b/mime-edit.el @@ -632,10 +632,9 @@ If it is not specified for a major-mode, (mime-product-code-name mime-library-product) ") " (if (featurep 'xemacs) - (concat (cond ((boundp 'utf-2000-version) + (concat (cond ((featurep 'utf-2000) (concat "UTF-2000-MULE/" utf-2000-version)) - ((featurep 'mule) "MULE") - (t "")) + ((featurep 'mule) "MULE")) " XEmacs" (if (string-match "^[0-9]+\\(\\.[0-9]+\\)" emacs-version) (concat "/" -- 1.7.10.4