--- shr.el~	2011-05-05 21:58:59.375000000 +0000
+++ shr.el	2011-05-06 09:18:35.566220400 +0000
@@ -514,7 +514,12 @@
 	  (when (and (> (current-column) 0)
 		     (> (car (image-size image t)) 400))
 	    (insert "\n"))
-	  (insert-image image (or alt "*"))))
+	  (if (eq major-mode 'gnus-article-mode)
+	      (progn
+		(insert-image image (propertize (or alt "*")
+						'gnus-image-category 'shr))
+		(gnus-add-image 'shr image))
+	    (insert-image image (or alt "*")))))
     (insert alt)))
 
 (defun shr-rescale-image (data)