* gnus-sum.el (gnus-articles-to-read): Fetch all if the predicate

	is non-nil.

	* mm-util.el (mm-use-find-coding-systems-region): Add doc.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 907ab94..d57d069 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,4 +1,9 @@
 2002-02-06  ShengHuo ZHU  <zsh@cs.rochester.edu>
+       
+       * gnus-sum.el (gnus-articles-to-read): Fetch all if the predicate
+       is non-nil.
+
+       * mm-util.el (mm-use-find-coding-systems-region): Add doc.
 
        * gnus.el (gnus-server-to-method): Switch position with
        gnus-server-get-method.
@@ -6,6 +11,7 @@
 
        * gnus-sum.el (gnus-article-no-strict-mime): New variable.
        (gnus-summary-save-parts): Use it.
+
        * gnus-art.el (gnus-display-mime): Use it.
        * mm-partial.el (mm-partial-find-parts): Use it.
 

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 509e714..7949336 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -4870,7 +4870,8 @@ If SELECT-ARTICLES, only select those articles from GROUP."
          (if (or read-all
                  (and (zerop (length gnus-newsgroup-marked))
                       (zerop (length gnus-newsgroup-unreads)))
-                 (eq gnus-newsgroup-display 'gnus-not-ignore))
+                 ;; Fetch all if the predicate is non-nil.
+                 gnus-newsgroup-display)
              ;; We want to select the headers for all the articles in
              ;; the group, so we select either all the active
              ;; articles in the group, or (if that's nil), the
@@ -4891,6 +4892,8 @@ If SELECT-ARTICLES, only select those articles from GROUP."
          (cond
           ((numberp read-all)
            read-all)
+          ((numberp gnus-newsgroup-display)
+           gnus-newsgroup-display)
           (t
            (condition-case ()
                (cond

diff --git a/lisp/mm-util.el b/lisp/mm-util.el
index e64e325..cf512a7 100644 (file)
--- a/lisp/mm-util.el
+++ b/lisp/mm-util.el
@@ -283,7 +283,10 @@ prefer iso-2022-jp to japanese-shift-jis:
 
 (defvar mm-use-find-coding-systems-region
   (fboundp 'find-coding-systems-region)
-  "Use `find-coding-systems-region' to find proper coding systems.")
+  "Use `find-coding-systems-region' to find proper coding systems.
+
+Setting it to nil is useful on Emacsen supporting Unicode if sending
+mail with multiple parts is preferred to sending a Unicode one.")
 
 ;;; Internal variables: