From 3b32957b3c4affb5daa02e14b892630a1621916d Mon Sep 17 00:00:00 2001 From: tomo Date: Fri, 22 Dec 2000 10:52:39 +0000 Subject: [PATCH] (pgg-gpg-messages-coding-system): New variable. (pgg-gpg-process-region): Use `pgg-gpg-messages-coding-system'. (pgg-scheme-verify-region): Use a "-" as the name for the file with the signed material. --- pgg-gpg.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/pgg-gpg.el b/pgg-gpg.el index 8080bd7..5b29a76 100644 --- a/pgg-gpg.el +++ b/pgg-gpg.el @@ -1,6 +1,6 @@ ;;; pgg-gpg.el --- GnuPG support for PGG. -;; Copyright (C) 1999,2000 Daiki Ueno +;; Copyright (C) 1999,2000 Free Software Foundation, Inc. ;; Author: Daiki Ueno ;; Created: 1999/10/28 @@ -47,6 +47,9 @@ (defvar pgg-gpg-user-id nil "GnuPG ID of your default identity.") +(defvar pgg-gpg-messages-coding-system pgg-messages-coding-system + "Coding system used when reading from a GnuPG external process.") + (defvar pgg-scheme-gpg-instance nil) ;;;###autoload @@ -77,6 +80,9 @@ (setq process (apply #'binary-start-process "*GnuPG*" errors-buffer program args)) + (if (fboundp 'set-process-coding-system) + (set-process-coding-system process + pgg-gpg-messages-coding-system)) (set-process-sentinel process #'ignore) (when passphrase (process-send-string process (concat passphrase "\n"))) @@ -186,6 +192,7 @@ (let ((args '("--batch" "--verify"))) (when (stringp signature) (setq args (append args (list signature)))) + (setq args (append args '("-"))) (pgg-gpg-process-region start end nil pgg-gpg-program args) (with-current-buffer pgg-errors-buffer (goto-char (point-min)) -- 1.7.10.4