# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 1001592559 0
# Node ID dc7a5767765d97067e023d12d2905b5e20e01645
# Parent  5eea05fd1af9e495771c5505fda4870dea9ed48b
(gnus-article-display-xface): Skip over previously
inserted images.

diff -r 5eea05fd1af9 -r dc7a5767765d lisp/gnus/gnus-ems.el
--- a/lisp/gnus/gnus-ems.el	Thu Sep 27 11:05:06 2001 +0000
+++ b/lisp/gnus/gnus-ems.el	Thu Sep 27 12:09:19 2001 +0000
@@ -272,6 +272,8 @@
 	(when image
 	  (goto-char (point-min))
 	  (re-search-forward "^From:" nil 'move)
+	  (while (get-text-property (point) 'display)
+	    (goto-char (next-single-property-change (point) 'display)))
 	  (insert-image image))))))
 
 (provide 'gnus-ems)