Re: Automatic GPG signing

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

On Fri, Jun 13 2014, Peter Münster wrote:

> (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)

Sorry, for this to work, I had to remove some lines from jl-encrypt.el:

--8<---------------cut here---------------start------------->8---
$ diff -u jl-encrypt.el~ jl-encrypt.el
--- jl-encrypt.el~      2014-05-26 16:32:09.973674503 +0200
+++ jl-encrypt.el       2014-05-26 20:12:24.641922293 +0200
@@ -203,15 +203,12 @@
 ;; (all necessary public keys are available).
 ;; In the past, this could have prevented me from sending plaintext e-mails
 ;; that should have been sent encrypted.
-(define-key message-mode-map (kbd "C-c C-c") 'jl-message-send-and-exit)
-(define-key message-mode-map (kbd "C-c C-s") 'jl-message-send)
 
 ;; Make gnus insert MML encryption tags if keys for all recipients are
 ;; available.  Thus, if you reply (or wide reply) to a message or edit
 ;; a saved draft, then MML encryption tags will be inserted right away.
 ;; Moreover, if jl-encrypt-insert-signature is always, an MML signature
 ;; tag will be added immediately.
-(add-hook 'gnus-message-setup-hook 'jl-encrypt-if-possible)
 
 (defgroup jl-encrypt nil
   "Customization options for jl-encrypt.el.")
--8<---------------cut here---------------end--------------->8---

-- 
           Peter