emacs
/
mu
mirror of https://github.com/djcb/mu.git
1
0
Fork 0
Code Issues Releases Wiki Activity

mu4e: allow for show :user-agent in message-view 

Define a field :user-agent and make it showable in the view.
This commit is contained in:
djcb 2016-07-24 14:30:37 +03:00
parent a079216f11
commit 538b7e5292
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
mu4e/mu4e-vars.el
View File

@ -744,6 +744,11 @@ mu4e-compose-mode."
( :name "To" ( :name "To"
:shortname "To" :shortname "To"
:help "Recipient of the message" :help "Recipient of the message"
:sortable t))
(:user-agent .
( :name "User-Agent"
:shortname "UA"
:help "Program used for writing this message"
:sortable t))) :sortable t)))
"An alist of all possible header fields and information about them. "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 This is used in the user-interface (the column headers in the header list, and

7
mu4e/mu4e-view.el
View File

@ -203,9 +203,10 @@ found."
(lambda (field) (lambda (field)
(let ((fieldval (mu4e-message-field msg field))) (let ((fieldval (mu4e-message-field msg field)))
(case field (case field
(:subject (mu4e~view-construct-header field fieldval)) (:subject (mu4e~view-construct-header field fieldval))
(:path (mu4e~view-construct-header field fieldval)) (:path (mu4e~view-construct-header field fieldval))
(:maildir (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 ((:flags :tags) (mu4e~view-construct-flags-tags-header
field fieldval)) field fieldval))