emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Mu4e: make flycheck happier

Browse source
This commit is contained in:
TEC 2020-10-31 19:12:24 +08:00
parent ba5dee4a19
commit e0d2355126
No known key found for this signature in database
GPG key ID: 779591AFDB81F06C
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
modules/email/mu4e/config.el
View file

@ -423,7 +423,7 @@ Should be treated as a gmail address.")
(list (list
:char '("D" . "✘") :char '("D" . "✘")
:prompt "Delete" :prompt "Delete"
:show-target (lambda (target) "delete") :show-target (lambda (_target) "delete")
:action (lambda (docid msg target) :action (lambda (docid msg target)
(if (+mu4e-msg-gmail-p msg) (if (+mu4e-msg-gmail-p msg)
(progn (message "The delete operation is invalid for Gmail accounts. Trashing instead.") (progn (message "The delete operation is invalid for Gmail accounts. Trashing instead.")
@ -480,13 +480,12 @@ Should be treated as a gmail address.")
(mu4e-alert-set-default-style 'libnotify) (mu4e-alert-set-default-style 'libnotify)
(setq mu4e-alert-email-notification-types '(subjects)) (setq mu4e-alert-email-notification-types '(subjects))
(defun +mu4e-alert-grouped-mail-notification-formatter-with-bell (mail-group all-mails) (defun +mu4e-alert-grouped-mail-notification-formatter-with-bell (mail-group _all-mails)
"Default function to format MAIL-GROUP for notification. "Default function to format MAIL-GROUP for notification.
ALL-MAILS are the all the unread emails" ALL-MAILS are the all the unread emails"
(shell-command "paplay /usr/share/sounds/freedesktop/stereo/message.oga") (shell-command "paplay /usr/share/sounds/freedesktop/stereo/message.oga")
(if (> (length mail-group) 1) (if (> (length mail-group) 1)
(let* ((mail-count (length mail-group)) (let* ((mail-count (length mail-group))
(total-mails (length all-mails))
(first-mail (car mail-group)) (first-mail (car mail-group))
(title-prefix (format "You have %d unread emails" (title-prefix (format "You have %d unread emails"
mail-count)) mail-count))