From 5ccf8fa7aed59beb35664601abed9aae00e915fc Mon Sep 17 00:00:00 2001 From: morioka Date: Sat, 8 Nov 1997 02:26:59 +0000 Subject: [PATCH] (mime-edit-enclose-quote-region, mime-edit-enclose-mixed-region, mime-edit-enclose-parallel-region, mime-edit-enclose-digest-region, mime-edit-enclose-alternative-region, mime-edit-enclose-signed-region, mime-edit-enclose-encrypted-region): Change subtype to symbol. --- mime-edit.el | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/mime-edit.el b/mime-edit.el index 3d66be7..a7df61f 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.95 $ +;; Version: $Revision: 0.96 $ ;; 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.95 1997-11-04 14:55:16 morioka Exp $") + "$Id: mime-edit.el,v 0.96 1997-11-08 02:26:59 morioka Exp $") (defconst mime-edit-version `,(get-version-string mime-edit-RCS-ID)) @@ -2160,40 +2160,40 @@ and insert data encoded as ENCODING." (defun mime-edit-enclose-quote-region (beg end) (interactive "*r") - (mime-edit-enclose-region "quote" beg end) + (mime-edit-enclose-region 'quote beg end) ) (defun mime-edit-enclose-mixed-region (beg end) (interactive "*r") - (mime-edit-enclose-region "mixed" beg end) + (mime-edit-enclose-region 'mixed beg end) ) (defun mime-edit-enclose-parallel-region (beg end) (interactive "*r") - (mime-edit-enclose-region "parallel" beg end) + (mime-edit-enclose-region 'parallel beg end) ) (defun mime-edit-enclose-digest-region (beg end) (interactive "*r") - (mime-edit-enclose-region "digest" beg end) + (mime-edit-enclose-region 'digest beg end) ) (defun mime-edit-enclose-alternative-region (beg end) (interactive "*r") - (mime-edit-enclose-region "alternative" beg end) + (mime-edit-enclose-region 'alternative beg end) ) (defun mime-edit-enclose-signed-region (beg end) (interactive "*r") (if mime-edit-signing-type - (mime-edit-enclose-region "signed" beg end) + (mime-edit-enclose-region 'signed beg end) (message "Please specify signing type.") )) (defun mime-edit-enclose-encrypted-region (beg end) (interactive "*r") (if mime-edit-signing-type - (mime-edit-enclose-region "encrypted" beg end) + (mime-edit-enclose-region 'encrypted beg end) (message "Please specify encrypting type.") )) -- 1.7.10.4