Commit 6f1c4158 authored by Katsumi Yamaoka's avatar Katsumi Yamaoka
Browse files

Encode names of nnml groups that nnmail-get-new-mail creates in active file.

2010-07-30  Katsumi Yamaoka  <yamaoka@jpl.org>
 * nnmail.el (nnmail-get-new-mail-1): Encode group names possibly
 containing non-ASCII characters in active file for nnml back end.
parent 59df9fdd
2010-07-30 Katsumi Yamaoka <yamaoka@jpl.org>
* nnmail.el (nnmail-get-new-mail-1): Encode group names possibly
containing non-ASCII characters in active file for nnml back end.
2010-07-24 David Engster <dengste@eml.cc> 2010-07-24 David Engster <dengste@eml.cc>
* mml-smime.el (mml-smime-epg-verify): Also accept the older * mml-smime.el (mml-smime-epg-verify): Also accept the older
......
...@@ -1844,9 +1844,20 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details." ...@@ -1844,9 +1844,20 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
(if (zerop total) (if (zerop total)
(nnheader-message 4 "%s: Reading incoming mail (no new mail)...done" (nnheader-message 4 "%s: Reading incoming mail (no new mail)...done"
method (car source)) method (car source))
(nnmail-save-active (let ((group-alist (nnmail-get-value "%s-group-alist" method))
(nnmail-get-value "%s-group-alist" method) (active-file (nnmail-get-value "%s-active-file" method))
(nnmail-get-value "%s-active-file" method)) encoded)
;; Encode group names possibly containing non-ASCII characters.
(cond ((eq method 'nnml)
(nnmail-save-active
(dolist (elem group-alist (nreverse encoded))
(push (cons (nnml-encoded-group-name (car elem)
gnus-command-method)
(cdr elem))
encoded))
active-file))
(t
(nnmail-save-active group-alist active-file))))
(when exit-func (when exit-func
(funcall exit-func)) (funcall exit-func))
(run-hooks 'nnmail-read-incoming-hook) (run-hooks 'nnmail-read-incoming-hook)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment