diff options
| author | Amin Bandali <bandali@gnu.org> | 2019-11-03 09:40:22 -0500 |
|---|---|---|
| committer | Amin Bandali <bandali@gnu.org> | 2019-11-03 09:40:22 -0500 |
| commit | e1f6f6a2e9eb4de7890b6ee4e2d1c1096ce0bffe (patch) | |
| tree | 643742898b985fc5c3f45a9c0725b2f0a13e0903 /.emacs.d | |
| parent | 3466a6a7455352b093fde2d92d9d641592712a85 (diff) | |
| download | configs-e1f6f6a2e9eb4de7890b6ee4e2d1c1096ce0bffe.tar.gz configs-e1f6f6a2e9eb4de7890b6ee4e2d1c1096ce0bffe.tar.xz configs-e1f6f6a2e9eb4de7890b6ee4e2d1c1096ce0bffe.zip | |
emacs: gnus: update visible headers and simplify message ids
Diffstat (limited to '.emacs.d')
| -rw-r--r-- | .emacs.d/init.el | 38 |
1 files changed, 29 insertions, 9 deletions
diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 571448e..b7be16a 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -2282,13 +2282,34 @@ This function is intended for use with `ivy-ignore-buffers'." :config (setq gnus-buttonized-mime-types '("multipart/\\(signed\\|encrypted\\)") - gnus-visible-headers - (concat gnus-visible-headers "\\|^List-Id:\\|^X-RT-Originator:\\|^User-Agent:") - gnus-sorted-header-list - '("^From:" "^Subject:" "^Summary:" "^Keywords:" - "^Followup-To:" "^To:" "^Cc:" "X-RT-Originator" - "^Newsgroups:" "List-Id:" "^Organization:" - "^User-Agent:" "^Date:") + gnus-sorted-header-list '("^From:" + "^X-RT-Originator" + "^Newsgroups:" + "^Subject:" + "^Date:" + "^Envelope-To:" + "^Followup-To:" + "^Reply-To:" + "^Organization:" + "^Summary:" + "^Abstract:" + "^Keywords:" + "^To:" + "^[BGF]?Cc:" + "^Posted-To:" + "^Mail-Copies-To:" + "^Mail-Followup-To:" + "^Apparently-To:" + "^Resent-From:" + "^User-Agent:" + "^X-detected-operating-system:" + "^Message-ID:" + "^References:" + "^List-Id:" + "^Gnus-Warning:") + gnus-visible-headers (mapconcat 'identity + gnus-sorted-header-list + "\\|") ;; local-lapsed article dates ;; from https://www.emacswiki.org/emacs/GnusFormatting#toc11 gnus-article-date-headers '(user-defined) @@ -2343,8 +2364,7 @@ https://csclub.uwaterloo.ca/~abandali") gnus-posting-styles '((".*" (address "bandali@gnu.org") - (signature b/gnu-signature) - (eval (set (make-local-variable 'message-user-fqdn) "fencepost.gnu.org"))) + (signature b/gnu-signature)) ("nnimap\\+gnu:l\\..*" (signature nil)) ((header "subject" "ThankCRM") |