From 538b7e52920302e4e2b9e2800e5ac1843383225e Mon Sep 17 00:00:00 2001 From: djcb Date: Sun, 24 Jul 2016 14:30:37 +0300 Subject: [PATCH] mu4e: allow for show :user-agent in message-view Define a field :user-agent and make it showable in the view. --- mu4e/mu4e-vars.el | 5 +++++ mu4e/mu4e-view.el | 7 ++++--- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/mu4e/mu4e-vars.el b/mu4e/mu4e-vars.el index ac8545f5..fe9b81c9 100644 --- a/mu4e/mu4e-vars.el +++ b/mu4e/mu4e-vars.el @@ -744,6 +744,11 @@ mu4e-compose-mode." ( :name "To" :shortname "To" :help "Recipient of the message" + :sortable t)) + (:user-agent . + ( :name "User-Agent" + :shortname "UA" + :help "Program used for writing this message" :sortable t))) "An alist of all possible header fields and information about them. This is used in the user-interface (the column headers in the header list, and diff --git a/mu4e/mu4e-view.el b/mu4e/mu4e-view.el index 75fc79f3..564835d4 100644 --- a/mu4e/mu4e-view.el +++ b/mu4e/mu4e-view.el @@ -203,9 +203,10 @@ found." (lambda (field) (let ((fieldval (mu4e-message-field msg field))) (case field - (:subject (mu4e~view-construct-header field fieldval)) - (:path (mu4e~view-construct-header field fieldval)) - (:maildir (mu4e~view-construct-header field fieldval)) + (:subject (mu4e~view-construct-header field fieldval)) + (:path (mu4e~view-construct-header field fieldval)) + (:maildir (mu4e~view-construct-header field fieldval)) + (:user-agent (mu4e~view-construct-header field fieldval)) ((:flags :tags) (mu4e~view-construct-flags-tags-header field fieldval))