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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index ba5f53662c382023de0419693a9ead2ad2acb3af..f6f9229794bfb14ce172fe789c80ca7e91cf59f7 100644 (file)
--- 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 2666bcffb58dd9bdc8dd0346077c00ec032a691e..52c6b3bd63e4ba66bff316cf9ac724a8381c3e7a 100644 (file)
--- 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 8fa0068b08520597c37806009993ea1a20d90c72..4a30d1da0be23d4a6e95de5241e8d65cb06faf4e 100644 (file)
--- 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 d9537d644231336ae24d8ff79c2006ca733918a5..a44f6e5756c85e07ca995e9a9e794af625c68bbd 100644 (file)
--- 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)