From 5d1caa48dcd95b530e214d0b50de3484bec12071 Mon Sep 17 00:00:00 2001 From: morioka Date: Thu, 27 Jun 1996 14:06:46 +0000 Subject: [PATCH] (mime-editor/sign-pgp-kazu): Use macro `as-binary-process'. --- mime-edit.el | 12 +++--------- 1 file changed, 3 insertions(+), 9 deletions(-) diff --git a/mime-edit.el b/mime-edit.el index fa1210a..2c107d7 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.26 $ +;;; Version: $Revision: 0.27 $ ;;; 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.26 1996-06-12 05:58:23 morioka Exp $") + "$Id: mime-edit.el,v 0.27 1996-06-27 14:06:46 morioka Exp $") (defconst mime-editor/version (get-version-string mime-editor/RCS-ID)) @@ -1715,13 +1715,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) -- 1.7.10.4