[mew-dist 28238] Re: mew-pinentry

[早間]

早間です。
ありがとうございます。
> 
> > > ちなみに、quote されているリストの中では quote (') をつけてはいけません。
> > > 
> >  (setq mew-config-alist
> >       '(
> >         ("smime"
> >  		   ("privacy-method" . 'smime)
> > 		   ...
> > 		)
> 
> (setq ng1 '(("hoge". 'fuga)))
> => (("hoge" quote fuga))
> 
> (setq ok1 '(("hoge". fuga)))
> => (("hoge" . fuga))
> 
> ということです。
> 

また一つ lisp の書き方が判りました。

("privacy-method" . smime)
も試していますが、変わりありません。
# ("pop-auth" . apop) と言うのがありましたので訳も判らず使ってみま
# した。

info では "privacy-method" と書いてありますが mew-config.el には
(defun mew-draft-privacy-method (&optional case)
  (mew-cfent-value case "draft-privacy-method"  mew-draft-privacy-method))
とあるので 
  "privacy-method"
 を
  "draft-privacy-method"
に変えてみましたが影響は出ませんでした。

 *scratch* に次のコマンドを置いて実行してみました。
(mew-config.el から抜き出して来ました)

(mew-cfent-value "smime" "draft-privacy-method"
    mew-draft-privacy-method)
 smime と表示されます。

(mew-cfent-value "smime"
 "protect-privacy-always"  mew-protect-privacy-always)
 t と表示されます。

(mew-cfent-value "smime"
 "protect-privacy-always-type" mew-protect-privacy-always-type)
 smime-signature と表示されます。

(mew-cfent-value "smime"
 "protect-privacy-encrypted" mew-protect-privacy-encrypted)
 nil と表示されます。

(mew-cfent-value "smime" 
 "protect-privacy-encrypted-type" mew-protect-privacy-encrypted-type)
 smime-signature と表示されます。

.mew に書いた値が読み出せるので正しいように思うのですが、目的を
達成できません。

-- 早間 義博