[ILUG] Linux Newbies

[Aidan Kehoe]

 Ar an 27u la de mi 9, scriobh Ronny B :

 > On Thu, Sep 27, 2001 at 02:55:38PM +0100, Gavin McCullagh wrote:
 > > X-Echelon-distraction: FBI froglegs Kennedy AUTODIN KLM c MIT
 > > 
 > > You're trying to put echelon off with keywords?  I thought it was more
 > > intelligent than that.
 > I think he expects the people *handling* Echelon to be less intelligent ;)

Umm, aye. The idea was just to throw out the (echelon) results that
little bit, and it's less obtrusive than M-x spook . Code if anyone
gives a flying squirrel dropping;

;;
;; A `cookie,' format file. Set it to spook.lines file on GNU emacs
;; for a basic one. 

(defvar echelon-distraction-file "~/.echelon"
  "The file where generate-echelon-distraction looks for vocabulary.")

(defun generate-echelon-distraction () 
  "Add distracting elements to outgoing mail" 
  (let ((i 0) (temp " ")) 
    (while (< i 7) 
      (setq 
       temp
       (concat temp (cookie echelon-distraction-file "" "") " "))
      (setq i (1+ i)))
    (setq temp (concat "X-Echelon-distraction:" temp))
    (mail-position-on-field "Reply-to")
    (insert "\n" temp)
    (if (not (re-search-backward "^[Tt][oO]:[ \t]+$" nil t 1))
	(progn (end-of-buffer)
	              (re-search-backward "^-- $" nil t 1)
		             (beginning-of-line)
			            (backward-char)
				           )
      (end-of-line))))

(add-hook 'mail-setup-hook 'generate-echelon-distraction)

-- 
`... when the elephant man broke strong men's necks, when he'd had too 
many Powers, ...'