From: yamaoka <yamaoka>
Date: Wed, 9 Jun 2004 12:09:22 +0000 (+0000)
Subject: Synch to No Gnus 200406091208.
X-Git-Tag: t-gnus-6_17_4-quimby-~872
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c8a6d817c1a4e59cf78a79cb3e7be6456eb2d5c4;p=elisp%2Fgnus.git-

Synch to No Gnus 200406091208.
---

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