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

mu4e-main: fix hide-personal-addresses typo

Browse Source 
Fixes #1879.
This commit is contained in:
Dirk-Jan C. Binnema
2021-01-03 14:57:41 +02:00
parent 6566ced33b
commit b09b3cb2bb
1 changed files with 11 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
mu4e/mu4e-main.el
View File

@ -32,13 +32,19 @@
;;; Mode ;;; Mode
(defvar mu4e-main-buffer-hide-personal-addresses nil (define-obsolete-variable-alias
'mu4e-main-buffer-hide-personal-addresses
'mu4e-main-hide-personal-addresses "1.5.7")
(defvar mu4e-main-hide-personal-addresses nil
"Whether to hide 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 (defvar mu4e-main-hide-fully-read nil
"When set to t, do not hide bookmarks or maildirs that have "When set to t, do not hide bookmarks or maildirs that have
no unread messages.") no unread messages.")
@ -271,10 +277,10 @@ When REFRESH is non nil refresh infos from server."
(mu4e~key-val "maildir" (mu4e-root-maildir)) (mu4e~key-val "maildir" (mu4e-root-maildir))
(mu4e~key-val "in store" (mu4e~key-val "in store"
(format "%d" (plist-get mu4e~server-props :doccount)) "messages") (format "%d" (plist-get mu4e~server-props :doccount)) "messages")
(if mu4e-main-buffer-hide-personal-addresses "" (if mu4e-main-hide-personal-addresses ""
(mu4e~key-val "personal addresses" (if addrs (mapconcat #'identity addrs ", " ) "none")))) (mu4e~key-val "personal addresses" (if addrs (mapconcat #'identity addrs ", " ) "none"))))
(if mu4e-main-buffer-hide-personal-addresses "" (if mu4e-main-hide-personal-addresses ""
(unless (mu4e-personal-address-p user-mail-address) (unless (mu4e-personal-address-p user-mail-address)
(mu4e-message (concat (mu4e-message (concat
"Tip: `user-mail-address' ('%s') is not part " "Tip: `user-mail-address' ('%s') is not part "