From 7d3eb97c746ecdd253a370e11727e3041537afe1 Mon Sep 17 00:00:00 2001 From: Mekeor Melire Date: Wed, 7 Feb 2024 23:00:08 +0100 Subject: [PATCH] Add option gnus-mode-line-logo * lisp/gnus/gnus.el (gnus-mode-line-logo): New option specifying the display of the Gnus logo image in the mode-line. * etc/NEWS: Announce the change. --- etc/NEWS | 4 ++++ lisp/gnus/gnus.el | 8 +++++++- 2 files changed, 11 insertions(+), 1 deletion(-) diff --git a/etc/NEWS b/etc/NEWS index ee7462cb2aa..b283717596c 100644 --- a/etc/NEWS +++ b/etc/NEWS @@ -1098,6 +1098,10 @@ The gmane.org website is, sadly, down since a number of years with no prospect of it coming back. Therefore, it is no longer valid to set the user option 'nnweb-type' to 'gmane'. +*** New user option 'gnus-mode-line-logo'. +This allows the user to disable the display of the Gnus logo image in +the mode-line. + ** Rmail --- diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el index 99833e4eeca..7477828eb72 100644 --- a/lisp/gnus/gnus.el +++ b/lisp/gnus/gnus.el @@ -309,12 +309,18 @@ gnus-inhibit-startup-message :group 'gnus-start :type 'boolean) +(defcustom gnus-mode-line-logo t + "If non-nil, Gnus-buffers display logo in mode-line, if applicable." + :group 'gnus-visual + :type 'boolean) + (defun gnus-mode-line-buffer-identification (line) (let* ((str (car-safe line)) (str (if (stringp str) (car (propertized-buffer-identification str)) str))) - (if (or (not (fboundp 'find-image)) + (if (or (not gnus-mode-line-logo) + (not (fboundp 'find-image)) (not (display-graphic-p)) (not (stringp str)) (not (string-match "^Gnus:" str))) -- 2.41.0