From bd2bc09ff5d679976397674c50c89dce3ae8cd98 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Thu, 27 Sep 2001 12:09:35 +0000 Subject: [PATCH] (gnus-article-display-xface): Skip over previously inserted images. --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/gnus-ems.el | 2 ++ 2 files changed, 7 insertions(+) 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 + + * gnus-ems.el (gnus-article-display-xface): Skip over previously + inserted images. + 2001-09-19 Sam Steingold * 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) -- 2.39.5