Use the last charset.

Fix bug in get new mail in this group.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b8b0b31..9d50c19 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+1999-12-09 10:20:07  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-group.el (gnus-group-get-new-news-this-group): Binding
+       nnmail-fetched-sources.
+
+1999-12-09 10:19:01  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+       * mm-util.el (mm-find-charset-region): Use the last charset.
+
 1999-12-08  Per Abrahamsen  <abraham@dina.kvl.dk>
 
        * gnus.el (gnus-select-method): Made the option list prettier.

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index be1b1a0..fa89ba1 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -3047,7 +3047,12 @@ If N is negative, this group and the N-1 previous groups will be checked."
         (ret (if (numberp n) (- n (length groups)) 0))
         (beg (unless n
                (point)))
-        group method)
+        group method
+        (gnus-inhibit-demon t)
+        ;; Binding this variable will inhibit multiple fetchings
+        ;; of the same mail source.
+        (nnmail-fetched-sources (list t)))
+    (gnus-run-hooks 'gnus-get-new-news-hook)
     (while (setq group (pop groups))
       (gnus-group-remove-mark group)
       ;; Bypass any previous denials from the server.

diff --git a/lisp/mm-util.el b/lisp/mm-util.el
index 785c4b6..7b10816 100644 (file)
--- a/lisp/mm-util.el
+++ b/lisp/mm-util.el
@@ -315,7 +315,7 @@ See also `with-temp-file' and `with-output-to-string'."
          (skip-chars-forward "\0-\177")
          (if (eobp)
              '(ascii)
-           (delq nil (list 'ascii (cadr (assq 'charset entry)))))))))))
+           (delq nil (list 'ascii (car (last (assq 'charset entry))))))))))))
 
 (defun mm-read-charset (prompt)
   "Return a charset."