The idea here is to use
spook to generate interesting, but random, MIME
separators. Hopefully this will keep the CIA, FBI, RAW and other assorted TLAs
busy. This bit of code can only be used with MML. Emacs MUAs that use MML,
like MH-E and Gnus, will be able to use this.
(setq mml-boundary-function 'sa2-spooky-boundary-function) (defun sa2-spooky-boundary-function (count) "Use `spook' to generate CIA compliant MIME separators. Argument COUNT isn't used." (with-temp-buffer (spook) (goto-char (point-min)) (while (re-search-forward "[^a-zA-Z0-9]" nil t) (replace-match "_")) (goto-char (point-min)) (forward-char 23) (while (not (char-equal (char-after) ?\_)) (forward-char)) (concat "==" (buffer-substring (1+ (point-min)) (point)) (format "_%d==" (abs (random))))))