From dac0c882583a3d2d8b5f2ab0449ca0e0b7d5aa6c Mon Sep 17 00:00:00 2001 From: morioka Date: Sat, 25 May 1996 15:52:44 +0000 Subject: [PATCH] (mime-editor/process-multipart-1): Use function `string-equal' instead of `string='. --- mime-edit.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/mime-edit.el b/mime-edit.el index 8a9b429..87256eb 100644 --- a/mime-edit.el +++ b/mime-edit.el @@ -9,7 +9,7 @@ ;;; Maintainer: MORIOKA Tomohiko ;;; Created: 1994/08/21 renamed from mime.el by UMEDA Masanobu; ;;; 1996/05/24 renamed from tm-edit.el -;;; Version: $Revision: 0.8 $ +;;; Version: $Revision: 0.9 $ ;;; Keywords: mail, news, MIME, multimedia, multilingual ;;; ;;; This file is part of SEMI (September, Emacs MIME Interface) @@ -123,7 +123,7 @@ ;;; (defconst mime-editor/RCS-ID - "$Id: mime-edit.el,v 0.8 1996-05-25 15:48:33 morioka Exp $") + "$Id: mime-edit.el,v 0.9 1996-05-25 15:52:44 morioka Exp $") (defconst mime-editor/version (get-version-string mime-editor/RCS-ID)) @@ -1460,7 +1460,7 @@ while if FLAG is `\\^M' (control-M) the text is hidden." (cond ((string-equal type "quote") (mime-editor/enquote-region bb eb) ) - ((string= type "signed") + ((string-equal type "signed") (cond ((eq mime-editor/signing-type 'pgp-elkins) (mime-editor/sign-pgp-elkins bb eb boundary) ) @@ -1468,7 +1468,7 @@ while if FLAG is `\\^M' (control-M) the text is hidden." (mime-editor/sign-pgp-kazu bb eb boundary) )) ) - ((string= type "encrypted") + ((string-equal type "encrypted") (cond ((eq mime-editor/encrypting-type 'pgp-elkins) (mime-editor/encrypt-pgp-elkins bb eb boundary) ) -- 1.7.10.4