From ff4849c1064f95823192a9ce95233caa11b897c2 Mon Sep 17 00:00:00 2001 From: morioka Date: Thu, 18 Sep 1997 03:01:52 +0000 Subject: [PATCH] (mime-edit-x-emacs-value): Use `(featurep 'xemacs)'; add DOC-string. --- mime-edit.el | 25 ++++++++++++++----------- 1 file changed, 14 insertions(+), 11 deletions(-) diff --git a/mime-edit.el b/mime-edit.el index 243c1dd..613e401 100644 --- a/mime-edit.el +++ b/mime-edit.el @@ -7,7 +7,7 @@ ;; Maintainer: MORIOKA Tomohiko ;; Created: 1994/08/21 renamed from mime.el ;; Renamed: 1997/2/21 from tm-edit.el -;; Version: $Revision: 0.90 $ +;; Version: $Revision: 0.91 $ ;; Keywords: MIME, multimedia, multilingual, mail, news ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces). @@ -122,7 +122,7 @@ ;;; (defconst mime-edit-RCS-ID - "$Id: mime-edit.el,v 0.90 1997-09-18 02:56:12 morioka Exp $") + "$Id: mime-edit.el,v 0.91 1997-09-18 03:01:52 morioka Exp $") (defconst mime-edit-version `,(get-version-string mime-edit-RCS-ID)) @@ -519,19 +519,22 @@ If it is not specified for a major-mode, "*If non-nil, insert X-Emacs header field.") (defvar mime-edit-x-emacs-value - (if running-xemacs - (concat emacs-version - (if (featurep 'mule) - " with mule" - " without mule")) + (if (featurep 'xemacs) + (concat emacs-version (if (featurep 'mule) + " with mule" + " without mule")) (let ((ver (if (string-match "\\.[0-9]+$" emacs-version) (substring emacs-version 0 (match-beginning 0)) emacs-version))) (if (featurep 'mule) - (if (featurep 'meadow) - (concat "Emacs " ver ", MULE " mule-version ", " (Meadow-version)) - (concat "Emacs " ver ", MULE " mule-version)) - ver)))) + (concat "Emacs " ver ", MULE " mule-version + (if (featurep 'meadow) + (concat ", " (Meadow-version)) + )) + ver))) + "Body of X-Emacs field. +If variable `mime-edit-insert-x-emacs-field' is not nil, it is +inserted into message header.") ;;; @ constants -- 1.7.10.4