From 1907e15a2d2f961cd5ba9db456c31d27467d2ba7 Mon Sep 17 00:00:00 2001 From: morioka Date: Thu, 27 Jun 1996 14:08:17 +0000 Subject: [PATCH] (mime-editor/encrypt-pgp-kazu): Use macro `as-binary-process'. --- mime-edit.el | 18 +++++++----------- 1 file changed, 7 insertions(+), 11 deletions(-) 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 ;;; 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) -- 1.7.10.4