76
edits
Difference between revisions of "Jabber Email Header"
Jump to navigation
Jump to search
add mu4e configuration for setting and displaying the Jabber-ID email header
(Add Claws Mail) |
(add mu4e configuration for setting and displaying the Jabber-ID email header) |
||
| Line 25: | Line 25: | ||
(setq mail-default-headers | (setq mail-default-headers | ||
(concat "Jabber-ID: your-jid-here\n" | (concat "Jabber-ID: your-jid-here\n" | ||
mail-default-headers)) | mail-default-headers))) | ||
If you use message-mode for composing mail (which you do if you use Gnus for reading mail), this should do the trick: | If you use message-mode for composing mail (which you do if you use Gnus for reading mail), this should do the trick: | ||
| Line 33: | Line 32: | ||
(setq message-default-headers | (setq message-default-headers | ||
(concat "Jabber-ID: your-jid-here\n" | (concat "Jabber-ID: your-jid-here\n" | ||
message-default-headers)) | message-default-headers))) | ||
) | |||
This works for mu4e: | |||
(add-hook 'mu4e-compose-mode-hook | |||
(defun my-add-jabberid () | |||
"Add a Jabber-ID header." | |||
(save-excursion (message-add-header (format "Jabber-ID: %s\n" "my-jid@my-server"))))) | |||
=== Displaying the header === | |||
This works in mu4e >= 1.12: | |||
(add-to-list 'mu4e-header-info | |||
'(:jabber-id :name "Jabber-ID" :shortname "JID" :help "The Jabber ID" :sortable t)) | |||
(add-to-list 'mu4e-header-info-custom | |||
'(:jabber-id . | |||
( :name "Jabber-ID" | |||
:shortname "JID" | |||
:help "The Jabber ID" | |||
:function (lambda (msg) | |||
(or (mu4e-fetch-field msg "Jabber-ID") ""))))) | |||
(setq mu4e-view-fields | |||
'(:from :to :cc :subject :flags :date :maildir :mailing-list :tags :jabber-id)) | |||
== Evolution == | == Evolution == | ||