mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-14 09:39:42 +00:00
9d866a1f8d
* lisp/abbrev.el (abbrev-suggest-hint-threshold): * lisp/bookmark.el (bookmark-bmenu-file-column) (bookmark-menu-length): * lisp/buff-menu.el (Buffer-menu-size-width) (Buffer-menu-mode-width): * lisp/calendar/calendar.el (calendar-week-start-day) (calendar-intermonth-spacing, calendar-column-width) (calendar-day-digit-width): * lisp/calc/calc.el (calc-undo-length): * lisp/calendar/timeclock.el (timeclock-workday): * lisp/comint.el (comint-buffer-maximum-size) (comint-input-ring-size): * lisp/doc-view.el (doc-view-resolution, doc-view-image-width): * lisp/emacs-lisp/bytecomp.el (byte-compile-docstring-max-column): * lisp/emacs-lisp/comp.el (native-comp-debug) (native-comp-verbose, native-comp-async-jobs-number): * lisp/emacs-lisp/package.el (package-name-column-width) (package-version-column-width, package-status-column-width) (package-archive-column-width): * lisp/eshell/esh-mode.el (eshell-buffer-maximum-lines): * lisp/frame.el (blink-cursor-blinks): * lisp/info.el (Info-breadcrumbs-depth): * lisp/jit-lock.el (jit-lock-chunk-size): * lisp/kmacro.el (kmacro-ring-max): * lisp/menu-bar.el (yank-menu-length, yank-menu-max-items): * lisp/midnight.el (clean-buffer-list-delay-general) (clean-buffer-list-delay-special): * lisp/net/dictionary.el (dictionary-port) (dictionary-proxy-port): * lisp/net/ldap.el (ldap-default-port): * lisp/net/pop3.el (pop3-port, pop3-stream-length): * lisp/net/rcirc.el (rcirc-default-port): * lisp/net/sieve-manage.el (sieve-manage-default-port): * lisp/play/spook.el (spook-phrase-default-count): * lisp/play/tetris.el (tetris-buffer-width) (tetris-buffer-height, tetris-width, tetris-height) (tetris-top-left-x, tetris-top-left-y): * lisp/profiler.el (profiler-sampling-interval): * lisp/progmodes/sql.el (sql-port): * lisp/recentf.el (recentf-max-menu-items): * lisp/strokes.el (strokes-grid-resolution): * lisp/tab-bar.el (tab-bar-tab-name-truncated-max): * lisp/term/xterm.el (xterm-max-cut-length): * lisp/time.el (display-time-interval, world-clock-timer-second): * lisp/url/url-cache.el (url-cache-expire-time): * lisp/url/url-cookie.el (url-cookie-save-interval): * lisp/url/url-history.el (url-history-save-interval): * lisp/url/url-queue.el (url-queue-parallel-processes) (url-queue-timeout): * lisp/url/url-vars.el (url-max-password-attempts) (url-max-redirections): * lisp/vc/emerge.el (emerge-min-visible-lines): * lisp/vc/vc.el (vc-log-show-limit): * lisp/window.el (window-min-height, window-min-width): * lisp/winner.el (winner-ring-size): Use :type natnum. * lisp/savehist.el (savehist-file-modes): Fix setting to nil value and use :type natnum.
73 lines
2.2 KiB
EmacsLisp
73 lines
2.2 KiB
EmacsLisp
;;; spook.el --- spook phrase utility for overloading the NSA line eater -*- lexical-binding:t -*-
|
|
|
|
;; Copyright (C) 1988, 1993, 2001-2022 Free Software Foundation, Inc.
|
|
|
|
;; Maintainer: emacs-devel@gnu.org
|
|
;; Keywords: games
|
|
;; Created: May 1987
|
|
|
|
;; This file is part of GNU Emacs.
|
|
|
|
;; GNU Emacs is free software: you can redistribute it and/or modify
|
|
;; it under the terms of the GNU General Public License as published by
|
|
;; the Free Software Foundation, either version 3 of the License, or
|
|
;; (at your option) any later version.
|
|
|
|
;; GNU Emacs is distributed in the hope that it will be useful,
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
;; GNU General Public License for more details.
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
|
;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
|
|
|
|
;;; Commentary:
|
|
|
|
;; Steve Strassmann <straz@media-lab.media.mit.edu> didn't write
|
|
;; this, and even if he did, he really didn't mean for you to use it
|
|
;; in an anarchistic way.
|
|
;;
|
|
;; To use this:
|
|
;; Just before sending mail, do M-x spook.
|
|
;; A number of phrases will be inserted into your buffer, to help
|
|
;; give your message that extra bit of attractiveness for automated
|
|
;; keyword scanners. Help defeat the NSA trunk trawler!
|
|
|
|
;;; Code:
|
|
|
|
(require 'cookie1)
|
|
|
|
; Variables
|
|
(defgroup spook nil
|
|
"Spook phrase utility for overloading the NSA line eater."
|
|
:prefix "spook-"
|
|
:group 'games)
|
|
|
|
(defcustom spook-phrases-file (expand-file-name "spook.lines" data-directory)
|
|
"Keep your favorite phrases here."
|
|
:type 'file)
|
|
|
|
(defcustom spook-phrase-default-count 15
|
|
"Default number of phrases to insert."
|
|
:type 'natnum)
|
|
|
|
;;;###autoload
|
|
(defun spook ()
|
|
"Add that special touch of class to your outgoing mail."
|
|
(interactive)
|
|
(cookie-insert spook-phrases-file
|
|
spook-phrase-default-count
|
|
"Checking authorization..."
|
|
"Checking authorization...Approved"))
|
|
|
|
;;;###autoload
|
|
(defun snarf-spooks ()
|
|
"Return a vector containing the lines from `spook-phrases-file'."
|
|
(cookie-snarf spook-phrases-file
|
|
"Checking authorization..."
|
|
"Checking authorization...Approved"))
|
|
|
|
(provide 'spook)
|
|
|
|
;;; spook.el ends here
|