(member (md5 addr)
'("8815c5583970856799c85a3ee0eb6a9f" ;work wiki spam
"0b94ab4d25dacaa5ac07243a09c9e22e" ;work bug spam
+ "35fb1633379a1e4d4be3b139cae20111" ;work crucible spam
))
(and (string-match "^news\\([0-9]+\\)@\\(.*\\)$" addr)
(string= (md5 (match-string 2 addr))
(setq uniquify-buffer-name-style 'post-forward-angle-brackets)
(setq uniquify-after-kill-buffer-p t))
(transient-mark-mode t)
-(setq mark-even-if-inactive t)
+(setq mark-even-if-inactive t
+ shift-select-mode nil
+ delete-active-region nil
+ delete-selection-mode nil)
(trap
(tooltip-mode 0)
(tool-bar-mode 0))