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

mu4e: move mu4e~headers-jump-to-maildir to search

Browse Source 
... to mu4e-search-maildir.

Where we can, we move appropriate code from the overpopulated
mu4e-headers.el to mu4e-search, and update users.
This commit is contained in:
Dirk-Jan C. Binnema
2023-01-09 22:43:39 +02:00
parent 551bc46b47
commit b11293147f
5 changed files with 24 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
mu4e/mu4e-headers.el
View File

@ -901,8 +901,6 @@ after the end of the search results."
(defvar mu4e-headers-mode-map
(let ((map (make-sparse-keymap)))
(define-key map "j" #'mu4e~headers-jump-to-maildir)
(define-key map "q" #'mu4e~headers-quit-buffer)
(define-key map "g" #'mu4e-search-rerun) ;; for compatibility
@ -1480,20 +1478,6 @@ untrashed)."
(interactive)
(mu4e~headers-prev-or-next-unread nil))
(defun mu4e~headers-jump-to-maildir (maildir &optional edit)
"Show the messages in maildir.
The user is prompted to ask what maildir. If prefix arg EDIT is
given, offer to edit the search query before executing it."
(interactive
(let ((maildir (mu4e-ask-maildir "Jump to maildir: ")))
(list maildir current-prefix-arg)))
(when maildir
(let* ((query (format "maildir:\"%s\"" maildir))
(query (if edit
(mu4e-search-read-query "Refine query: " query) query)))
(mu4e-mark-handle-when-leaving)
(mu4e-search query))))
(defun mu4e-headers-split-view-grow (&optional n)
"In split-view, grow the headers window.
In horizontal split-view, increase the number of lines shown by N.