+;; Reconfigure the `nnmail-split-fancy' syntax table to be less mad.
+(setq nnmail-split-fancy-syntax-table
+ (let ((table (make-syntax-table)))
+
+ ;; This is from upstream. I don't know what it's for.
+ (modify-syntax-entry ?% "." table)
+
+ ;; Email addresses are often wrapped in `<...>', so don't consider
+ ;; those to be part of the address.
+ (modify-syntax-entry ?< "(>" table)
+ (modify-syntax-entry ?> ")<" table)
+
+ ;; Email addresses definitely contain `.'.
+ (modify-syntax-entry ?. "_" table)
+
+ ;; Done.
+ table))
+