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"
: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

7
mu4e/mu4e-view.el
View File

@ -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))