mirror of https://github.com/djcb/mu.git
mu4e: allow for hiding fully read maildirs/bookmarks
Add a variable mu4e-main-hide-fully-read to control whether to _not_ show maildir / bookmark links if they're fully read.
This commit is contained in:
parent
8bfcb7430b
commit
454e8d9a3a
3
NEWS.org
3
NEWS.org
|
@ -18,6 +18,9 @@
|
||||||
Note that for the latter, you see to update your maildir-shortcuts to the
|
Note that for the latter, you see to update your maildir-shortcuts to the
|
||||||
new format, as explained in the ~mu4e-maildir-shortcuts~ docstring.
|
new format, as explained in the ~mu4e-maildir-shortcuts~ docstring.
|
||||||
|
|
||||||
|
You can set ~mu4e-main-hide-fully-read~ to hide any bookmarks/maildirs that
|
||||||
|
have no unread messages.
|
||||||
|
|
||||||
- Add some more properties for use in capturing org-mode links to messages /
|
- Add some more properties for use in capturing org-mode links to messages /
|
||||||
queries. See [[info:mu4e#Org-mode links][the mu4e manual]] for details.
|
queries. See [[info:mu4e#Org-mode links][the mu4e manual]] for details.
|
||||||
|
|
||||||
|
|
|
@ -33,12 +33,16 @@
|
||||||
;;; Mode
|
;;; Mode
|
||||||
|
|
||||||
(defvar mu4e-main-buffer-hide-personal-addresses nil
|
(defvar mu4e-main-buffer-hide-personal-addresses nil
|
||||||
"Whether to hid the personal address in the main view. This
|
"Whether to hide the personal address in the main view. This
|
||||||
can be useful to avoid the noise when there are many.
|
can be useful to avoid the noise when there are many.
|
||||||
|
|
||||||
This also hides the warning if your `user-mail-address' is not
|
This also hides the warning if your `user-mail-address' is not
|
||||||
part of the personal addresses.")
|
part of the personal addresses.")
|
||||||
|
|
||||||
|
(defvar mu4e-main-hide-fully-read nil
|
||||||
|
"When set to t, do not hide bookmarks or maildirs that have
|
||||||
|
no unread messages.")
|
||||||
|
|
||||||
(defvar mu4e-main-buffer-name " *mu4e-main*"
|
(defvar mu4e-main-buffer-name " *mu4e-main*"
|
||||||
"Name of the mu4e main view buffer. The default name starts
|
"Name of the mu4e main view buffer. The default name starts
|
||||||
with SPC and therefore is not visible in buffer list.")
|
with SPC and therefore is not visible in buffer list.")
|
||||||
|
@ -134,7 +138,9 @@ clicked."
|
||||||
(plist-get q :query) 'utf-8 t)
|
(plist-get q :query) 'utf-8 t)
|
||||||
query)
|
query)
|
||||||
collect q))
|
collect q))
|
||||||
|
for unread = (and qcounts (plist-get (car qcounts) :unread))
|
||||||
when (not (plist-get bm :hide))
|
when (not (plist-get bm :hide))
|
||||||
|
when (not (and mu4e-main-hide-fully-read (eq unread 0)))
|
||||||
concat (concat
|
concat (concat
|
||||||
;; menu entry
|
;; menu entry
|
||||||
(mu4e~main-action-str
|
(mu4e~main-action-str
|
||||||
|
@ -171,7 +177,9 @@ clicked."
|
||||||
'utf-8 t)
|
'utf-8 t)
|
||||||
query)
|
query)
|
||||||
collect q))
|
collect q))
|
||||||
|
for unread = (and qcounts (plist-get (car qcounts) :unread))
|
||||||
when (not (plist-get m :hide))
|
when (not (plist-get m :hide))
|
||||||
|
when (not (and mu4e-main-hide-fully-read (eq unread 0)))
|
||||||
concat (concat
|
concat (concat
|
||||||
;; menu entry
|
;; menu entry
|
||||||
(mu4e~main-action-str
|
(mu4e~main-action-str
|
||||||
|
|
Loading…
Reference in New Issue