(gnus-article-display-xface): Skip over previously

inserted images.

2 files changed, 7 insertions, 0 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index aa08e0f922d..e16c3bd337d 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2001-09-27  Gerd Moellmann  <gerd@gnu.org>
+
+        * gnus-ems.el (gnus-article-display-xface): Skip over previously
+        inserted images.
+
 2001-09-19  Sam Steingold  <sds@gnu.org>
 
         * gnus-win.el (gnus-buffer-configuration): Respect
diff --git a/lisp/gnus/gnus-ems.el b/lisp/gnus/gnus-ems.el
index d668d5c056f..ba4ecfefcac 100644
--- a/lisp/gnus/gnus-ems.el
+++ b/lisp/gnus/gnus-ems.el
@@ -272,6 +272,8 @@ for XEmacs."
         (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)