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

[profile] / dot / gnus-local.el.distorted

diff --git a/dot/gnus-local.el.distorted b/dot/gnus-local.el.distorted
index a484554..1ea2487 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"))))
 
+(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