Fix bug in get new mail in this group.
+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.
1999-12-08 Per Abrahamsen <abraham@dina.kvl.dk>
* gnus.el (gnus-select-method): Made the option list prettier.
(ret (if (numberp n) (- n (length groups)) 0))
(beg (unless n
(point)))
(ret (if (numberp n) (- n (length groups)) 0))
(beg (unless n
(point)))
+ 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.
(while (setq group (pop groups))
(gnus-group-remove-mark group)
;; Bypass any previous denials from the server.
(skip-chars-forward "\0-\177")
(if (eobp)
'(ascii)
(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."
(defun mm-read-charset (prompt)
"Return a charset."