mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

lisp/gnus/gnus.el (gnus-mode-line-buffer-identification): Don't add image data for a non-graphic display (bug#18813)

Browse Source
This commit is contained in:
Katsumi Yamaoka 2014-10-27 12:51:18 +09:00
parent ea1c65d4bb
commit 48ec745025
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View File

@ -1,3 +1,8 @@
2014-10-27 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus.el (gnus-mode-line-buffer-identification):
Don't add image data for a non-graphic display (bug#18813).
2014-10-24 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus.el (gnus-mode-line-buffer-identification): Don't shadow

3
lisp/gnus/gnus.el
View File

@ -327,7 +327,8 @@ be set in `.emacs' instead."
(defun gnus-mode-line-buffer-identification (line)
(let ((str (car-safe line))
(load-path (append (mm-image-load-path) load-path)))
(if (and (stringp str)
(if (and (display-graphic-p)
(stringp str)
(string-match "^Gnus:" str))
(progn (add-text-properties
0 5