Re: Introducing PlayDB (The Model, The Language, The DBMS)

From: Christopher Browne <cbbrowne_at_acm.org>
Date: 13 Oct 2003 01:13:09 GMT
Message-ID: <bmcu75$l2gcr$2@ID-125932.news.uni-berlin.de>

seunosewa_at_inaira.com (Seun Osewa) wrote: > I would like to know how you generate those introductory phrases > attached to your quotations of other people!

Gnus is really, really, really powerful.

(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 " "")

	("Martha Stewart called it a Good Thing when" "wrote")

	("A long time ago, in a galaxy far, far away, " " wrote")

	("After takin a swig o' Arrakan spice grog, " " belched out...")

	("After a long battle with technology," ", an earthling, wrote")

	("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")))

-- 
output = reverse("gro.mca" "@" "enworbbc")
http://www.ntlug.org/~cbbrowne/unix.html
"Windows95, Word97, Office98: With all the criticisms of MICROS~1, at
least   they  include   ``best-before''  dating   on  many   of  their
products..."  -- cbbrowne_at_hex.net

Received on Sun Oct 12 2003 - 20:13:09 CDT