[mew-dist 24796] Re: Old PGP

[Tatsuya Kinoshita]

On March 25, 2004, [mew-dist 24791],
kazu (at iijlab.net) wrote:

> > 肝心のmew-use-old-pgp関数が使われていないようです。
> 
> あ、すいません。やりました。

caseを取り忘れているのを修正しました。

-- 
木下達也

--- mew-pgp.el	25 Mar 2004 04:53:10 -0000	1.55
+++ mew-pgp.el	27 Mar 2004 01:54:04 -0000
@@ -688,7 +688,8 @@
   (if (null mew-pgp-ver)
       (message "%s does not exist" mew-prog-pgp)
     (let ((func 'mew-draft-make-message))
-      (if (mew-use-old-pgp) (setq func 'mew-old-pgp-encode))
+      (if (mew-use-old-pgp (mew-tinfo-get-case))
+	  (setq func 'mew-old-pgp-encode))
       (if (and ask-singer (string-match "signature" (symbol-name type)))
 	  (funcall func type (car (mew-input-address "Who's key?: ")))
 	(funcall func type)))))