(lambda ()
(let ((group gnus-newsgroup-name))
(and (string-match "^nn\\(imap\\|folder\\)\\+" group)
- (not (string-match (concat ":" "\\(" "crap"
- "\\|" "spam"
- "\\|" "lists"
- "\\|" "corpus"
- "\\)" "\\.")
+ (not (string-match (concat ":" "\\(" "\\(" "crap"
+ "\\|" "spam"
+ "\\|" "lists"
+ "\\|" "corpus"
+ "\\)" "\\."
+ "\\|" "Junk Email$"
+ "\\)")
group)))))
bbdb-user-mail-names
(concat "^"