signing all mail by default

[Kevin Brubeck Unhammer]

I would love to simply say

    (add-hook 'message-setup-hook 'mml-secure-message-sign)

and have all mail signed by default. Unfortunately, this hook is called
before gnus inserts reply text (so the <#secure thing is put below
quoted text) and for certain emails even makes my Emacs hang (with 100 %
CPU usage).

So instead, I use this mess to sign all email by default (both for
global shortcut C-x m and for R/F/r/f/a from gnus):


    (defadvice gnus-summary-handle-replysign (before always-sign activate)
      ;; the function itself may override this to encrypt as well.
      (mml-secure-message-sign))
    
    (defun mml-sign-unless-called-by-gnus ()
      (unless (boundp 'article)
        ;; If we're called by gnus, article is bound (yes, this is hacky)
        (mml-secure-message-sign)))
    (add-hook 'message-setup-hook 'mml-sign-unless-called-by-gnus)


Is there a less hacky way?


-- 
Kevin Brubeck Unhammer

Never attribute to malice that which is adequately explained by
incompetence or laziness.

pgpbyGOzwe6T2.pgp
Description: PGP signature