Synch to No Gnus 200501120840.

[elisp/gnus.git-] / lisp / gnus-ems.el

diff --git a/lisp/gnus-ems.el b/lisp/gnus-ems.el
index bca77f7..41dddd3 100644 (file)
--- a/lisp/gnus-ems.el
+++ b/lisp/gnus-ems.el
@@ -236,7 +236,8 @@
                    (and (setq start
                               (next-single-property-change start 'display))
                         (setq val (get-text-property start 'display)))))
-      (setq end (next-single-property-change start 'display))
+      (setq end (or (next-single-property-change start 'display)
+                   (point-max)))
       (if (and (equal val image)
               (equal (get-text-property start 'gnus-image-category)
                      category))
@@ -244,8 +245,9 @@
            (put-text-property start end 'display nil)
            (when (get-text-property start 'gnus-image-text-deletable)
              (delete-region start end)))
-       (setq start end
-             end nil)))))
+       (unless (= end (point-max))
+         (setq start end
+               end nil))))))
 
 (defun-maybe assoc-ignore-case (key alist)
   "Like `assoc', but assumes KEY is a string and ignores case when comparing."