Re: (make-regexp...) in an alist

[Paul Franklin <paul@cs.washington.edu>]

>>>>> Norman Walsh writes:

 > (setq nnmail-split-methods
 >       '(("letterpress" "Sender:.*letpress@")
 > 	("spam" (make-regexp '("From:.*@savetrees.com"
 > 			       "From:.*@ispam.net"
 > 			       "Subject:.*are you being investigated")))
 > 	("dssslist" "To:.*dssslist")))

I've attached a complicated example which doesn't use backquotes.
Basically, the idea is to use "(list" to get yourself one level down
(or cons/concat/make-regexp), or "'(" to avoid interpretation of
everything below it.

(Yes, my split methods are way out of hand.)

--Paul

(setq pdf-nnmail-split-methods
      (let ((not-paul "\\([^p]aul\\|[^a]ul\\|[^u]l\\|[^l]\\)")
	    (not-paul-pdf
	     "\\([^p]aul\\|[^a]ul\\|[^u]l\\|[^p]df\\|[^d]f\\|[^lf]\\)"))
	(list

	 '((gnus-warning)
	   ("-mail.duplicates" . "\\<duplicate\\>"))

	 '((x-from-line)
	   ("-demons.mail" . "\\<postmaster\\>"))

	 '((a)
	   ("-demons.mail" . "\\<MAILER.?DA?EMON\\>")
	   ("-demons.listproc" . "\\<listproc\\>")
	   ("-demons.majordomo.uw.cs" . "\\<Majordomo@cs.washington.edu\\>")
	   ("-demons.majordomo" . "\\<Majordomo\\>"))

	 (list '(a)
	       (list "-mail.ads"
		     "[^a-z0-9][0-9][0-9][0-9][0-9]+@"	; mbox is 4+ digits
		     "abuse@"		; typically my complaints
		     (concat
		      "@[-.a-zA-Z9-0]*\\." ;subdomains + "."
					; top-level domain errors:
		      "\\([a-zA-Z]*[-0-9][-a-zA-Z9-0]*" ; inval char 
		      "\\|[a-zA-Z]\\|" ; too short (single char)
		      "[a-zA-Z][a-zA-Z][a-zA-Z][a-zA-Z]+\\)" ; too long (4+)
		      "[^-.a-zA-Z9-0]"))) ; notice end of addr

;; lots more simpler stuff here

	 '((l)
	   ("-uw.cac"
	    "@.*\\<cac.washington.edu\\>"
	    "postmaster@u.washington.edu"))

	 (list '(l)
	       (cons "-transmeta.misc"
		     (concat not-paul "@.*\\<transmeta.com\\>")))
	 
	 '((l received message-id references in-reply-to)
	   ("-mail.uw.cs.iws"
	    "\\<grizzly\\>" "\\<lynx\\>" "\\<wolf\\>"))
	 
	 (list '(l)
	       (cons "-mail.uw.cs"
		     (concat not-paul "@.*\\<cs.washington.edu\\>")))

	 (list '(l)
	       (cons "-mail.uw.misc"
		     (concat not-paul-pdf "@.*\\<washington.edu\\>")))

	 (list '(l)
	       (cons "-mail.misc"
		     (concat not-paul-pdf "@.*\\.")))

	 '(nil ("-mail.uw.cs" . "")))))