summaryrefslogtreecommitdiff
path: root/.config
diff options
context:
space:
mode:
Diffstat (limited to '.config')
-rw-r--r--.config/emacs/wl.el44
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
)