Gnus Advice (was: stand-alone version of MH's rcvstore?)

[Jack Vinson <jvinson@cheux.ecs.umass.edu>]

>>>>> "PF" == Paul Franklin <paul@transmeta.com> writes:

PF> In general, I think it'd be nice to have a few experts on using advice
PF> with gnus to achieve such things.  Then we just need an archive of
PF> useful advice snippets.

(I'll assume that was supposed to be "excerpts.")

I have used advice for a variety of things that frequently end up getting
made into functions/variables in Gnus.  However, one of my favorite pieces
of advice is one that changes the name of the signature file whenever I
insert the file into a document.  

;; random insertion of .signature file
;; Thanks to Glenn R Coombs: glenn@prl.philips.co.uk
(defvar grc-signature-dir   "~/.sig/" "Location of random signatures.")
(defvar grc-signature-base  "sig" "Beginning of all the random signatures.")

(defadvice message-insert-signature (before random-mail-sig-ag act comp)
  "Change the value of message-signature-file each time 
`message-insert-signature' is called."
  (let ((files (file-name-all-completions
                grc-signature-base (expand-file-name grc-signature-dir))))
    (if files (let ((file (nth (random (length files)) files)))
		(setq message-signature-file (concat grc-signature-dir file))
		))))


And another that plays with message.  

(defadvice message-resend (around gnus-inews-news-advice act comp)
  "Turn off ispell-message when re-routing mail.  It is inappropriate to 
spell check someone else's message."
  (let ((mail-send-hook (remove 'ispell-message mail-send-hook))
	)
    ad-do-it
    ))



-- 
   (      "Mmmmmm - coffee"               (   
   ))     Jack Vinson                     ))  
 C|~~|    jvinson@cheux.ecs.umass.edu   C|~~| 
  `--'                                   `--'