patch for emiko

[中川 誠]

中川＠コンパック(株)です。

pgg5 で署名の検証をおこう際に echo buffer がきちんと表示されないのでパッ
チを作成しました。ついでに pgp と pgp5 について verify-region を gpg の
実装に合わせてます。

実装方法を変えていることに何か意味があるのでしょうか。

-------------- next part --------------
Index: pgg-pgp.el
===================================================================
RCS file: /cvs/root/semi/Attic/pgg-pgp.el,v
retrieving revision 1.1.2.17
diff -u -r1.1.2.17 pgg-pgp.el
--- pgg-pgp.el	2000/02/01 04:03:25	1.1.2.17
+++ pgg-pgp.el	2000/02/01 15:09:37
@@ -212,7 +212,12 @@
       (when (re-search-forward "^\\.$" nil t)
 	(delete-region (point-min) 
 		       (progn (beginning-of-line 2)
-			      (point)))))))
+			      (point))))
+      (if (re-search-forward "^Good signature" nil t)
+	  t
+	(set-buffer pgg-errors-buffer)
+	(insert-buffer-substring pgg-output-buffer)
+	nil))))
 
 (luna-define-method pgg-scheme-insert-key ((scheme pgg-scheme-pgp))
   (let* ((pgg-pgp-user-id (or pgg-pgp-user-id pgg-default-user-id))
Index: pgg-pgp5.el
===================================================================
RCS file: /cvs/root/semi/Attic/pgg-pgp5.el,v
retrieving revision 1.1.2.17
diff -u -r1.1.2.17 pgg-pgp5.el
--- pgg-pgp5.el	2000/02/01 04:03:25	1.1.2.17
+++ pgg-pgp5.el	2000/02/01 15:09:37
@@ -216,7 +216,12 @@
     (if signature (delete-file signature))
     (with-current-buffer pgg-errors-buffer
       (goto-char (point-min))
-      (re-search-forward "^Good signature" nil t))))
+      (if (re-search-forward "^Good signature" nil t)
+	  (progn
+	    (set-buffer pgg-output-buffer)
+	    (insert-buffer-substring pgg-errors-buffer)
+	    t)
+	nil))))
 
 (luna-define-method pgg-scheme-insert-key ((scheme pgg-scheme-pgp5))
   (let* ((pgg-pgp5-user-id (or pgg-pgp5-user-id pgg-default-user-id))

-------------- next part --------------
-- 
/***   Compaq Computer K.K.                        ***/
/***   Network and Systems Integration Servieces   ***/
/***   Nakagawa, Makoto（中川　誠）                ***/
/*  F6 E1 41 25 49 DF A8 82  D4 94 4F 0C 95 6B D7 57 */
-------------- next part --------------
テキスト形式以外の添付ファイルを保管しました...
ファイル名: 無し
型:         application/pgp-signature
サイズ:     348 バイト
説明:       無し
URL:        <http://lists.chise.org/pipermail/emacs-mime-ja/attachments/20000202/e8e52af3/attachment.pgp>