From 4481aa9880e18109f080dca5591962f13e03fe99 Mon Sep 17 00:00:00 2001
From: ShengHuo ZHU <zsh@cs.rochester.edu>
Date: Fri, 22 Dec 2000 14:19:33 +0000
Subject: [PATCH] * 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    | 9 +++++++++
 lisp/gnus/gnus-art.el  | 7 +++++--
 lisp/gnus/gnus-util.el | 3 ++-
 lisp/gnus/mm-decode.el | 4 ++--
 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)
-- 
2.39.2