Add kludge to avoid displaying 30x30 gif images, which makes Emacs shake

diff --git a/lisp/gnus-html.el b/lisp/gnus-html.el
index c32f8d7..c8aec16 100644 (file)
--- a/lisp/gnus-html.el
+++ b/lisp/gnus-html.el
@@ -161,7 +161,11 @@
 (defun gnus-html-put-image (file point)
   (let ((image (ignore-errors
                 (create-image file))))
-    (if image
+    (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))))
        (progn
          (put-image image point)
          t)