(lambda ()
(let ((group gnus-newsgroup-name))
(and (string-match "^nn\\(imap\\|folder\\)\\+" group)
- (not (string-match ":\\(crap\\|spam\\|lists\\|corpus\\)\\."
+ (not (string-match (concat ":" "\\(" "crap"
+ "\\|" "spam"
+ "\\|" "lists"
+ "\\|" "corpus"
+ "\\)" "\\.")
group)))))
bbdb-user-mail-names
(concat "^"
(define-key outline-mode-prefix-map [?\C--] 'mdw-outline-collapse-all)))
(define-key isearch-mode-map [?\C-?] 'isearch-del-char)
+(define-key isearch-mode-map [backspace] 'isearch-del-char)
(define-key isearch-mode-map [?\e ?\C-?] 'isearch-delete-char)
(setq imenu-auto-rescan t