(maybe-autoload 'stgit "stgit" nil t)
(maybe-autoload 'nc-timesheet-prepare "nc-timesheet" nil t nil)
(maybe-autoload 'nc-timesheet-submit "nc-timesheet" nil t nil)
+(maybe-autoload 'org-bbdb-anniversaries "org" nil t)
(and (library-exists-p "debian-changelog-mode")
(add-to-list 'auto-mode-alist
(trap (bbdb-initialize 'gnus 'sendmail 'message)))
(setq bbdb-file "~/etc/brain/bbdb"
bbdb-north-american-phone-numbers-p nil
+ bbdb-dwim-net-address-allow-redundancy t
bbdb-extract-address-components-func 'bbdb-extract-address-components
bbdb/news-auto-create-p
(lambda ()
(let ((group gnus-newsgroup-name))
- (and (string-match "^nnimap\\+" group)
+ (and (string-match "^nn\\(imap\\|folder\\)\\+" group)
(not (string-match ":\\(crap\\|spam\\|lists\\)\\." group)))))
bbdb-user-mail-names
(concat "^"
"\\(" "\\(mdw\\|markw\\|root\\|postmaster\\)"
"\\([-+][^@]*\\|\\)"
"@\\(\\(dist\\|esc\\)orted\\.org\\.uk\\|odin\\.gg\\)"
+ "\\|" "\\(mdw\\(\\+[^@]*\\)?\\|0mdwk\\.[^@]*\\)" "@"
+ "\\(chiark\\|slimy\\|coriolis\\)\\.greenend\\.org\\.uk"
"\\|" "distorted\\.mdw@g\\(\\|oogle\\)mail.com"
"\\|" "mwooding@\\(good\\|blackberry\\)\\.com"
"\\|" "mark\\.wooding@trustonic\\.com"
addr)
(member (md5 addr)
'("8815c5583970856799c85a3ee0eb6a9f" ;work wiki spam
+ "0b94ab4d25dacaa5ac07243a09c9e22e" ;work bug spam
))
(and (string-match "^news\\([0-9]+\\)@\\(.*\\)$" addr)
(string= (md5 (match-string 2 addr))