From 73dfc4964fecb40f6ffedbd3671ea9ba1b97b0ea Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 10 Feb 1998 06:45:46 +0000 Subject: [PATCH] Merge qgnus-0.23. --- lisp/gnus-art.el | 18 +++++++++++++++++- 1 file changed, 17 insertions(+), 1 deletion(-) diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index ea875cc..365ce39 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -1052,6 +1052,17 @@ always hide." (article-remove-trailing-blank-lines) (article-strip-multiple-blank-lines)) +(defun article-strip-all-blank-lines () + "Strip all blank lines." + (interactive) + (save-excursion + (let ((inhibit-point-motion-hooks t) + buffer-read-only) + (goto-char (point-min)) + (search-forward "\n\n" nil t) + (while (re-search-forward "^[ \t]*\n" nil t) + (replace-match "" t t))))) + (defvar mime::preview/content-list) (defvar mime::preview-content-info/point-min) (defun gnus-article-narrow-to-signature () @@ -1745,6 +1756,7 @@ If variable `gnus-use-long-file-name' is non-nil, it is article-strip-multiple-blank-lines article-strip-leading-space article-strip-blank-lines + article-strip-all-blank-lines article-date-local article-date-original article-date-ut @@ -2063,7 +2075,9 @@ If ALL-HEADERS is non-nil, no headers are hidden." (when gnus-show-mime (if (or (not gnus-strict-mime) (gnus-fetch-field "Mime-Version")) - (funcall gnus-show-mime-method) + (let ((coding-system-for-write 'binary) + (coding-system-for-read 'binary)) + (funcall gnus-show-mime-method)) (funcall gnus-decode-encoded-word-method))) ;; Perform the article display hooks. (run-hooks 'gnus-article-display-hook)) @@ -2427,6 +2441,8 @@ If given a prefix, show the hidden text instead." ;; Check asynchronous pre-fetch. ((gnus-async-request-fetched-article group article (current-buffer)) (gnus-async-prefetch-next group article gnus-summary-buffer) + (when (and (numberp article) gnus-keep-backlog) + (gnus-backlog-enter-article group article (current-buffer))) 'article) ;; Check the cache. ((and gnus-use-cache -- 1.7.10.4