* gnus-art.el (gnus-article-check-hidden-text): Return t.

	* gnus-util.el (gnus-remove-text-properties-when): Return t.

	* mm-decode.el (mm-dissect-multipart): Avoid errors owing to
	malformatted messages.

4 files changed, 18 insertions, 5 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index ba5f53662c3..f6f9229794b 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,12 @@
+2000-12-22  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+        * gnus-art.el (gnus-article-check-hidden-text): Return t.
+
+        * gnus-util.el (gnus-remove-text-properties-when): Return t.
+
+        * mm-decode.el (mm-dissect-multipart): Avoid errors owing to
+        malformatted messages.
+
 2000-12-21  Katsumi Yamaoka  <yamaoka@jpl.org>
 
         * gnus-art.el (article-treat-dumbquotes): Quote \.
diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index 2666bcffb58..52c6b3bd63e 100644
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -1968,10 +1968,13 @@ means show, 0 means toggle."
               (> arg 0))
           nil)
          ((< arg 0)
-          (gnus-article-show-hidden-text type))
+          (gnus-article-show-hidden-text type)
+          t)
          (t
           (if (eq hide 'hidden)
-              (gnus-article-show-hidden-text type)
+              (progn
+                (gnus-article-show-hidden-text type)
+                t)
             nil)))))))
 
 (defun gnus-article-hidden-text-p (type)
diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el
index 8fa0068b085..4a30d1da0be 100644
--- a/lisp/gnus/gnus-util.el
+++ b/lisp/gnus/gnus-util.el
@@ -994,7 +994,8 @@ Entries without port tokens default to DEFAULTPORT."
       (remove-text-properties start point properties object)
       (setq start (text-property-any point end property value)))
     (if start
-        (remove-text-properties start end properties object))))
+        (remove-text-properties start end properties object))
+    t))
 
 (provide 'gnus-util)
 
diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el
index d9537d64423..a44f6e5756c 100644
--- a/lisp/gnus/mm-decode.el
+++ b/lisp/gnus/mm-decode.el
@@ -310,7 +310,7 @@ to:
                     (match-beginning 0)
                   (point-max)))))
     (setq boundary (concat (regexp-quote boundary) "[ \t]*$"))
-    (while (re-search-forward boundary end t)
+    (while (and (< (point) end) (re-search-forward boundary end t))
       (goto-char (match-beginning 0))
       (when start
         (save-excursion
@@ -319,7 +319,7 @@ to:
             (setq parts (nconc (list (mm-dissect-buffer t)) parts)))))
       (forward-line 2)
       (setq start (point)))
-    (when start
+    (when (and start (< start end))
       (save-excursion
         (save-restriction
           (narrow-to-region start end)