From 2c6a80f4efb53f299a7b96250fe55d15b1918418 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 10 Jun 2004 02:52:48 +0000 Subject: [PATCH] Synch to No Gnus 200406100252. --- lisp/gnus-ems.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) 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." -- 1.7.10.4