[mew-dist 29058] mew-pgp-signer for old PGP

[Tatsuya Kinoshita]

mew-pgp-signerがmew-old-pgp-encodeで効いていないことに気付きました。
このパッチでいかがでしょうか。

----
--- mew.orig/mew-pgp.el
+++ mew/mew-pgp.el
@@ -752,7 +752,9 @@
 	  (message "Old PGP cannot be used if multipart exists"))
       (setq doit t))
     (when doit
-      (setq mew-inherit-encode-pgp-signer (or signer (mew-get-my-address)))
+      (setq mew-inherit-encode-pgp-signer (or signer
+					      (mew-pgp-signer (mew-tinfo-get-case))
+					      (mew-get-my-address)))
       (cond
        ((eq type 'pgp-signature)
 	(mew-old-pgp-sign cs syntax))
----

-- 
木下達也