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

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