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 (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)))
	;; 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)))
	 str)
	(list str)))))