shr: fix alt insertion

[gnus] / lisp / shr.el

diff --git a/lisp/shr.el b/lisp/shr.el
index 852f6cc..403c57b 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -373,12 +373,13 @@ redirects somewhere else."
   (kill-buffer (current-buffer)))
 
 (defun shr-put-image (data point alt)
-  (if (not (display-graphic-p))
-      (insert alt)
-    (let ((image (ignore-errors
-                  (shr-rescale-image data))))
-      (when image
-       (put-image image point alt)))))
+  (if (display-graphic-p)
+      (let ((image (ignore-errors
+                     (shr-rescale-image data))))
+        (when image
+          (put-image image point alt)))
+    (goto-char point)
+    (insert alt)))
 
 (defun shr-rescale-image (data)
   (if (or (not (fboundp 'imagemagick-types))