From: morioka <morioka>
Date: Tue, 10 Feb 1998 06:45:46 +0000 (+0000)
Subject: Merge qgnus-0.23.
X-Git-Tag: gnus-6_7-tomo-199811302358~220
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=73dfc4964fecb40f6ffedbd3671ea9ba1b97b0ea;p=elisp%2Fgnus.git-

Merge qgnus-0.23.
---

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