From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/7612
Path: main.gmane.org!not-for-mail
From: Jack Vinson <jvinson@cheux.ecs.umass.edu>
Newsgroups: gmane.emacs.gnus.general
Subject: Gnus Advice (was: stand-alone version of MH's rcvstore?)
Date: 15 Aug 1996 17:07:29 -0400
Message-ID: <woafvwbbla.fsf_-_@cheux.ecs.umass.edu>
References: <wpghgq8fyt8.fsf@asic.sc.ti.com>
	<vafzq3xc8f8.fsf@ls6.informatik.uni-dortmund.de>
	<m1bk9v0257l.fsf@blackbird.mitre.org> <x620h88x66.fsf@eyesore.no>
	<ctsenl8v5xz.fsf@yttrium.transmeta.com>
NNTP-Posting-Host: coloc-standby.netfonds.no
X-Trace: main.gmane.org 1035147900 7857 80.91.224.250 (20 Oct 2002 21:05:00 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sun, 20 Oct 2002 21:05:00 +0000 (UTC)
Return-Path: ding-request@ifi.uio.no
Original-Received: from ifi.uio.no (ifi.uio.no [129.240.64.2]) by deanna.miranova.com (8.7.5/8.6.9) with SMTP id OAA29933 for <steve@miranova.com>; Thu, 15 Aug 1996 14:28:30 -0700
Original-Received: from cheux.ecs.umass.edu (cheux.ecs.umass.edu [128.119.82.11]) by ifi.uio.no with SMTP (8.6.11/ifi2.4) 
	id <XAA21376@ifi.uio.no> for <ding@ifi.uio.no> ; Thu, 15 Aug 1996 23:11:03 +0200
Original-Received: by cheux.ecs.umass.edu (5.65/DEC-Ultrix/4.3)
	id AA07179; Thu, 15 Aug 1996 17:07:35 -0400
Original-To: ding@ifi.uio.no
In-Reply-To: Paul Franklin's message of 15 Aug 1996 11:49:12 -0700
Original-Lines: 45
X-Mailer: Red Gnus v0.11/Emacs 19.31
Xref: main.gmane.org gmane.emacs.gnus.general:7612
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:7612

>>>>> "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|~~| 
  `--'                                   `--'