emacs: display-time-mode: show gnus’s icon instead of "Mail"

[~bandali/configs] / .emacs.d / init.el

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 21b47de..4e5e8f2 100644 (file)
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -419,7 +419,9 @@ For disabling the behaviour for certain buffers and/or modes."
   (display-time-mode)
   :custom
   (display-time-default-load-average nil)
-  (display-time-format "%a %b %-e, %-l:%M%P"))
+  (display-time-format "%a %b %-e, %-l:%M%P")
+  (display-time-mail-icon '(image :type xpm :file "gnus/gnus-pointer.xpm" :ascent center))
+  (display-time-use-mail-icon t))
 
 (use-feature battery
   :if b/exwm-p
@@ -1856,6 +1858,9 @@ This function is intended for use with `ivy-ignore-buffers'."
                ("M-w" . boxquote-kill-ring-save)))
 
 (use-package orgalist
+  ;; breaks auto-fill-mode, showing this error:
+  ;; orgalist--boundaries: Lisp nesting exceeds ‘max-lisp-eval-depth’
+  :disabled
   :after message
   :hook (message-mode . orgalist-mode))
 
@@ -2003,6 +2008,7 @@ This function is intended for use with `ivy-ignore-buffers'."
              :files (:defaults "Debbugs.wsdl"))
   :bind
   (("C-c D d" . debbugs-gnu)
+   ("C-c D b" . debbugs-gnu-bugs)
    ("C-c D e" .
     (lambda ()
       (interactive)