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

Merge commit '4f83ab0f9430f0af1e6d3adbfc9a9591dddb8867' into avar/avar/mu4e-headers-search-bookmark-hook

Browse Source
This commit is contained in:
djcb
2016-02-18 20:24:29 +02:00
parent 961dba6d3e 4f83ab0f94
commit eca427d3a2
1 changed files with 7 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
mu4e/mu4e-headers.el
View File

@ -160,6 +160,12 @@ query have been received and are displayed."
:type 'hook :type 'hook
:group 'mu4e-headers) :group 'mu4e-headers)
(defcustom mu4e-headers-search-bookmark-hook nil
"Hook run just we're about to do a bookmarked search. The only
argument is `expr' which is the bookmarked search we're about to
execute."
:type 'hook
:group 'mu4e-headers)
(defvar mu4e-headers-sort-field :date (defvar mu4e-headers-sort-field :date
"Field to sort the headers by. "Field to sort the headers by.
@ -1294,6 +1300,7 @@ the search."
(let ((expr (let ((expr
(or expr (or expr
(mu4e-ask-bookmark (if edit "Select bookmark: " "Bookmark: "))))) (mu4e-ask-bookmark (if edit "Select bookmark: " "Bookmark: ")))))
(run-hook-with-args 'mu4e-headers-search-bookmark-hook expr)
(mu4e-headers-search expr (when edit "Edit bookmark: ") edit))) (mu4e-headers-search expr (when edit "Edit bookmark: ") edit)))
(defun mu4e-headers-search-bookmark-edit () (defun mu4e-headers-search-bookmark-edit ()