OpenPGP support ?

[Daiki Ueno]

>>>>> In [emacs-mime-ja : No.00049] 
>>>>>	masakazu ＠ yamada.gr.jp (Masakazu Yamada) wrote:

> > > せっかくなので、できるようにしてしまいました。
> > > `pgg-sign-region' や `pgg-verify-region' を interactive に呼び出すと、
> > > clearsign を希望したとみなされます。

> > 素晴らしいです。ただ, User-Agent + GnuPG の環境で試したんですが, 
> > 日本語が含まれると pgg-sign-region は, やっぱり mc-sign-region 同様
> > 化けてしまいます。

> 僕も試してみました。署名に関しては、こちらの環境では問題無いように見え
> ます。

現実逃避に lunatic な(?)解決法を...

(eval-after-load "pgg-gpg"
  '(let* ((symbol (luna-class-find-member 
		  (luna-find-class 'pgg-scheme-gpg) 
		  'sign-region))
	 (original (symbol-function symbol))
	 (args (compiled-function-arglist original)))
    (fset symbol
	  `(lambda ,args
	     (let ((coding-system-for-write
		    (if cleartext 'iso-2022-7bit-ss2
		      coding-system-for-read)))
	       (apply ,original 
		      (mapcar #'symbol-value 
			      ',(delq '&optional args))))))
    ))

> verifyは、公開鍵を持っている人の記事は、
> Buffer is read-only: #<buffer *Article*> となってしまいます。

> 公開鍵を持っていない場合は、*PGG-echo*バッファが現れ、
> gpg: Can't check signature: public key not found と表示され止まってし
> まいます。PGP/MIMEの場合と同じようにkeyをfetchしてくれると良いのですが。

すみません。そのようにしてみました。。。

> それから、マルチパートの記事を何か読むまで、pgg-verify-regionなどが有
> 効にならないみたいです。

これは、M-x load-library pgg するか、
必要な関数の autoload する設定を ~/.emacs にでも書いて下さい。^^;;
-- 
Daiki Ueno (ueno ＠ ueda.info.waseda.ac.jp)