From: yamaoka <yamaoka>
Date: Thu, 10 Jun 2004 02:52:48 +0000 (+0000)
Subject: Synch to No Gnus 200406100252.
X-Git-Tag: t-gnus-6_17_4-quimby-~869
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=2c6a80f4efb53f299a7b96250fe55d15b1918418;p=elisp%2Fgnus.git-

Synch to No Gnus 200406100252.
---

diff --git a/lisp/gnus-ems.el b/lisp/gnus-ems.el
index bca77f7..41dddd3 100644
--- 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."