gnus-ems.el (gnus-image-type-available-p): Test display-images-p' before image-type-available-p'

This commit is contained in:
Ted Zlatanov 2013-06-06 22:18:53 +00:00 committed by Katsumi Yamaoka
parent d0341459c1
commit ebada6e0ed
2 changed files with 8 additions and 2 deletions

View file

@ -1,3 +1,9 @@
2013-06-06 Teodor Zlatanov <tzz@lifelogs.com>
* gnus-ems.el (gnus-image-type-available-p): Test `display-images-p'
before `image-type-available-p' to avoid loading the image libraries
needlessly.
2013-06-04 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-art.el (article-date-ut, article-update-date-lapsed): Don't

View file

@ -165,10 +165,10 @@
(defun gnus-image-type-available-p (type)
(and (fboundp 'image-type-available-p)
(image-type-available-p type)
(if (fboundp 'display-images-p)
(display-images-p)
t)))
t)
(image-type-available-p type)))
(defun gnus-create-image (file &optional type data-p &rest props)
(let ((face (plist-get props :face)))