dot/emacs: Add key bindings for VM.

[profile] / dot / gnus.el

diff --git a/dot/gnus.el b/dot/gnus.el
index 1625542..be92db7 100644 (file)
--- 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.