mu4e: main: add mu4e-main-quit-or-bury

So instead of quitting, you can do C-u q to merely bury the buffer.

NEWS.org

@@ -12,7 +12,7 @@
       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.
 
-      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
       '=--ignored-address=/.*noreply*/'=
 
@@ -37,6 +37,8 @@
     - also, there are now actions ('a' in view/header) to get to online 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)
 

mu4e/mu4e-main.el

@@ -110,10 +110,17 @@ the personal addresses."
           (current-time-string baseline-t)
         "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
   (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 "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* [@]About mu4e\n" #'mu4e-about nil "A")
          (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"
          (propertize "  Info\n\n" 'face 'mu4e-title-face)
          (mu4e--key-val "last updated"