* 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.

lisp/gnus/ChangeLog

+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 \.

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)

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)
 

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)