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

* mu4e-headers.el: use mu4e~headers-query-present

Browse Source
This commit is contained in:
djcb
2012-05-08 14:20:54 +03:00
parent 50ecb17431
commit 329eff359f
1 changed files with 4 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
emacs/mu4e-headers.el
View File

@ -800,8 +800,7 @@ IGNORE-HISTORY is true, do *not* update the query history stack."
is non-nil, retrieve *all* results, otherwise only get up to is non-nil, retrieve *all* results, otherwise only get up to
`mu4e-search-results-limit'." `mu4e-search-results-limit'."
(interactive "P") (interactive "P")
(mu4e-headers-search (mu4e-headers-search mu4e~headers-query-present search-all nil t))
(car-safe mu4e~headers-query-past) search-all nil t))
(defun mu4e-headers-search-bookmark (&optional expr search-all edit) (defun mu4e-headers-search-bookmark (&optional expr search-all edit)
@ -833,11 +832,10 @@ non-nil, retrieve *all* results, otherwise only get up to
nil 'mu4e~headers-search-hist nil t)) nil 'mu4e~headers-search-hist nil t))
(search-all current-prefix-arg)) (search-all current-prefix-arg))
(list filter search-all))) (list filter search-all)))
(unless (car-safe mu4e~headers-query-past) (unless mu4e~headers-query-present
(error "There's nothing to filter")) (error "There's nothing to filter"))
(mu4e-headers-search (mu4e-headers-search
(format "(%s) AND %s" (format "(%s) AND %s" mu4e~headers-query-present filter search-all)))
(car-safe mu4e~headers-query-past) filter) search-all))
(defun mu4e-headers-view-message () (defun mu4e-headers-view-message ()
"View message at point. If there's an existing window for the "View message at point. If there's an existing window for the
@ -892,8 +890,7 @@ current window. "
do a new search. If full-search is non-nil, return /all/ search do a new search. If full-search is non-nil, return /all/ search
results, otherwise show up to `mu4e-search-results-limit'." results, otherwise show up to `mu4e-search-results-limit'."
(interactive "P") (interactive "P")
(mu4e-headers-search (mu4e-headers-search mu4e~headers-query-present full-search))
(car-safe mu4e~headers-query-past) full-search))
(defun mu4e~headers-query-navigate (full-search whence) (defun mu4e~headers-query-navigate (full-search whence)
"Execute the previous query from the query stacks. WHENCE "Execute the previous query from the query stacks. WHENCE