Re: Automatic GPG signing

["Peter Münster" <pmlists@free.fr>]

On Fri, Jun 13 2014, Matt Ford wrote:

> http://www.emacswiki.org/emacs/DefaultEncrypt

Hi,

If you want a very easy setup (encrypt whenever all recipients have
keys), then you could use something like this:

--8<---------------cut here---------------start------------->8---
(defun pm/message-send ()
  (unless (message-field-value gnus-delay-header) ; see http://article.gmane.org/gmane.emacs.gnus.general/84598
    (unless (string-equal pm/role "list")         ; no gpg stuff in lists
      (if (jl-epg-check-unique-keys (jl-mail-recipients))
          (mml-secure-message-sign-encrypt)
        (mml-secure-message-sign)))
    (or (pm/spell) (keyboard-quit))))             ; see http://article.gmane.org/gmane.emacs.gnus.general/84461

(add-hook 'message-send-hook 'pm/message-send)
--8<---------------cut here---------------end--------------->8---


And when you want to fetch unknown keys from a signed message:

--8<---------------cut here---------------start------------->8---
(defun pm/gnus-article-receive-epg-keys ()
  "Fetch unknown keys from a signed message.
From http://article.gmane.org/gmane.emacs.gnus.user/15894"
  (interactive)
  (goto-char (point-min))
  (if (re-search-forward
       "\\[\\[PGP Signed Part:No public key for \\([A-F0-9]\\{16,16\\}\\) created at "
       nil 'noerror)
      (progn
        (epg-import-keys-from-server (epg-make-context 'OpenPGP)
                                     (list (match-string 1)))
        (gnus-summary-prev-article)
        (gnus-summary-next-article)
        (gnus-summary-select-article-buffer))
    (message "No unknown signed parts found.")))
--8<---------------cut here---------------end--------------->8---

HTH,
-- 
           Peter