Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!utgpu!water!watnot!watmath!clyde!cbatt!ihnp4!ptsfa!lll-lcc!mordor!styx!ames!ll-xn!mit-eddie!AI.AI.MIT.EDU!Gumby
From: Gumby@AI.AI.MIT.EDU.UUCP
Newsgroups: comp.emacs
Subject: File protection for gnu emacs in 18.38
Message-ID: <870304050055.1.GUMBY@MARLEY.AI.MIT.EDU>
Date: Wed, 4-Mar-87 05:00:00 EST
Article-I.D.: MARLEY.870304050055.1.GUMBY
Posted: Wed Mar  4 05:00:00 1987
Date-Received: Fri, 6-Mar-87 21:57:22 EST
Sender: daemon@mit-eddie.MIT.EDU
Lines: 30

There has been some controversy over a file in the latest release of gnu
emacs.  The following file ``meese.el'' should provide some protection
for those of tender sensibilities.

-------------------- lisp/meese.el --------------------
(defun protect-innocence-hook ()
  (if (and (equal (file-name-nondirectory buffer-file-name) "sex.1")
	   (not (y-or-n-p "Are you over 18? ")))
      (progn
	(clear-visited-file-modtime)
	(setq buffer-file-name (concat (file-name-directory buffer-file-name)
				       "celibacy.1"))
	(erase-buffer)
	(insert-file-contents buffer-file-name t)
	(rename-buffer (file-name-nondirectory buffer-file-name)))))

(setq find-file-hooks (cons 'protect-innocence-hook find-file-hooks))
-------------------- etc/celibacy.1 --------------------
CELIBACY(1)              UNIX Programmer's Manual           CELIBACY(1)



NAME
     celibacy - don't have sex

SYNOPSIS
     celibacy

DESCRIPTION
     Does nothing worth mentioning.