Function: gnus-mode-line-buffer-identification

gnus-mode-line-buffer-identification is a byte-compiled function defined in gnus.el.gz.

Signature

(gnus-mode-line-buffer-identification LINE)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus.el.gz
(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 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))
            (gnus-emacs-version (gnus-emacs-version)))
	;; Add the Gnus logo.
	(add-text-properties
	 0 5
	 (list 'display
	       (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)))))