[Mew-dist 03313] X-PGP-Sig & about header...

[Takayoshi KAWATE]

遅れ馳せながら，明けましておめでとうございます。かわて＠慶應です。

＃こちらにポストしていいものかどうか迷ったのですが・・・

現在，Mule 2.3(Emacs 19.28 on HP-UX 9.05)+Mew 1.93b8+IM80を使っていま
して，最近PGPにも挑戦し始めました。

PGPで署名されてる方も多いようですが，ドキュメントを読んでも，どうも思
うような挙動をしてくれないのです。

ヘッダに，fingerprintやまたX-URL表示などもさせてみたいのですが，どのよ
うに設定したらいいのでしょうか？オライリーのPGPの本を先ほど生協で立ち
読み(^^;)してきたのですが，X-PGP-Sigについての記述はないようでした。

もしよろしければ，PGP(+X-PGP-Sig)を使っていらっしゃる方で，具体的な設
定方法をDMででも教えて頂けますと幸いです。

また，過去ログ(←ちゃんと確認しろ！^^;＞私)やWebページなどで役立ちそう
なものでも結構です(Webページについては私は見つけられませんでした)。

長くなりましたが，よろしくお願い致します。

＃参考までに，.emacsのMewとX-PGP-Sigの設定部分を載せておきます。
-----
;;
;; Mew : Messaging in the Emacs World
;;
(setq load-path
	  (cons (expand-file-name
			 (concat exec-directory "../../site-lisp/mew"))
			load-path))

(autoload 'mew "mew" nil t)
(autoload 'mew-send "mew" nil t)

(setq mew-demo nil)
(setq mew-mail-domain-list
      '("suga.mech.keio.ac.jp" "mc.st.keio.ac.jp" "kawate.sky.or.jp"))

(setq mew-from "Takayoshi KAWATE <taka-k at example.com>")
(setq mew-reply-to nil)
;(setq mew-cc "taka-k at example.com")
(setq mew-dcc "taka-k at example.com")
(setq mew-replyto-to-list '("Reply-To:"))
(setq mew-replyto-cc-list '("To:" "Cc:" "Apparently-To:"))

(setq mew-cite-fields '("Subject:" "Date:" "From:"))
(setq mew-cite-format "In the message \"%s\"\n\tOn %s,\n\t%s wrote:\n\n")
(setq mew-cite-prefix-function 'mew-cite-prefix-username)
;(setq mew-cite-prefix "> ")

(setq mew-draft-mode-hook
	  '(lambda ()
		 (turn-on-auto-fill)
		 (setq fill-column 70)))

;(setq mew-auto-add-content-type t)


;;
;; X-PGP-Sig
;;
(setq load-path
	  (cons (expand-file-name
			 (concat exec-directory "../../site-lisp/x-pgp-sig"))
			load-path))

(autoload 'x-pgp-sig-sign "x-pgp-sig"
  "Add X-PGP signature." t)
(autoload 'x-pgp-sig-set-signer "x-pgp-sig"
  "Set PGP signer and passphrase." t)
(autoload 'x-pgp-sig-set-signer-maybe "x-pgp-sig"
  "Set PGP signer and passphrase if necessary." t)
(autoload 'x-pgp-sig-switch-signing "x-pgp-sig"
  "Judging whether to add X-PGP signature." t)
(autoload 'x-pgp-sig-verify "x-pgp-sig"
  "Verify X-PGP signature in current message." t)

(setq x-pgp-sig-from "taka-k at example.com")
(setq x-pgp-sig-default-signer
	  "Takayoshi KAWATE <taka-k at example.com>")
(setq x-pgp-sig-pgp-program "pgp")
(setq x-pgp-sig-pgppath (expand-file-name "~/.pgp"))
(setq x-pgp-sig-pubring (concat x-pgp-sig-pgppath "/pubring.pgp"))
(setq x-pgp-sig-secring (concat x-pgp-sig-pgppath "/secring.pgp"))

;(setq x-pgp-sig-process-coding-system-for-output *junet*unix)
;(setq x-pgp-sig-process-kanji-code 2)
;(setq x-pgp-sig-delete-last-empty-line-while-verifying t)
;(setq x-pgp-sig-add-content-length-field t)
;(setq x-pgp-sig-approved-field-body x-pgp-sig-from)

(setq x-pgp-sig-sign-fields
      '("Subject" "Control" "Message-ID" "Date" "From" "Sender"
        "X-Mailer" "X-Newsreader" "X-Face"))
(setq x-pgp-sig-last-fields '("X-Face" "X-Face-Version"))


(add-hook 'mew-summary-mode-hook
          (function
           (lambda ()
             (define-key (current-local-map) "\C-c/V" 'x-pgp-sig-verify)
             )) t)
(add-hook 'mew-send-hook 'x-pgp-sig-sign t)
(add-hook 'mew-real-send-hook 'x-pgp-sig-mew-encode-coding-and-sign t)
-----

-----
Takayoshi KAWATE (^^)/
Department of Mechanical Engineering,
Graduate School of Science and Technology, Keio Univ.
taka-k at example.com (Suga Lab.)
taka-k at example.com
www.kawate.sky.or.jp/  (Japanese only...)