Don't want .sig on forwarded messages

Don't want .sig on forwarded messages

[Emerick Rogul]

Hi,

Does anyone know if there's a setting I can twiddle in gnus so that it
doesn't add my signature to messages the I forward (I still want it
added to replys and follow-ups, though)?

-Emerick
-- 
-------------------------------------------------------------------------
  "razzle, dazzle, drazzle, drone, time for this one to come home,
   razzle, dazzle, drazzle, dry, time for this one to come alive."
--- Emerick Rogul <emerick@cs.bu.edu> ---------- 'hold my life', the mats

Re: Don't want .sig on forwarded messages

[Lars Magne Ingebrigtsen]

Emerick Rogul <emerick@cs.bu.edu> writes:

> Does anyone know if there's a setting I can twiddle in gnus so that it
> doesn't add my signature to messages the I forward (I still want it
> added to replys and follow-ups, though)?

There is no pre-defined functionality in Gnus for doing this.

-- 
(domestic pets only, the antidote for overdose, milk.)
   larsi@gnus.org * Lars Magne Ingebrigtsen

Re: Don't want .sig on forwarded messages

[François Pinard]

[Lars Magne Ingebrigtsen]

> Emerick Rogul <emerick@cs.bu.edu> writes:

> > Does anyone know if there's a setting I can twiddle in gnus so that it
> > doesn't add my signature to messages the I forward (I still want it
> > added to replys and follow-ups, though)?

> There is no pre-defined functionality in Gnus for doing this.

I use the following, which allows me to decide on a per-message basis if
I will sign it or not.  I did not recently check if this code works with
cryptographic signatures, however...


(defvar PGP)

(unless (boundp 'PGP)
  (setq PGP (or (executable-find "pgp") (executable-find "gpg"))))

(defconst fp-signature-type
  (cond ((member user-login-name '("bourbeau" "payette" "pinard")) 'ask)
	(t 'clear))
  "Possible values are 'clear, 'pgp, 'none or 'ask.")

(defun fp-sign-message ()
  (let* ((request (if PGP "Signature (c-clear, p-pgp, n-none)? [c] "
		    "Signature (y/n)? [y] "))
	 (replies (if PGP '((?c . clear) (?p . pgp) (?n . none)
			    (?y . clear) (?  . clear) (?\C-m . clear))
		    '((?y . clear) (?n . none)
		      (?c . clear) (?  . clear) (?\C-m . clear))))
	 (signature-type (if (eq fp-signature-type 'ask)
			     (let ((cursor-in-echo-area t)
				   (reply 0))
			       (while (not (assq reply replies))
				 (message request)
				 (setq reply (read-char-exclusive)))
			       (cdr (assq reply replies)))
			   fp-signature-type)))
    (cond ((eq signature-type 'clear) (mail-signature nil))
	  ((eq signature-type 'pgp) (mc-sign-message)))))

(defun fp-mail-send-routine ()
  ; [...]
  (or mail-signature (fp-sign-message)))

(defun fp-message-send-routine ()
  [...]
  (or message-signature (fp-sign-message)))

(eval-after-load "sendmail"
  '(progn
     ; [...]
     (add-hook 'mail-send-hook 'fp-mail-send-routine)))

(eval-after-load "message"
  '(progn
     ; [...]
     (add-hook 'message-send-hook 'fp-message-send-routine)))

-- 
François Pinard   http://www.iro.umontreal.ca/~pinard