From: morioka <morioka>
Date: Thu, 27 Mar 1997 20:39:15 +0000 (+0000)
Subject: (mime-article/check-pgp-signature): `mime/output-buffer-name' ->
X-Git-Tag: Hokutetsu-Ishikawa-new~39
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7703be8f24891512d5c363de793d28d081671c0c;p=elisp%2Fsemi.git

(mime-article/check-pgp-signature): `mime/output-buffer-name' ->
`mime-echo-buffer-name'.
---

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 <morioka@jaist.ac.jp>
 ;; 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)