diff options
Diffstat (limited to 'lisp/gnus/gnus.el')
-rw-r--r-- | lisp/gnus/gnus.el | 40 |
1 files changed, 29 insertions, 11 deletions
diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el index 5ab6b2978ff..dab66b60205 100644 --- a/lisp/gnus/gnus.el +++ b/lisp/gnus/gnus.el @@ -309,30 +309,47 @@ be set in `.emacs' instead." :group 'gnus-start :type 'boolean) +(defcustom gnus-mode-line-logo + '((:type svg :file "gnus-pointer.svg" :ascent center) + (:type xpm :file "gnus-pointer.xpm" :ascent center) + (:type xbm :file "gnus-pointer.xbm" :ascent center)) + "Image spec for the Gnus logo to be displayed in mode-line. + +If non-nil, it should be a list of image specifications to be passed +as the first argument to `find-image', which see. Then, if the display +is capable of showing images, the Gnus logo will be displayed as part of +the buffer-identification in the mode-line of Gnus-buffers. + +If nil, there will be no Gnus logo in the mode-line." + :group 'gnus-visual + :type '(choice + (repeat :tag "List of Gnus logo image specifications" (plist)) + (const :tag "Don't display Gnus logo" nil)) + :version "30.1") + (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))) (list str) - (let ((load-path (append (mm-image-load-path) load-path))) + (let ((load-path (append (mm-image-load-path) load-path)) + (gnus-emacs-version (gnus-emacs-version))) ;; Add the Gnus logo. (add-text-properties 0 5 (list 'display - (find-image - '((:type xpm :file "gnus-pointer.xpm" - :ascent center) - (:type xbm :file "gnus-pointer.xbm" - :ascent center)) - t) - 'help-echo (format - "This is %s, %s." - gnus-version (gnus-emacs-version))) + (find-image gnus-mode-line-logo t) + 'help-echo (if gnus-emacs-version + (format + "This is %s, %s." + gnus-version gnus-emacs-version) + (format "This is %s." gnus-version))) str) (list str))))) @@ -2445,6 +2462,7 @@ are always t.") ;; Save window configuration. (defvar gnus-prev-winconf nil) +(defvar gnus-prev-cwc nil) (defvar gnus-reffed-article-number nil) |