From: yamaoka <yamaoka>
Date: Thu, 27 Sep 2001 12:08:24 +0000 (+0000)
Subject: Fix.
X-Git-Tag: t-gnus-6_15_4-08-quimby~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=07ab5fb0282445442f60db721aad8d7052edf3aa;p=elisp%2Fgnus.git-

Fix.
---

diff --git a/lisp/message.el b/lisp/message.el
index 1712509..2da785c 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2864,14 +2864,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)