From 7703be8f24891512d5c363de793d28d081671c0c Mon Sep 17 00:00:00 2001 From: morioka Date: Thu, 27 Mar 1997 20:39:15 +0000 Subject: [PATCH] (mime-article/check-pgp-signature): `mime/output-buffer-name' -> `mime-echo-buffer-name'. --- mime-pgp.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/mime-pgp.el b/mime-pgp.el index 56d799f..67a59bc 100644 --- a/mime-pgp.el +++ b/mime-pgp.el @@ -5,7 +5,7 @@ ;; Author: MORIOKA Tomohiko ;; Created: 1995/12/7 ;; Renamed: 1997/2/27 from tm-pgp.el -;; Version: $Id: mime-pgp.el,v 0.15 1997-03-18 14:45:47 morioka Exp $ +;; Version: $Id: mime-pgp.el,v 0.16 1997-03-27 20:39:15 morioka Exp $ ;; Keywords: PGP, security, MIME, multimedia, mail, news ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces). @@ -204,10 +204,10 @@ It should be ISO 639 2 letter language code such as en, ja, ...") (mime-decode-region (point-min)(point-max) encoding) (as-binary-output-file (write-file sig-file)) (or (mime::article/call-pgp-to-check-signature - mime/output-buffer-name orig-file) + mime-echo-buffer-name orig-file) (let (pgp-id) (save-excursion - (set-buffer mime/output-buffer-name) + (set-buffer mime-echo-buffer-name) (goto-char (point-min)) (let ((regexp (cdr (assq (or mime-pgp-default-language 'en) mime-pgp-key-expected-regexp-alist)))) @@ -228,10 +228,10 @@ It should be ISO 639 2 letter language code such as en, ja, ...") (progn (funcall (pgp-function 'fetch-key) (cons nil pgp-id)) (mime::article/call-pgp-to-check-signature - mime/output-buffer-name orig-file) + mime-echo-buffer-name orig-file) )) )) - (let ((other-window-scroll-buffer mime/output-buffer-name)) + (let ((other-window-scroll-buffer mime-echo-buffer-name)) (scroll-other-window 8) ) (kill-buffer kbuf) -- 1.7.10.4