(lambda ()
(let ((group gnus-newsgroup-name))
(and (string-match "^nn\\(imap\\|folder\\)\\+" group)
- (not (string-match ":\\(crap\\|spam\\|lists\\)\\." group)))))
+ (not (string-match ":\\(crap\\|spam\\|lists\\|corpus\\)\\."
+ group)))))
bbdb-user-mail-names
(concat "^"
"\\(" "\\(mdw\\|markw\\|root\\|postmaster\\)"
(and (not mdw-fast-startup) (fboundp 'hippie-expand)
(global-set-key [?\M-?] 'hippie-expand)))
+(eval-after-load "hippie-exp"
+ '(setq hippie-expand-try-functions-list
+ (remove-if (lambda (name)
+ (memq name '(try-expand-list
+ try-expand-list-all-buffers)))
+ hippie-expand-try-functions-list)))
+
(eval-after-load "dired"
'(progn
(or (lookup-key dired-mode-map [?\C-x ?\C-q])