Web-Weaver

[Fake Mail]: Folgende Email erreichte mich:

ich habe Deine fakeMail-Funktion mal straightforward in Emacs-Lisp umgesetzt. Damit kann man dann ganz nett in Gnus, dem Mail/Newsreader des Emacs, automatisiert Signatures erzeugen. Vielleicht kannst Du den Code ja auf die Website setzen. Der Code ist plattformunabhängig und sollte unter jedem Emacs laufen, zumindest ab Version 21.

Also hier ist er:

(require 'cl)

(defun fakeMail( nOfMails breakS prefix postfix )
"Generate fake email addresses. <mailto:fake.mail@gmx.de>"
(let ((tldList '("com" "net" "org" "mil" "edu" "de" "biz" "de"
"t2""ch" "at" "ru" "de" "tv" "com" "st" "br" "fr" "de" "nl"
"t2""dk" "ar" "jp" "eu" "it" "es" "com" "us" "ca" "pl" ))
"t1"nameLength serverNameLength mailName serverName tldName myMail (result "")
"t1"(makeName
"t1" (lambda( n )
"t1"  (loop with s = ""
"t2"for i to n do
"t2"(setq s (concat s (string (+ 97 (random 26)))))
"t2"finally return s))))
"t1"(loop for i from 1 to nOfMails do
"t1" (setq nameLength (+ 3 (random 7))
"t2"mailName (funcall makeName nameLength)
"t2"serverNameLength (+ 4 (random 16))
"t2"serverName (funcall makeName serverNameLength)
"t2"tldName (nth (random (length tldList)) tldList)
"t2"myMail (concat mailName "@" serverName "." tldName)
"t2"myMail (concat "<a href=\"mailto:" myMail "\"><b>" myMail "</b></a>"))
"t1" (setq result (concat result myMail))
"t1" (when (not (equal i nOfMails))
"t1"  (setq result (concat result breakS))))
"t1"(concat prefix result postfix)))

;; Test: (fakeMail 2 ", " "<prefix>" "<postfix>")


Mit Gnus, dem ultimativen Mail/Newsreader im Emacs, als Signature:

(setq gnus-posting-styles
"t1"'((".*" (signature (fakeMail 2 ", " nil nil)))))

Und eine nette FAQ für den Mac-Emacs gibt es hier. [Danke, Christoph]

  Versteht Ihr jetzt, warum ich erst wieder LISPel, wenn das Klammerschlußgesetz in Kraft getreten ist?