From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,55958fd991db66fe
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2002-09-12 07:55:41 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news.tele.dk!small.news.tele.dk!193.174.75.178!news-fra1.dfn.de!fu-berlin.de!uni-berlin.de!hse-mtl-ppp74279.qc.sympatico.CA!not-for-mail
From: Christopher Browne <cbbrowne@acm.org>
Newsgroups: comp.lang.ada
Subject: Re: Advantage of XML based GUI? (was Re: Ada-inspired OS/Language)
Date: 12 Sep 2002 14:55:39 GMT
Organization: cbbrowne Computing Inc
Message-ID: <alq9ta$5pfk$3@ID-125932.news.dfncis.de>
References: <mailman.1031635323.30822.comp.lang.ada@ada.eu.org>
 <slrnanrphl.197.randhol+news@kiuk0156.chembio.ntnu.no>
 <3D7E72E6.D2B756F0@easystreet.com> <almhp2$1r5j58$4@ID-125932.news.dfncis.de>
 <3D7EDBDF.E61F7FAC@easystreet.com>
NNTP-Posting-Host: hse-mtl-ppp74279.qc.sympatico.ca (64.229.208.56)
X-Trace: fu-berlin.de 1031842539 189940 64.229.208.56 (16 [125932])
X-Draft-From: ("nntp+chvatal:comp.lang.ada" 2383)
X-Home-Page: http://www.cbbrowne.com/info/
X-Emacs-Acronym: Emacs May Annihilate Command Structures
Microsoft: I'm not laughing anymore.
X-Uboat-Death-Message: TORPEDOED BY NETSCAPE. TORPEDOS. LEAVE BOAT. U-454.
Xref: archiver1.google.com comp.lang.ada:28865
Date: 2002-09-12T14:55:39+00:00
List-Id: <comp.lang.ada>

Centuries ago, Nostradamus foresaw when achrist@easystreet.com would write:
> Christopher Browne wrote:
>> 
>> Oops! achrist@easystreet.com was seen spray-painting on a wall:
>
> What's the excuse for this kind of rudeness?

(setq *random-headers*
      '(("The world rejoiced as " " wrote")
	("In an attempt to throw the authorities off his trail, " 
	 " transmitted")
	("Oops! "  " was seen spray-painting on a wall")
	("In the last exciting episode, " " wrote:")
	("Quoth " "")
	("A long time ago, in a galaxy far, far away, " " wrote")
	("After takin a swig o' grog, " " belched out...")
	("Centuries ago, Nostradamus foresaw when " " would write")
	("" " wrote")))

(defun insert-random-header ()
  (let* ((r (random (length *random-headers*)))
	 (headers (elt *random-headers* r))
	 (pre (car headers))
	 (post (cadr headers)))
    (insert pre (mail-header-from message-reply-headers) post ":\n")))

At least you didn't get the "swig o' grog" one...
-- 
(concatenate 'string "aa454" "@freenet.carleton.ca")
http://cbbrowne.com/info/finances.html
Pagers are cases for holding dead batteries. -Richard Wolff