
(defvar spook-phrases-file (concat exec-directory "spook.lines") "\
Keep your favorite phrases here.")

(defvar spook-phrase-default-count 15 "\
Default number of phrases to insert")

(defvar spook-vector nil "\
Important phrases for NSA mail-watchers")

(random t)

(defun spook nil "\
Adds that special touch of class to your outgoing mail." (interactive) (byte-code "Ãˆ?… Ä ‰ˆÅ!ˆ`ÆcˆÇGÈZ
^!ˆÆcˆÉ	`Ã#)‡" [spook-vector start spook-phrase-default-count nil snarf-spooks shuffle-vector 10 spook1 1 fill-region-as-paragraph] 7))

(defun spook1 (arg) "\
Inserts a spook phrase ARG times." (byte-code "Ã!ƒ
 Á‚ 
HcˆÄcˆÅS!‡" [arg t spook-vector zerop " " spook1] 3))

(defun snarf-spooks nil "\
Reads in the phrase file" (byte-code "ÅÆ!ˆŠÇÈ!ÉqˆÊË
!!ˆÌÍ!ˆÎÏ!ˆm?…5 `ÌÍ!ˆÐ`S\"	B‰)ˆ‚ ˆÑ!ˆÅÒ!ˆÓÔ	\"‰*)‡" [buf result spook-phrases-file beg spook-vector message "Checking authorization..." generate-new-buffer "*spook*" nil insert-file-contents expand-file-name search-forward " " skip-chars-forward " 	
" buffer-substring kill-buffer "Checking authorization... Approved." apply vector] 13))

(defun pick-random (n) "\
Returns a random number from 0 to N-1 inclusive." (byte-code "ÁÂÃÄ \"\"‡" [n % logand 777777 random] 5))

(defun shuffle-vector (vector) "\
Randomly permute the elements of VECTOR (all permutations equally likely)" (byte-code "ÅÆÆGW…3 ÇZ!\\‰ˆH‰ˆ	HIˆ	
IˆT‰ˆ‚	 ,ˆ‡" [i j temp len vector 0 nil pick-random] 6))