Re: EasyPG for signing and en/decrypting Email

[Giorgos Keramidas]

On Sun, 05 Apr 2009 13:43:14 +0200, Suno Ano <suno.ano@sunoano.org> wrote:
> Below is my current setup
>
>  1  (require 'epa)
>  2
>  3  (setq mml2015-use 'epg)
>  4  (setq mml2015-encrypt-to-self t)
>  5  (setq mml2015-verbose t)
>  6  (setq mml2015-always-trust nil)
>  7  (setq mml2015-passphrase-cache-expiry '7200)
>  8
>  9  (add-hook 'message-setup-hook
> 10            (lambda ()
> 11              (if gnus-newsgroup-name
> 12                  (let ((signers (gnus-group-get-parameter
> 13                                  gnus-newsgroup-name
> 14                                  'mml2015-signers
> 15                                  t)))
> 16                    (if signers
> 17                        (set (make-local-variable 'mml2015-signers)
> 18                             signers))))))
> 19
> 20
> 21  (setq gnus-message-replysign t
> 22        gnus-message-replyencrypt t
> 23        gnus-message-replysignencrypted t
> 24        gnus-treat-x-pgp-sig t
> 25        mm-verify-option 'always
> 26        mm-decrypt-option 'always
> 27  )
> 28
> 29  (setq gnus-buttonized-mime-types
> 30        '("multipart/alternative"
> 31          "multipart/encrypted"
> 32          "multipart/signed"))
> 33
> 34  (setq mm-coding-system-priorities
> 35        '(iso-latin-1 iso-latin-9 mule-utf-8))

Thanks for posting this!

Apparently, this requires setting a list of mml2015-signers as a group
property.  Is there any way to avoid the prompt for selecting a key when
this property does not exist in the current group, or to use a default
value?

I am considering a slightly different variation of the hook function
added to `message-setup-hook' above; one that does something like:

    (lambda ()
      (when gnus-newsgroup-name
        (let ((group-signers (gnus-group-get-parameter gnus-newsgroup-name
                               'mml2015-signers t))
              (default-signers (if (boundp 'mml2015-default-signers)
                                   mml2015-default-signers)))
          (let ((signers (or group-signers default-signers)))
            (when signers
              (set (make-local-variable 'mml2015-signers) signers))))))

Does this make sense?  Will it avoid the prompt buffer?