* 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 (file)
--- 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 (file)
--- 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.