Mercurial > emacs
comparison lisp/gnus/gnus-html.el @ 110054:fe1595694e7e
Fix previous merge from Gnus trunk.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Tue, 31 Aug 2010 00:51:08 +0000 |
| parents | 00d3a187d587 |
| children | 140a469a3964 |
comparison
equal
deleted
inserted
replaced
| 110053:a0d37c11985b | 110054:fe1595694e7e |
|---|---|
| 170 (save-excursion | 170 (save-excursion |
| 171 (goto-char point) | 171 (goto-char point) |
| 172 (if (and image | 172 (if (and image |
| 173 ;; Kludge to avoid displaying 30x30 gif images, which | 173 ;; Kludge to avoid displaying 30x30 gif images, which |
| 174 ;; seems to be a signal of a broken image. | 174 ;; seems to be a signal of a broken image. |
| 175 (not (and (eq (getf (cdr image) :type) 'gif) | 175 (not (and (listp image) |
| 176 (eq (getf (cdr image) :type) 'gif) | |
| 176 (= (car (image-size image t)) 30) | 177 (= (car (image-size image t)) 30) |
| 177 (= (cdr (image-size image t)) 30)))) | 178 (= (cdr (image-size image t)) 30)))) |
| 178 (progn | 179 (progn |
| 179 (gnus-put-image image) | 180 (gnus-put-image image) |
| 180 t) | 181 t) |