From: yamaoka <yamaoka>
Date: Thu, 27 Sep 2001 05:30:10 +0000 (+0000)
Subject: * mime-edit.el (mime-edit-content-end): Retuen a value of `point-max' when
X-Git-Tag: emiko-1_14_1~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=20bb831c7dd683a51a0f6573768d9e1d2da91dd6;p=elisp%2Fsemi.git

* mime-edit.el (mime-edit-content-end): Retuen a value of `point-max' when
 the function `next-single-property-change' returns nil.
---

diff --git a/ChangeLog b/ChangeLog
index ac478e8..241ca6e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2001-09-27  Katsumi Yamaoka   <yamaoka@jpl.org>
+
+	* mime-edit.el (mime-edit-content-end): Retuen the value of
+	`point-max' when the function `next-single-property-change'
+	returns nil.
+
 2001-09-25   Daiki Ueno  <ueno@unixuser.org>
 
 	* mime-view.el (mime-view-entity-content): New function.
diff --git a/mime-edit.el b/mime-edit.el
index 10052ef..c5f51f1 100644
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -1277,7 +1277,8 @@ Optional argument ENCODING specifies an encoding method such as base64."
 	(progn
 	  (goto-char (1+ (match-end 0)))
 	  (if (get-text-property (point) 'mime-edit-invisible)
-	      (next-single-property-change (point) 'mime-edit-invisible)
+	      (or (next-single-property-change (point) 'mime-edit-invisible)
+		  (point-max))
 	    ;; Move to the end of this text.
 	    (if (re-search-forward mime-edit-tag-regexp nil 'move)
 		;; Don't forget a multiline tag.