From 8883ccb6283b81f7178553b19d80a8e8ce270ef8 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 2 Jul 1999 05:06:59 +0000 Subject: [PATCH] (mime-edit-user-agent-value): Follow in the wake of remi-1_13 about XEmacs UTF-2000-MULE. --- ChangeLog | 11 +++-------- mime-edit.el | 5 ++--- 2 files changed, 5 insertions(+), 11 deletions(-) diff --git a/ChangeLog b/ChangeLog index 35a9096..75d3006 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,18 +1,13 @@ -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-04 MORIOKA Tomohiko * 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