From af2762f5768fe78ff79efca6b4bbc0bab0f23b5b Mon Sep 17 00:00:00 2001 From: morioka Date: Sun, 20 Sep 1998 15:20:36 +0000 Subject: [PATCH] (mime-edit-user-agent-value): Add system-configuration for Emacs and XEmacs. --- mime-edit.el | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/mime-edit.el b/mime-edit.el index e2065cb..21607b2 100644 --- a/mime-edit.el +++ b/mime-edit.el @@ -576,20 +576,22 @@ If it is not specified for a major-mode, (cadr mime-library-version) ") " (if (featurep 'xemacs) - (concat "XEmacs" + (concat (if (featurep 'mule) "MULE") + " XEmacs" (if (string-match "\\s +\\\"" emacs-version) (concat "/" (substring emacs-version 0 (match-beginning 0)) - " (" xemacs-codename ")") - " (" emacs-version ")") - (if (featurep 'mule) " MULE")) + " (" xemacs-codename ") (" + system-configuration ")") + " (" emacs-version ")")) (let ((ver (if (string-match "\\.[0-9]+$" emacs-version) (substring emacs-version 0 (match-beginning 0)) emacs-version))) (if (featurep 'mule) (if (boundp 'enable-multibyte-characters) (concat "Emacs/" ver + " (" system-configuration ")" (if enable-multibyte-characters (concat " MULE/" mule-version) " (with unibyte mode)") @@ -602,7 +604,7 @@ If it is not specified for a major-mode, )))) (concat "MULE/" mule-version " (based on Emacs " ver ")")) - ver)))) + (concat "Emacs/" ver " (" system-configuration ")"))))) "Body of User-Agent field. If variable `mime-edit-insert-user-agent-field' is not nil, it is inserted into message header.") -- 1.7.10.4