From c8a6d817c1a4e59cf78a79cb3e7be6456eb2d5c4 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 9 Jun 2004 12:09:22 +0000 Subject: [PATCH] Synch to No Gnus 200406091208. --- lisp/message.el | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/lisp/message.el b/lisp/message.el index 6b02c3b..d239762 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -3918,12 +3918,11 @@ not have PROP." (setq end (point-max))) (let (next regions) (if reverse - (progn - (while (and start - (setq start (text-property-any start end prop nil))) - (setq next (next-single-property-change start prop nil end)) - (push (cons start (or next end)) regions) - (setq start next))) + (while (and start + (setq start (text-property-any start end prop nil))) + (setq next (next-single-property-change start prop nil end)) + (push (cons start (or next end)) regions) + (setq start next)) (while (and start (or (get-text-property start prop) (and (setq start (next-single-property-change -- 1.7.10.4