Don't do images on non-graphic displays.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e1341dc..6471166 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,12 +1,13 @@
 2010-08-30  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus-html.el (gnus-html-put-image): Use gnus-create-image to be
-       XEmacs-compatible. 
+       XEmacs-compatible.
+       (gnus-html-put-image): Don't do images on non-graphic displays.
 
        * nnslashdot.el: Removed this unused backend.
 
        * gnus-undo.el (gnus-undo-register-1): Limit the undo actions to 100
-       actions. 
+       actions.
        (gnus-undo-register-1): Revert last change.
 
        * gnus-group.el (gnus-group-completing-read): Protect against not

diff --git a/lisp/gnus-html.el b/lisp/gnus-html.el
index bbf83d3..cabfe34 100644 (file)
--- a/lisp/gnus-html.el
+++ b/lisp/gnus-html.el
@@ -162,22 +162,24 @@
        (gnus-html-schedule-image-fetching buffer images)))))
 
 (defun gnus-html-put-image (file point)
-  (let ((image (ignore-errors
-                (gnus-create-image file))))
-    (save-excursion
-      (goto-char point)
-      (if (and image
-              ;; Kludge to avoid displaying 30x30 gif images, which
-              ;; seems to be a signal of a broken image.
-              (not (and (eq (getf (cdr image) :type) 'gif)
-                        (= (car (image-size image t)) 30)
-                        (= (cdr (image-size image t)) 30))))
-         (progn
-           (gnus-put-image image)
-           t)
-       (when (fboundp 'find-image)
-         (gnus-put-image (find-image '((:type xpm :file "lock-broken.xpm")))))
-       nil))))
+  (when (display-graphic-p)
+    (let ((image (ignore-errors
+                  (gnus-create-image file))))
+      (save-excursion
+       (goto-char point)
+       (if (and image
+                ;; Kludge to avoid displaying 30x30 gif images, which
+                ;; seems to be a signal of a broken image.
+                (not (and (eq (getf (cdr image) :type) 'gif)
+                          (= (car (image-size image t)) 30)
+                          (= (cdr (image-size image t)) 30))))
+           (progn
+             (gnus-put-image image)
+             t)
+         (when (fboundp 'find-image)
+           (gnus-put-image (find-image
+                            '((:type xpm :file "lock-broken.xpm")))))
+         nil)))))
 
 (defun gnus-html-prune-cache ()
   (let ((total-size 0)