1;;; spook.el --- spook phrase utility for overloading the NSA line eater 2 3;; Copyright (C) 1988, 1993 Free Software Foundation, Inc. 4 5;; Maintainer: FSF 6;; Keywords: games 7;; Created: May 1987 8 9;; This file is part of GNU Emacs. 10 11;; GNU Emacs is free software; you can redistribute it and/or modify 12;; it under the terms of the GNU General Public License as published by 13;; the Free Software Foundation; either version 2, or (at your option) 14;; any later version. 15 16;; GNU Emacs is distributed in the hope that it will be useful, 17;; but WITHOUT ANY WARRANTY; without even the implied warranty of 18;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 19;; GNU General Public License for more details. 20 21;; You should have received a copy of the GNU General Public License 22;; along with GNU Emacs; see the file COPYING. If not, write to 23;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 24 25;;; Commentary: 26 27; Steve Strassmann <straz@media-lab.media.mit.edu> didn't write 28; this, and even if he did, he really didn't mean for you to use it 29; in an anarchistic way. 30; 31; To use this: 32; Just before sending mail, do M-x spook. 33; A number of phrases will be inserted into your buffer, to help 34; give your message that extra bit of attractiveness for automated 35; keyword scanners. Help defeat the NSA trunk trawler! 36 37;;; Code: 38 39(require 'cookie1) 40 41; Variables 42(defvar spook-phrases-file (concat data-directory "spook.lines") 43 "Keep your favorite phrases here.") 44 45(defvar spook-phrase-default-count 15 46 "Default number of phrases to insert") 47 48;;;###autoload 49(defun spook () 50 "Adds that special touch of class to your outgoing mail." 51 (interactive) 52 (cookie-insert spook-phrases-file 53 spook-phrase-default-count 54 "Checking authorization..." 55 "Checking authorization...Approved")) 56 57;;;###autoload 58(defun snarf-spooks () 59 "Return a vector containing the lines from `spook-phrases-file'." 60 (cookie-snarf spook-phrases-file 61 "Checking authorization..." 62 "Checking authorization...Approved")) 63 64;; Note: the implementation that used to take up most of this file has been 65;; cleaned up, generalized, gratuitously broken by esr, and now resides in 66;; cookie1.el. 67 68;;; spook.el ends here 69