658
|
1 ;;; spook.el --- spook phrase utility for overloading the NSA line eater
|
|
2
|
4091
|
3 ;; Copyright (C) 1988, 1993 Free Software Foundation, Inc.
|
841
|
4
|
814
|
5 ;; Maintainer: FSF
|
|
6 ;; Keywords: games
|
2315
|
7 ;; Created: May 1987
|
787
|
8
|
36
|
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
|
807
|
13 ;; the Free Software Foundation; either version 2, or (at your option)
|
36
|
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
|
14169
|
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
|
|
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
24 ;; Boston, MA 02111-1307, USA.
|
36
|
25
|
787
|
26 ;;; Commentary:
|
36
|
27
|
14169
|
28 ;; Steve Strassmann <straz@media-lab.media.mit.edu> didn't write
|
|
29 ;; this, and even if he did, he really didn't mean for you to use it
|
|
30 ;; in an anarchistic way.
|
|
31 ;;
|
|
32 ;; To use this:
|
|
33 ;; Just before sending mail, do M-x spook.
|
|
34 ;; A number of phrases will be inserted into your buffer, to help
|
|
35 ;; give your message that extra bit of attractiveness for automated
|
|
36 ;; keyword scanners. Help defeat the NSA trunk trawler!
|
36
|
37
|
787
|
38 ;;; Code:
|
|
39
|
3384
|
40 (require 'cookie1)
|
2320
|
41
|
36
|
42 ; Variables
|
21363
|
43 (defgroup spook nil
|
|
44 "Spook phrase utility for overloading the NSA line eater."
|
|
45 :prefix "spook-"
|
|
46 :group 'games)
|
36
|
47
|
21363
|
48 (defcustom spook-phrases-file (concat data-directory "spook.lines")
|
|
49 "Keep your favorite phrases here."
|
|
50 :type 'file
|
|
51 :group 'spook)
|
|
52
|
|
53 (defcustom spook-phrase-default-count 15
|
|
54 "Default number of phrases to insert."
|
|
55 :type 'integer
|
|
56 :group 'spook)
|
36
|
57
|
1219
|
58 ;;;###autoload
|
36
|
59 (defun spook ()
|
|
60 "Adds that special touch of class to your outgoing mail."
|
|
61 (interactive)
|
4091
|
62 (cookie-insert spook-phrases-file
|
|
63 spook-phrase-default-count
|
|
64 "Checking authorization..."
|
|
65 "Checking authorization...Approved"))
|
36
|
66
|
4091
|
67 ;;;###autoload
|
|
68 (defun snarf-spooks ()
|
|
69 "Return a vector containing the lines from `spook-phrases-file'."
|
|
70 (cookie-snarf spook-phrases-file
|
|
71 "Checking authorization..."
|
|
72 "Checking authorization...Approved"))
|
|
73
|
|
74 ;; Note: the implementation that used to take up most of this file has been
|
|
75 ;; cleaned up, generalized, gratuitously broken by esr, and now resides in
|
|
76 ;; cookie1.el.
|
658
|
77
|
18383
|
78 (provide 'spook)
|
|
79
|
658
|
80 ;;; spook.el ends here
|