changeset 39483:dc7a5767765d

(gnus-article-display-xface): Skip over previously inserted images.
author Gerd Moellmann <gerd@gnu.org>
date Thu, 27 Sep 2001 12:09:19 +0000
parents 5eea05fd1af9
children f677801e545d
files lisp/gnus/gnus-ems.el
diffstat 1 files changed, 2 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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)