X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/7bfab029d5c8a53ba1d5872371d79a2a3a90adf2..f5a7f2454290ef7473e0b32def4486d0b50096d0:/dot/gnus.el

diff --git a/dot/gnus.el b/dot/gnus.el
index 1625542..be92db7 100644
--- a/dot/gnus.el
+++ b/dot/gnus.el
@@ -117,6 +117,24 @@
 ;; bogus.
 (setq gnus-level-unsubscribed 6)
 
+;; 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))
+
 ;;;--------------------------------------------------------------------------
 ;;; Magic for sending mail the correct way.