[Mew-dist 11134] Re: Good PGP sign COPLETE

[Chifumi Hayashi ( 林 千史 )]

林です。

On Fri, 29 Oct 1999 17:42:56 +0900,
Chifumi Hayashi (林　千史) <chifumi at example.com> wrote:

> > > PGP 2.6.3i では(もともとのような気もしますが) NG です。
> > > PGP の「最初の」アドレスが表示されるようです。
> > 
> > PGP 2.6.3i の検証メッセージが「最初のアドレス」しか表示しないので、しょ
> > うがないと思います。
> 
> GnuPG で同じように「最初のアドレス」になってしまうのも同じ理由からでしょ
> うか？
> 
> でも、" *mew tmp*" buffer を観察していると
> 
> gpg: Signature made 1999年10月29日 (金) 11時42分57秒 JST using DSA key ID F29119B2
> gpg: Good signature from "Chifumi Hayashi <chifumi at example.com>"
> gpg:                 aka "Chifumi Hayashi <chifumi@****.jp>"
> gpg:                 aka "Chifumi Hayashi <chifumi@****.****.ac.jp>"
> 
> のように見えているので、どうにか出来るのではないかという気がするのです
> が？

GnuPG と PGP 2.6.3i についても、添付の patch でうまくできるようです。
-- 
 林　千史  chifumi at example.com
-------------- next part --------------
--- mew-pgp.el.org	Wed Oct 20 23:30:41 1999
+++ mew-pgp.el	Sat Oct 30 00:46:34 1999
@@ -103,6 +103,8 @@
   '("Unsupported packet format" ;; including algorithms and packets
     "Unsupported packet format"
     "xxx"))
+(defconst mew-pgp-verify-addr
+  '(".* \\(signature from user\\) " "\\(   \\)" "gpg: .* \\(from\\|aka\\) "))
 
 ;; 2: ASCII armor corrupted
 ;; 3:
@@ -236,20 +238,17 @@
 	      (if (search-forward (mew-pgp-get mew-pgp-msg-unsupported) nil t)
 		  (setq ret mew-pgp-result-unsup))))) ;; ret may be nil
       ;; Signature result is found.
-      (if (or (equal mew-pgp-ver mew-pgp-ver2)
-	      (equal mew-pgp-ver mew-pgp-verg))
-	  (setq ret (concat (mew-match 1) " PGP sign " (mew-match 2)))
 	(setq ret (concat (mew-match 1) " PGP sign "))
 	(goto-char (point-max))
 	(if (and (boundp 'mew-inherit-from) mew-inherit-from
-		 (re-search-backward (concat "   .*" mew-inherit-from) nil t))
+		 (re-search-backward (concat (concat (mew-pgp-get mew-pgp-verify-addr) ".*") mew-inherit-from) nil t))
 	    (progn
 	      (beginning-of-line)
-	      (looking-at "   \\(.*\\)")
-	      (setq ret (concat ret (mew-match 1))))
+	      (looking-at (concat (mew-pgp-get mew-pgp-verify-addr) "\\(.*\\)"))
+	      (setq ret (concat ret (mew-match 2))))
 	  (goto-char (point-max))
-	  (re-search-backward "   \\(.*\\)" nil t)
-	  (setq ret (concat ret (mew-match 1)))))
+	  (re-search-backward (concat (mew-pgp-get mew-pgp-verify-addr) "\\(.*\\)") nil t)
+	  (setq ret (concat ret (mew-match 2))))
       ;; xxx
       (goto-char (point-min))
       (if (search-forward "not certified with enough" nil t)