From: yamaoka <yamaoka>
Date: Thu, 27 Sep 2001 12:07:58 +0000 (+0000)
Subject: Fix.
X-Git-Tag: t-gnus-6_15_3-06~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4714ed63ffd49521d30beea55c7fbe8a142a998d;p=elisp%2Fgnus.git-

Fix.
---

diff --git a/lisp/message.el b/lisp/message.el
index 6170928..87db038 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2816,14 +2816,14 @@ It should typically alter the sending method in some way or other."
 						  'mime-edit-invisible t))
 		   (text-property-any (point-min) (point-max)
 				      'message-invisible t)))
-	 (to (or (if emiko
-		     (text-property-not-all from (point-max)
-					    'mime-edit-invisible t)
-		   (text-property-not-all from (point-max)
-					  'message-invisible t))
-		 (point-max)))
-	 regions)
+	 to regions)
     (when from
+      (setq to (or (if emiko
+		       (text-property-not-all from (point-max)
+					      'mime-edit-invisible t)
+		     (text-property-not-all from (point-max)
+					    'message-invisible t))
+		   (point-max)))
       (push (cons from to) regions)
       (if emiko
 	  (while (setq from (text-property-any to (point-max)