From: morioka <morioka>
Date: Thu, 27 Jun 1996 14:08:17 +0000 (+0000)
Subject: (mime-editor/encrypt-pgp-kazu): Use macro `as-binary-process'.
X-Git-Tag: Hokutetsu-Ishikawa-new~375
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1907e15a2d2f961cd5ba9db456c31d27467d2ba7;p=elisp%2Fsemi.git

(mime-editor/encrypt-pgp-kazu): Use macro `as-binary-process'.
---

diff --git a/mime-edit.el b/mime-edit.el
index 2c107d7..5b3c939 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.27 $
+;;; Version: $Revision: 0.28 $
 ;;; 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.27 1996-06-27 14:06:46 morioka Exp $")
+  "$Id: mime-edit.el,v 0.28 1996-06-27 14:08:17 morioka Exp $")
 
 (defconst mime-editor/version (get-version-string mime-editor/RCS-ID))
 
@@ -1762,15 +1762,11 @@ Content-Transfer-Encoding: 7bit
 	      (insert (format "Content-Transfer-Encoding: %s\n" encoding))
 	    )
 	  (insert "\n")
-	  (or (let ((program-coding-system-alist
-		     (cons (cons (cons nil ".*pgp.*")
-				 (cons *noconv* *noconv*))
-			   program-coding-system-alist))
-		    )
-		(mc-pgp-encrypt-region
-		 (mc-split "\\([ \t\n]*,[ \t\n]*\\)+" recipients)
-		 beg (point-max))
-		)
+	  (or (as-binary-process
+	       (mc-pgp-encrypt-region
+		(mc-split "\\([ \t\n]*,[ \t\n]*\\)+" recipients)
+		beg (point-max))
+	       )
 	      (throw 'mime-editor/error 'pgp-error)
 	      )
 	  (goto-char beg)