Gnus: insert signature only when not replying

Gnus: insert signature only when not replying

[Teemu Likonen]

[-- Attachment #1: Type: text/plain, Size: 620 bytes --]

In certain Gnus's groups I'd like to have an automatic message signature
only when composing a new message but not in replies. I have tried
gnus-parameters and posting-style like this:


    (setq gnus-parameters
          '(("\\`nnimap\\+foo:"
             (posting-style
              (signature-file (if message-reply-headers
                                  nil
                                "~/.signature"))))))


But it always adds the signature. Any other ideas?

-- 
/// Teemu Likonen   - .-..   <https://keybase.io/tlikonen> //
// PGP: 4E10 55DC 84E9 DFF6 13D7 8557 719D 69D3 2453 9450 ///

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 487 bytes --]

Re: Gnus: insert signature only when not replying

[Teemu Likonen]

[-- Attachment #1: Type: text/plain, Size: 987 bytes --]

Teemu Likonen [2017-11-16 17:51:23+02] wrote:

> In certain Gnus's groups I'd like to have an automatic message
> signature only when composing a new message but not in replies.

I got it working. It's a bit ugly but here it is:


(setq gnus-parameters
      '(("\\`nnimap\\+foo:"
         (posting-style
          (eval (setq-local message-signature
                            (lambda ()
                              (unless message-reply-headers
                                (let ((sig "~/.signature"))
                                  (when (file-exists-p sig)
                                    (with-temp-buffer
                                      (insert-file-contents sig)
                                      (buffer-substring-no-properties
                                       (point-min) (point-max)))))))))))))

-- 
/// Teemu Likonen   - .-..   <https://keybase.io/tlikonen> //
// PGP: 4E10 55DC 84E9 DFF6 13D7 8557 719D 69D3 2453 9450 ///

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 487 bytes --]