Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!is.s.u-tokyo!news.nacsis.ac.jp!news.sainet.or.jp!news.imicom.or.jp!rim.or.jp!uucp1.rim.or.jp!unya!news
From: Kazuyoshi Michishita <mit@unya.rim.or.jp>
Newsgroups: fj.comp.security,fj.news.system.inn,fj.news.reader.gnus,fj.editor.mule,fj.editor.emacs,japan.security.pgp
Subject: Re: X-PGP-Sig
Date: 25 Jan 1997 01:13:27 +0900
Organization: RIMNET/AllesNET, Private Site, FreeBSD.
Lines: 60
Message-ID: <wfrajb6oj4.fsf@titan.unya.rim.or.jp>
References: <28n2wf3bli.fsf@ganews.ga.sony.co.jp>
	<287mld7qna.fsf@ganews.ga.sony.co.jp>
NNTP-Posting-Host: titan.unya.rim.or.jp
X-Newsreader: Gnus v5.3/Emacs 19.34
Content-Length: 2712
X-PGP-Sig: 2.6.3i Subject,Message-ID,Date,From,X-Newsreader
	iQCVAwUBMujfUWYOFRJEiaIpAQF5CAP7BfmXMcQJY2LoAvWwukJdjm+8j2owqLWf
	jAb0qeNJ9qPoXSO3YAhzhUvAQkPzrbM13Qyra8pdWNhQCY6D/Q/4h286ipQ7xpUW
	p5E9IOGjITMfnxzYMBzZRhYZUkMlLvUyXoI6QbsSaYlIvvyUlx3ZNfCBcLuaaJnj
	VpH9bBdVfIo=
	=MJ6j
Xref: galaxy.trc.rwcp.or.jp fj.comp.security:38 fj.news.system.inn:22 fj.news.reader.gnus:19 fj.editor.mule:551 fj.editor.emacs:6399
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.editor.emacs&nb=6399&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

$BF;2<$H?=$7$^$9!#(B

Katsumi Yamaoka <yamaoka@ga.sony.co.jp> writes:

>   x-pgp-sig.el $B$r$[$s$N>/$7D>$7$?$b$N$r2<5-$N>l=j$KCV$$$F$"$j$^$9$N$G!"(B
>   $B$I$&$>$4MxMQ2<$5$$!#$J$*!":#$^$G@[:n$N%W%m%0%i%`$rCV$+$;$FD:$$$F$$$?(B
>   ftp://ftp.khz.com/pub/yamaoka/ $B$O!"(B1997$BG/(B1$B7n$$$C$Q$$$GJD:?$5$l$^$9!#(B

x-pgp-sig $B$rMxMQ$5$;$F$b$i$C$F$^$9!#(B
 pgp $B$N%3%s%U%#%0%l!<%7%g%s%U%!%$%k$,(B "Verbose=0" $B$J$I$H$J$C$F$$(B
$B$k$H!"(B"Key ring: ..." $B$K%^%C%A$7$J$/$J$k$N$G!"0J2<$N$h$&$KBX$($F(B
$B$$$^$9!#(B
--- x-pgp-sig.el        Tue Jan 21 21:45:38 1997
+++ /home/mit/elisp/x-pgp-sig.el        Thu Jan 23 22:20:34 1997
@@ -499,11 +499,11 @@
          (setq buffer
                (set-buffer (get-buffer-create x-pgp-sig-working-buffer)))
          (setq buffer-read-only nil)
          (erase-buffer)
          (call-process
-          x-pgp-sig-pgp-program nil t nil "+language=en" "-kv" keyring)
+          x-pgp-sig-pgp-program nil t nil "+verbose=1" "+language=en" "-kv" keyring)
          (goto-char (point-min))
          (when (re-search-forward
                 (format "^Key ring: '%s'\nType.+\n" (regexp-quote keyring))
                 nil t)
            (while (re-search-forward re nil t)

 $B$"$H!"(Bsign $BEj9F$O$&$^$/$G$-$k$s$G$9$,!"(Bx-pgp-sign-verify $B$,(B
"!! Bad signature from user ...."
$B$H$J$C$F$7$^$$$^$9!#(B
 $BF1$8@_Dj$G(B(default-signer$B$O0c$$$^$9$1$I(B)$B!"2q<R(B(SunOS-4.1.4JL,
mule-2.3@19.34)$B$G$O$&$^$/F0$$$F$$$k$s$G$9$,!"<+Bp(B
(FreeBSD-2.1.5R, mule-2.3@19.34)$B$G$O!"$&$^$/$$$-$^$;$s!#(B
 $B$h$m$7$+$C$?$i!"%R%s%H$rD:$1$^$;$s$+(B?

.emacs $B$N@_Dj$G$9!#(B
(autoload 'x-pgp-sig-sign "x-pgp-sig"
    "Add X-PGP signature. [x-pgp-sig.el]" t)
(autoload 'x-pgp-sig-set-signer "x-pgp-sig"
    "Set PGP signer and passphrase. [x-pgp-sig.el]" t)
(autoload 'x-pgp-sig-set-signer-maybe "x-pgp-sig"
    "Set PGP signer and passphrase if necessary. [x-pgp-sig.el]" t)
(autoload 'x-pgp-sig-switch-signing "x-pgp-sig"
    "Judging whether to add X-PGP signature. [x-pgp-sig.el]" t)
(autoload 'x-pgp-sig-verify "x-pgp-sig"
    "Verify X-PGP signature in current message. [x-pgp-sig.el]" t)

(add-hook 'message-header-hook 'x-pgp-sig-sign t)
(add-hook 'message-setup-hook 'x-pgp-sig-set-signer-maybe t)

(setq x-pgp-sig-default-signer "Kazuyoshi Michishita<mit@unya.rim.or.jp>")
(setq x-pgp-sig-process-coding-system-for-output *iso-2022-jp*)
(setq x-pgp-sig-always-sign t)

--
----  Kazuyoshi Michishita----
  ----  $BF;2<(B $B0lNI(B   ----
    ----  mit@unya.rim.or.jp(Private) ----
      ----  mit@jts.ntts.co.jp(Office)  ----
