Path: utzoo!utgpu!jarvis.csri.toronto.edu!rutgers!apple!bionet!csd4.milw.wisc.edu!leah!rpi!rpi.edu!rodney
From: rodney@sun.ipl.rpi.edu (Rodney Peck II)
Newsgroups: comp.emacs
Subject: a mail header hook with zippy
Message-ID: <RODNEY.89Jul7101829@sun.ipl.rpi.edu>
Date: 7 Jul 89 14:18:29 GMT
Sender: usenet@rpi.edu
Distribution: comp
Organization: Rensselaer Polytechnic Institute Image Processing Lab, Troy NY
Lines: 43
X-Zippy:  I'm having an EMOTIONAL OUTBURST!!  But, uh, WHY is there a WAFFLE
 in my PAJAMA POCKET??


ok, I was bored and I haven't written much elisp to interact with emacs so
I decided to do this.

It's pretty simple, but cute and moderately annoying.

Throw this in .emacs or a file and load it with .emacs and it will put a
zippism in each outgoing piece of mail you send (with emacs).  
If you don't want it there, you can always just delete it from the list
of headers.

The header looks like this:
X-Zippy:  Yow!  Are you the self-frying president?


so, here it is:  questions, et. al. to me: rodney@ipl.rpi.edu

;;;;;;;;;;;;;;;;;;;;;;;;;;; -*- Mode: Emacs-Lisp -*- ;;;;;;;;;;;;;;;;;;;;;;;;;;
;; zippy-mail.el
;; Author          : Rodney Peck II (rodney@ipl.rpi.edu)
;; Created On      : Fri Jul  7 10:09:03 1989
;; Last Modified By: Rodney Peck II
;; Last Modified On: Fri Jul  7 10:11:59 1989
;; Update Count    : 4
;; Status          : works.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun add-zippyism ()
  (save-excursion
X-Zippy:  ..  My pants just went on a wild rampage through
 a Long Island Bowling Alley!!
    (search-forward "--tex")
    (beginning-of-line)
    (insert "X-Zippy:  ")
    (insert (yow))
    (insert "\n")))

(or (memq 'add-zippyism mail-setup-hook)
    (setq mail-setup-hook (cons 'add-zippyism mail-setup-hook)))

;;(setq mail-setup-hook nil)
--
Rodney