OpenPGP support ?

[Shuhei KOBAYASHI]

>>>>> In <m2aeosnbn6.fsf ＠ ueda.info.waseda.ac.jp>,
>>>>> Daiki Ueno <ueno ＠ ueda.info.waseda.ac.jp> wrote:
> 現実逃避に 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))))))
>     ))

上野さんのこの mail は Emacs 20.4 で書かれていますね.
ひょっとして既にこのような物を自前で用意されているのでしょうか?
-------------- next part --------------
テキスト形式以外の添付ファイルを保管しました...
ファイル名: bytecode.el
型:         application/octet-stream
サイズ:     3147 バイト
説明:       無し
URL:        <http://lists.chise.org/pipermail/emacs-mime-ja/attachments/19991109/b9a99503/attachment.obj>
-------------- next part --------------
;; 書いてみたのはいいけど, こんなもの何に使うんだろうか? (^^;

-- 
Shuhei KOBAYASHI