From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 27 Sep 2001 12:09:35 +0000 (+0000)
Subject: (gnus-article-display-xface): Skip over previously
X-Git-Tag: emacs-21.1~135
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bd2bc09ff5d679976397674c50c89dce3ae8cd98;p=emacs.git

(gnus-article-display-xface): Skip over previously
inserted images.
---

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)