[Mew-dist 05348] Re: select PGP userid (was Re: PGP version)

[Mito]

※ "石" こと ishizuka at example.com さんの
   『[Mew-dist 05347] Re: select PGP userid (was Re: PGP version)』より

石>   えっと、個人的には単に C-cC-s の場合に、どの key を使う
石> のかも指定できるとより嬉しいです。普段は Diffie-hellman を
石> 使って、特別に指定した時だけ RSA で署名したいのですが、上
石> 記の仕様だと C-cC-s の場合、同一アドレスに対して最後に作成
石> した key で署名してしまうと思います。私の場合、先に Diffie-Hellman
石> で key を作成して、後から RSA の key を作ったので、C-cC-s
石> では RSA になってしまうので.....

なるほど。そういうものだったのですか。

添付のパッチでは、C-cC-s で
  1. draft の From ヘッダのアドレス
  2. mew-pgp-default-userid
  3. mew-mail-address
の順で検索するようになります。

mew-pgp-default-userid に DSS の userid を設定すれば大丈夫だ
と思います。

＃ 修正もれもあったので、ついでに直しておきました。

前のパッチをあてた所に再度あててください。

石>   更に、C-uC-cC-s で key を変えた場合には、ヘッダに挿入す
石> る X-PGP-*: の文字列を自動的に変更できるともっと嬉しいです。

自動にする方法は思いつきませんが、
mew-field-circular-completion-switch や
mew-field-circular-completion-switch あたりを使って簡単に変
更できるようにすることは可能だと思います。
＃ 必要な方に譲ります。(_ _)
-- 
7/3 21:18頃
NECソフトウェア新潟 水戸
mailto:mit at example.com \n
-------------- next part --------------
--- mew-encode.el	1998/07/03 12:02:02	1.2
+++ mew-encode.el	1998/07/03 12:02:23
@@ -67,6 +67,7 @@
     (if (mew-attach-p)
 	(let ((mew-inherit-signer (or (and arg (mew-pgp-ask-userid))
 				      (mew-header-get-address "From:")
+                                      mew-pgp-default-userid
 				      mew-mail-address)))
 	  (mew-draft-make-multi))
       (mew-draft-make-single))
--- mew-pgp.el	1998/07/03 11:59:29	1.2
+++ mew-pgp.el	1998/07/03 11:59:34
@@ -438,9 +438,10 @@
 ;; shortcut methods
 ;;
 
+(defvar mew-pgp-default-userid nil)
 (defvar mew-pgp-optional-userid nil)
 (defun mew-pgp-ask-userid ()
-  (if mew-pgp-userid
+  (if mew-pgp-optional-userid
       (if (stringp 'mew-pgp-optional-userid)
           mew-pgp-optional-userid
         (let ((completion-ignore-case t)
@@ -454,6 +455,7 @@
   (interactive "P")
   (let ((mew-inherit-signer (or (and arg (mew-pgp-ask-userid))
                                 (mew-header-get-address "From:")
+                                mew-pgp-default-userid
 				mew-mail-address)))
     (mew-pgp-encode-letter (list (list mew-ct-mls mew-ct-pgs)))))
 
@@ -462,6 +464,7 @@
   (interactive "P")
   (let ((mew-inherit-signer (or (and arg (mew-pgp-ask-userid))
                                 (mew-header-get-address "From:")
+                                mew-pgp-default-userid
 				mew-mail-address)))
     (mew-pgp-encode-letter (list (list mew-ct-mle mew-ct-pge)))))
 
@@ -470,6 +473,7 @@
   (interactive "P")
   (let ((mew-inherit-signer (or (and arg (mew-pgp-ask-userid))
                                 (mew-header-get-address "From:")
+                                mew-pgp-default-userid
 				mew-mail-address)))
     (mew-pgp-encode-letter (list (list mew-ct-mls mew-ct-pgs)
 				 (list mew-ct-mle mew-ct-pge)))))