mirror of https://github.com/djcb/mu.git
mu4e: main: add mu4e-main-quit-or-bury
So instead of quitting, you can do C-u q to merely bury the buffer.
This commit is contained in:
parent
c5f3894374
commit
c3a756a207
4
NEWS.org
4
NEWS.org
|
@ -12,7 +12,7 @@
|
||||||
that should _not_ be included in the contacts-cache (i.e., for ~mu cfind~ and
|
that should _not_ be included in the contacts-cache (i.e., for ~mu cfind~ and
|
||||||
Mu4e address completion). See the ~mu-init~ manpage for details.
|
Mu4e address completion). See the ~mu-init~ manpage for details.
|
||||||
|
|
||||||
It's not unusual for 'noreply`-type e-mail addresses to be the majority in
|
It's not unusual for 'noreply'-type e-mail addresses to be the majority in
|
||||||
an e-mail corpus, so it useful to get rid of those, with
|
an e-mail corpus, so it useful to get rid of those, with
|
||||||
'=--ignored-address=/.*noreply*/'=
|
'=--ignored-address=/.*noreply*/'=
|
||||||
|
|
||||||
|
@ -37,6 +37,8 @@
|
||||||
- also, there are now actions ('a' in view/header) to get to online archives
|
- also, there are now actions ('a' in view/header) to get to online archives
|
||||||
for some (selected) mailing-list archives.
|
for some (selected) mailing-list archives.
|
||||||
|
|
||||||
|
- In the main-view, by default ~q~ is now bound to ~mu4e-main-quit-or-bury~,
|
||||||
|
which calls either ~mu4e-quit~ or, with prefix argument, ~bury-buffer~.
|
||||||
|
|
||||||
* 1.10 (released on March 26, 2023)
|
* 1.10 (released on March 26, 2023)
|
||||||
|
|
||||||
|
|
|
@ -110,10 +110,17 @@ the personal addresses."
|
||||||
(current-time-string baseline-t)
|
(current-time-string baseline-t)
|
||||||
"Never"))))
|
"Never"))))
|
||||||
|
|
||||||
|
(defun mu4e-main-quit-or-bury (&optional bury)
|
||||||
|
"Quit mu4e, or, with prefix-argument, bury the buffer."
|
||||||
|
(interactive "p")
|
||||||
|
(if bury
|
||||||
|
(bury-buffer)
|
||||||
|
(mu4e-quit)))
|
||||||
|
|
||||||
(defvar mu4e-main-mode-map
|
(defvar mu4e-main-mode-map
|
||||||
(let ((map (make-sparse-keymap)))
|
(let ((map (make-sparse-keymap)))
|
||||||
|
|
||||||
(define-key map "q" #'mu4e-quit)
|
(define-key map "q" #'mu4e-main-quit-or-bury)
|
||||||
(define-key map "C" #'mu4e-compose-new)
|
(define-key map "C" #'mu4e-compose-new)
|
||||||
|
|
||||||
(define-key map "m" #'mu4e--main-toggle-mail-sending-mode)
|
(define-key map "m" #'mu4e--main-toggle-mail-sending-mode)
|
||||||
|
@ -328,7 +335,7 @@ Otherwise, do nothing."
|
||||||
(mu4e--main-action "\t* [@]News\n" #'mu4e-news nil "N")
|
(mu4e--main-action "\t* [@]News\n" #'mu4e-news nil "N")
|
||||||
(mu4e--main-action "\t* [@]About mu4e\n" #'mu4e-about nil "A")
|
(mu4e--main-action "\t* [@]About mu4e\n" #'mu4e-about nil "A")
|
||||||
(mu4e--main-action "\t* [@]Help\n" #'mu4e-display-manual nil "H")
|
(mu4e--main-action "\t* [@]Help\n" #'mu4e-display-manual nil "H")
|
||||||
(mu4e--main-action "\t* [@]quit\n" #'mu4e-quit nil "q")
|
(mu4e--main-action "\t* [@]quit\n" #'mu4e-main-quit-or-bury nil "q")
|
||||||
"\n"
|
"\n"
|
||||||
(propertize " Info\n\n" 'face 'mu4e-title-face)
|
(propertize " Info\n\n" 'face 'mu4e-title-face)
|
||||||
(mu4e--key-val "last updated"
|
(mu4e--key-val "last updated"
|
||||||
|
|
Loading…
Reference in New Issue