Re: randomsig.el and Random Signatures

[Andrew Markebo <andrew.markebo@telia.com>]

Hi!

Not really an answer to your question, but it is how I do random
sigs.. 

(defvar grc-signature-dir   "~/.sigs/")
(defvar grc-signature-base  "sig")

(defadvice message-insert-signature (before random-mail-sig-ag act comp)
  "Change the value of message-signature-file each time
`message-insert-signature' is called."
  (let ((files (file-name-all-completions
                grc-signature-base (expand-file-name grc-signature-dir))))
    (if files (let ((file (nth (random (length files)) files)))
                (setq message-signature-file (concat grc-signature-dir file))
                ))))

Here it randomly picks the contents of a file whose name begins with
"sig" from the subdir "~/.sigs/"..

      /Andy

-- 
 Everything that was magical was just a way of describing the world in
words it couldn't ignore.
				- "Pyramids" by Terry Pratchett