debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-22 10:58:10 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: Allow part preferences to depend on message content.

Browse source 
Currently the preference for which sub-part of a multipart/alternative
part is shown is global. Allow to the user to override the settings on a
per-message basis by providing the ability to call a function that has
access to the message to return the discouraged type list.

The original approach is retained as the default.
This commit is contained in:
David Edmondson 2016-04-03 17:04:38 +01:00 committed by David Bremner
parent d93d3779b8
commit f0881394bd
2 changed files with 17 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
emacs/notmuch-lib.el
View file

@ -520,11 +520,23 @@ This replaces spaces, percents, and double quotes in STR with
"multipart/related" "multipart/related"
)) ))
(defun notmuch-multipart/alternative-choose (types) (defun notmuch-multipart/alternative-determine-discouraged (msg)
"Return a list of preferred types from the given list of types" "Return the discouraged alternatives for the specified message."
;; If a function, return the result of calling it.
(if (functionp notmuch-multipart/alternative-discouraged)
(funcall notmuch-multipart/alternative-discouraged msg)
;; Otherwise simply return the value of the variable, which is
;; assumed to be a list of discouraged alternatives. This is the
;; default behaviour.
notmuch-multipart/alternative-discouraged))
(defun notmuch-multipart/alternative-choose (msg types)
"Return a list of preferred types from the given list of types
for this message, if present."
;; Based on `mm-preferred-alternative-precedence'. ;; Based on `mm-preferred-alternative-precedence'.
(let ((seq types)) (let ((discouraged (notmuch-multipart/alternative-determine-discouraged msg))
(dolist (pref (reverse notmuch-multipart/alternative-discouraged)) (seq types))
(dolist (pref (reverse discouraged))
(dolist (elem (copy-sequence seq)) (dolist (elem (copy-sequence seq))
(when (string-match pref elem) (when (string-match pref elem)
(setq seq (nconc (delete elem seq) (list elem)))))) (setq seq (nconc (delete elem seq) (list elem))))))

2
emacs/notmuch-show.el
View file

@ -607,7 +607,7 @@ will return nil if the CID is unknown or cannot be retrieved."
(plist-get part :content))) (plist-get part :content)))
(defun notmuch-show-insert-part-multipart/alternative (msg part content-type nth depth button) (defun notmuch-show-insert-part-multipart/alternative (msg part content-type nth depth button)
(let ((chosen-type (car (notmuch-multipart/alternative-choose (notmuch-show-multipart/*-to-list part)))) (let ((chosen-type (car (notmuch-multipart/alternative-choose msg (notmuch-show-multipart/*-to-list part))))
(inner-parts (plist-get part :content)) (inner-parts (plist-get part :content))
(start (point))) (start (point)))
;; This inserts all parts of the chosen type rather than just one, ;; This inserts all parts of the chosen type rather than just one,