Mercurial > emacs
annotate lisp/play/spook.el @ 2607:fcf578723758
(Fexpand_file_name): Undo last change--too risky for now.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 29 Apr 1993 13:17:56 +0000 |
parents | ee096523431c |
children | 55e7bbf78b1a |
rev | line source |
---|---|
658
7cbd4fcd8b0f
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
444
diff
changeset
|
1 ;;; spook.el --- spook phrase utility for overloading the NSA line eater |
7cbd4fcd8b0f
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
444
diff
changeset
|
2 |
841 | 3 ;; Copyright (C) 1988 Free Software Foundation, Inc. |
4 | |
814
38b2499cb3e9
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
807
diff
changeset
|
5 ;; Maintainer: FSF |
38b2499cb3e9
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
807
diff
changeset
|
6 ;; Keywords: games |
2315
9e7ec92a4fdf
Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
1219
diff
changeset
|
7 ;; Created: May 1987 |
787
3cece0106722
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
658
diff
changeset
|
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
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
787
diff
changeset
|
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 | |
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 | |
787
3cece0106722
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
658
diff
changeset
|
25 ;;; Commentary: |
36 | 26 |
2320
ee096523431c
Modified to use cookie.el
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2315
diff
changeset
|
27 ; Steve Strassmann <straz@media-lab.media.mit.edu> didn't write |
36 | 28 ; this, and even if he did, he really didn't mean for you to use it |
29 ; in an anarchistic way. | |
2315
9e7ec92a4fdf
Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
1219
diff
changeset
|
30 ; |
36 | 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 | |
2315
9e7ec92a4fdf
Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
1219
diff
changeset
|
35 ; keyword scanners. Help defeat the NSA trunk trawler! |
36 | 36 |
787
3cece0106722
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
658
diff
changeset
|
37 ;;; Code: |
3cece0106722
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
658
diff
changeset
|
38 |
2320
ee096523431c
Modified to use cookie.el
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2315
diff
changeset
|
39 (require 'cookie) |
ee096523431c
Modified to use cookie.el
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2315
diff
changeset
|
40 |
36 | 41 ; Variables |
444 | 42 (defvar spook-phrases-file (concat data-directory "spook.lines") |
36 | 43 "Keep your favorite phrases here.") |
44 | |
45 (defvar spook-phrase-default-count 15 | |
46 "Default number of phrases to insert") | |
47 | |
1219
3e9034e7bebf
(spook): Make it autoload.
Richard M. Stallman <rms@gnu.org>
parents:
841
diff
changeset
|
48 ;;;###autoload |
36 | 49 (defun spook () |
50 "Adds that special touch of class to your outgoing mail." | |
51 (interactive) | |
2320
ee096523431c
Modified to use cookie.el
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2315
diff
changeset
|
52 (cookie-insert |
ee096523431c
Modified to use cookie.el
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2315
diff
changeset
|
53 spook-phrases-file |
ee096523431c
Modified to use cookie.el
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2315
diff
changeset
|
54 spook-phrase-default-count |
ee096523431c
Modified to use cookie.el
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2315
diff
changeset
|
55 "Checking authorization" |
ee096523431c
Modified to use cookie.el
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2315
diff
changeset
|
56 "Checking authorization...Approved")) |
36 | 57 |
2320
ee096523431c
Modified to use cookie.el
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2315
diff
changeset
|
58 ;; Note: the implementation that used to take up most of this file has |
ee096523431c
Modified to use cookie.el
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2315
diff
changeset
|
59 ;; been cleaned up and generalized and now resides in cookie.el. |
658
7cbd4fcd8b0f
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
444
diff
changeset
|
60 |
7cbd4fcd8b0f
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
444
diff
changeset
|
61 ;;; spook.el ends here |