emacs: wanderlust: visible headers

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
   )