From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/12508
Path: main.gmane.org!not-for-mail
From: Paul Franklin <paul@cs.washington.edu>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: (make-regexp...) in an alist
Date: 03 Oct 1997 17:12:19 -0700
Sender: paul@cs.washington.edu
Message-ID: <r9qzpoq8jz0.fsf@fester.cs.washington.edu>
References: <2655-Fri03Oct1997171554-0400-norm@berkshire.net>
NNTP-Posting-Host: coloc-standby.netfonds.no
X-Trace: main.gmane.org 1035152031 4121 80.91.224.250 (20 Oct 2002 22:13:51 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sun, 20 Oct 2002 22:13:51 +0000 (UTC)
Return-Path: <ding-request@ifi.uio.no>
Original-Received: from xemacs.org (xemacs.cs.uiuc.edu [128.174.252.16])
	by altair.xemacs.org (8.8.7/8.8.7) with ESMTP id SAA15486
	for <steve@altair.xemacs.org>; Fri, 3 Oct 1997 18:07:39 -0700
Original-Received: from ifi.uio.no (0@ifi.uio.no [129.240.64.2])
	by xemacs.org (8.8.5/8.8.5) with SMTP id UAA15328
	for <steve@xemacs.org>; Fri, 3 Oct 1997 20:00:44 -0500 (CDT)
Original-Received: from claymore.vcinet.com (claymore.vcinet.com [208.205.12.23]) by ifi.uio.no with SMTP (8.6.11/ifi2.4) 
	id <CAA19484@ifi.uio.no> for <ding@ifi.uio.no> ; Sat, 4 Oct 1997 02:12:41 +0200
Original-Received: (qmail 31288 invoked by uid 504); 4 Oct 1997 00:12:34 -0000
Original-Received: (qmail 31285 invoked from network); 4 Oct 1997 00:12:33 -0000
Original-Received: from june.cs.washington.edu (128.95.1.4)
  by claymore.vcinet.com with SMTP; 4 Oct 1997 00:12:33 -0000
Original-Received: from fester.cs.washington.edu (fester.cs.washington.edu [128.95.4.119]) by june.cs.washington.edu (8.8.5+CS/7.2ju) with ESMTP id RAA23043; Fri, 3 Oct 1997 17:12:25 -0700
Original-Received: (from paul@localhost) by fester.cs.washington.edu (8.6.12/8.6.9) id RAA30961; Fri, 3 Oct 1997 17:12:20 -0700
Original-To: ding@gnus.org
In-Reply-To: Norman Walsh's message of Fri,  3 Oct 1997 17:15:54 -0400
Original-Lines: 76
X-Mailer: Gnus v5.4.39/Emacs 19.34
Xref: main.gmane.org gmane.emacs.gnus.general:12508
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:12508

>>>>> 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" . "")))))