X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=tm-edit.el;h=86cc55a340277e6071e11ae0bac711726b5d37ec;hb=9710d631bef5981581cc482f481c8dd87cd80ec2;hp=06338da1463c86d645c7911d3cf3da1b20080c6f;hpb=05b13728a22475e6336880af82c01e03038c1481;p=elisp%2Ftm.git

diff --git a/tm-edit.el b/tm-edit.el
index 06338da..86cc55a 100644
--- a/tm-edit.el
+++ b/tm-edit.el
@@ -8,7 +8,7 @@
 ;;;         MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Created: 1994/08/21 renamed from mime.el
-;;; Version: $Revision: 7.68 $
+;;; Version: $Revision: 7.69 $
 ;;; Keywords: mail, news, MIME, multimedia, multilingual
 ;;;
 ;;; This file is part of tm (Tools for MIME).
@@ -122,7 +122,7 @@
 ;;;
 
 (defconst mime-editor/RCS-ID
-  "$Id: tm-edit.el,v 7.68 1996/06/12 05:53:26 morioka Exp $")
+  "$Id: tm-edit.el,v 7.69 1996/06/27 14:22:59 morioka Exp $")
 
 (defconst mime-editor/version (get-version-string mime-editor/RCS-ID))
 
@@ -1700,13 +1700,7 @@ 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-sign-region beg (point-max))
-	      )
+	(or (as-binary-process (mc-pgp-sign-region beg (point-max)))
 	    (throw 'mime-editor/error 'pgp-error)
 	    )
 	(goto-char beg)
@@ -1753,15 +1747,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)