diff options
| author | Luke Shumaker <lukeshu@lukeshu.com> | 2018-03-21 12:03:53 -0400 |
|---|---|---|
| committer | Luke Shumaker <lukeshu@lukeshu.com> | 2018-03-21 14:16:05 -0400 |
| commit | f7a980869dcd7bb5641e7fed2b67a6587190f1f1 (patch) | |
| tree | fc62c08b1bb6df8e18535b8ce5bde45ac9b4a715 | |
| parent | a476129b5eae782a269e3d6ae8c16fe1e332a0d9 (diff) | |
emacs: wanderlust: visible headers
| -rw-r--r-- | .config/emacs/wl.el | 44 |
1 files changed, 26 insertions, 18 deletions
diff --git a/.config/emacs/wl.el b/.config/emacs/wl.el index 08d9ec3..deefef9 100644 --- a/.config/emacs/wl.el +++ b/.config/emacs/wl.el @@ -46,22 +46,30 @@ wl-folder-window-width 35 ;; wl-message-auto-reassemble-message/partial t ;; reasemble split messages - wl-message-ignored-field-list '("^.*:") ;; default to hiding all headers - wl-message-visible-field-list ;; but then display these - '("^\\(To\\|Cc\\):" - "^Subject:" - "^\\(From\\|Reply-To\\):" - "^Organization:" - "^Message-Id:" - "^\\(Posted\\|Date\\):" - "^List-ID:" - ) - wl-message-sort-field-list ;; in this order - '("^Date" - "^From" - "^Organization:" - "^X-Attribution:" - "^Subject" - "^To" - "^Cc") + wl-message-ignored-field-list '("^.*:") ;; default to hiding all headers + wl-message-visible-field-list (mapcar (lambda (str) ;; but then display these + (apply 'concat (mapcar (lambda (c) + (if (and (<= ?a c) (<= c ?z)) + (list ?[ c (upcase c) ?]) + (list c))) + str))) + '( + "^date:" + "^subject:" + + "^from:" + "^reply-to:" + "^organization:" + + "^to:" + "^cc:" + + "^message-id:" + "^list-id:" + "^mailing-list:" + + "^in-reply-to:" + "^references:" + )) + wl-message-sort-field-list wl-message-visible-field-list ;; in this order ) |