Mercurial > emacs
changeset 34833:aaf69bc74739
* 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.
| author | ShengHuo ZHU <zsh@cs.rochester.edu> |
|---|---|
| date | Fri, 22 Dec 2000 14:19:33 +0000 |
| parents | 02fc33c28963 |
| children | 792f41f27d41 |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus-art.el lisp/gnus/gnus-util.el lisp/gnus/mm-decode.el |
| diffstat | 4 files changed, 18 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Fri Dec 22 13:49:57 2000 +0000 +++ b/lisp/gnus/ChangeLog Fri Dec 22 14:19:33 2000 +0000 @@ -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 \.
--- a/lisp/gnus/gnus-art.el Fri Dec 22 13:49:57 2000 +0000 +++ b/lisp/gnus/gnus-art.el Fri Dec 22 14:19:33 2000 +0000 @@ -1968,10 +1968,13 @@ (> 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)
--- a/lisp/gnus/gnus-util.el Fri Dec 22 13:49:57 2000 +0000 +++ b/lisp/gnus/gnus-util.el Fri Dec 22 14:19:33 2000 +0000 @@ -994,7 +994,8 @@ (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)
--- a/lisp/gnus/mm-decode.el Fri Dec 22 13:49:57 2000 +0000 +++ b/lisp/gnus/mm-decode.el Fri Dec 22 14:19:33 2000 +0000 @@ -310,7 +310,7 @@ (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 @@ (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)