Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!tut.cis.ohio-state.edu!rpi!rpi.edu!rodney
From: rodney@taac.ipl.rpi.edu (Rodney Peck II)
Newsgroups: comp.emacs
Subject: Re: a mail header hook with zippy
Message-ID: <RODNEY.89Jul7233553@taac.ipl.rpi.edu>
Date: 8 Jul 89 03:35:53 GMT
References: <RODNEY.89Jul7101829@sun.ipl.rpi.edu>
	<RODNEY.89Jul7120332@sun.ipl.rpi.edu> <425@mipos3.intel.com>
Sender: usenet@rpi.edu
Distribution: comp
Organization: Rensselaer Polytechnic Institute Image Processing Lab, Troy NY
Lines: 32
In-reply-to: nate@hobbes.intel.com's message of 7 Jul 89 20:34:21 GMT

ok.  latest version with help from several people who will be
enumerated when I'm less tired.

Again, send comments to me.  I'm learning neat stuff.

;;;;;;;;;;;;;;;;;;;;;;;;;;; -*- 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 13:12:50 1989
;; Update Count    : 10
;; Status          : works.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun add-zippyism ()
  "Add an X-Zippy: header line with a quote from the Pinhead."
  (interactive)
   (save-excursion
      (if (mail-position-on-field "X-Zippy")
	  (delete-region (point) (progn (search-backward ":")
					(forward-char 2)
					(point))))
      (insert (yow))))
;; sort of try to install zippyism.
(if (boundp 'mail-setup-hook)
    (message "mail-setup-hook already bound, not changed.")
    (setq mail-setup-hook 'add-zippism))

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