dot/gnus-local.el.distorted: Check `Envelope-To:' for recipients.

diff --git a/dot/gnus-local.el.distorted b/dot/gnus-local.el.distorted
index a484554c1078c076ffbb02d773e79ab7d2e7fd3b..1ea2487452501e7d6a95ac62c181eef86e1c7452 100644 (file)
--- a/dot/gnus-local.el.distorted
+++ b/dot/gnus-local.el.distorted
@@ -93,6 +93,15 @@
         (address "distorted.mdw@gmail.com")
         ("X-mdw-Send-Mail" "gmail-smtp"))))
 
         (address "distorted.mdw@gmail.com")
         ("X-mdw-Send-Mail" "gmail-smtp"))))
 

+(setq nnmail-split-abbrev-alist
+      (mdw-uniquify-alist
+       `((to . ,(concat "to\\|cc\\|apparently-to\\|envelope-to\\|"
+                       "resent-to\\|resent-cc"))
+        (any . ,(concat "from\\|sender\\|resent-from\\|"
+                        "to\\|cc\\|apparently-to\\|envelope-to\\|"
+                        "resent-to\\|resent-cc"))
+        ,@nnmail-split-abbrev-alist)))
+

 (defvar mdw-odin-parse-regexp
   (concat "^"
          "\\S-+" "\\s-+"               ; time limit
 (defvar mdw-odin-parse-regexp
   (concat "^"
          "\\S-+" "\\s-+"               ; time limit