alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

* mu4e: add support for display mailing list (short)names in headers/view mode

Browse Source
This commit is contained in:
djcb
2012-12-18 23:29:17 +02:00
parent 58a6ac1a13
commit 10ad5ce2ca
6 changed files with 120 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
mu4e/mu4e-utils.el
View File

@ -32,6 +32,7 @@
(require 'mu4e-vars)
(require 'mu4e-about)
(require 'mu4e-lists)
(require 'doc-view)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -467,7 +468,19 @@ that has a live window), and vice versa."
(view-mode)))
(switch-to-buffer buf)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defvar mu4e~lists-hash nil
"Hashtable of mailing-list-id => shortname, based on `mu4e~mailing-lists'
and `mu4e-user-mailing-lists'.")
(defun mu4e-get-mailing-list-shortname (list-id)
"Get the shortname for a mailing-list with list-id LIST-ID. based on `mu4e~mailing-lists'
and `mu4e-user-mailing-lists'."
(unless mu4e~lists-hash
(setq mu4e~lists-hash (make-hash-table :test 'equal))
(dolist (cell mu4e~mailing-lists) (puthash (car cell) (cdr cell) mu4e~lists-hash))
(dolist (cell mu4e-user-mailing-lists) (puthash (car cell) (cdr cell) mu4e~lists-hash)))
(gethash list-id mu4e~lists-hash))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defvar mu4e-index-updated-hook nil