From: morioka <morioka>
Date: Sat, 25 May 1996 15:52:44 +0000 (+0000)
Subject: (mime-editor/process-multipart-1): Use function `string-equal' instead
X-Git-Tag: Hokutetsu-Ishikawa-new~394
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=dac0c882583a3d2d8b5f2ab0449ca0e0b7d5aa6c;p=elisp%2Fsemi.git

(mime-editor/process-multipart-1): Use function `string-equal' instead
of `string='.
---

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 <morioka@jaist.ac.jp>
 ;;; 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)
 			)