From: Gerd Moellmann 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 + + * 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)