Commit 4481aa98 authored by ShengHuo ZHU's avatar ShengHuo ZHU
Browse files

* 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.
parent 856ff7a7
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 \.
......
......@@ -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)
......
......@@ -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)
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment