There's gotta be an easier way...

[dave-mlist@bfnet.com]

Here's my split methods (with some names changed to protect the guilty):
There must be an easier way.  Tell me what you think.

Objectives: (1) to have all mailing list mail separated into groups
with the same name as the mailing list.  (2) to have non-list mail
filed under the email address it was sent to.

here's what nnmail-split-fancy evals to:
(| ("to\\|cc" "\\(dave\\|fred\\|ethel\\|barney\\)\\(-?[^@]*\\)@\\(bfnet.com\\|wuertele.com\\|this.net\\|that.net\\|andtheother.net\\)" "\\&") ("sender\\|to\\|cc" ".*ding.*" "ding") ("sender\\|to\\|cc" ".*netfilter.*" "netfilter") ("sender\\|to\\|cc" ".*netdev.*" "netdev") ("sender\\|to\\|cc" ".*tcpsat.*" "tcpsat") ("sender\\|to\\|cc" ".*etcetera.*" "etcetera"))

Dave

(setq nnmail-split-methods 'nnmail-split-fancy)
(setq nnmail-split-fancy 
      (let ((domains (list "bfnet.com" "wuertele.com" "this.net" "that.net" "andtheother.net"))
	    (usernames (list "dave" "fred" "ethel" "barney"))
	    (groupnames (list "ding" "netfilter" "netdev" "tcpsat" "etcetera"))
	    )
	(append '(|)

                ; setup a group for each personal email sent to 
		(list
		 (list
		  "to\\|cc"
		 (concat
		  "\\("
		  (mapconcat (lambda (username)
			       (format "%s" username))
			     usernames "\\|")
                  ; this part in parens is for qmail name extensions
		  "\\)\\(-?[^@]*\\)@\\("
		  (mapconcat (lambda (domain)
			       (format "%s" domain))
			     domains "\\|")
		  "\\)"
		  )
		 "\\&"))

                ; setup groups for each mailing list
		(mapcar (lambda (groupname) (list "sender\\|to\\|cc" (format ".*%s.*" groupname) groupname)) groupnames)
		))
      )