projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[Improve non-ASCII newsgroup names handling]
[gnus]
/
lisp
/
gnus-start.el
diff --git
a/lisp/gnus-start.el
b/lisp/gnus-start.el
index
260c817
..
19926cc
100644
(file)
--- a/
lisp/gnus-start.el
+++ b/
lisp/gnus-start.el
@@
-1967,7
+1967,7
@@
If SCAN, request a scan of that group as well."
(while lists
(setq killed (car lists))
(while killed
(while lists
(setq killed (car lists))
(while killed
- (gnus-sethash (
car killed
) nil hashtb)
+ (gnus-sethash (
mm-string-as-unibyte (car killed)
) nil hashtb)
(setq killed (cdr killed)))
(setq lists (cdr lists)))))
(setq killed (cdr killed)))
(setq lists (cdr lists)))))
@@
-2413,6
+2413,8
@@
If FORCE is non-nil, the .newsrc file is read."
(setq gnus-format-specs gnus-default-format-specs)))
(when gnus-newsrc-assoc
(setq gnus-newsrc-alist gnus-newsrc-assoc))))
(setq gnus-format-specs gnus-default-format-specs)))
(when gnus-newsrc-assoc
(setq gnus-newsrc-alist gnus-newsrc-assoc))))
+ (dolist (elem gnus-newsrc-alist)
+ (setcar elem (mm-string-as-unibyte (car elem))))
(gnus-make-hashtable-from-newsrc-alist)
(when (file-newer-than-file-p file ding-file)
;; Old format quick file
(gnus-make-hashtable-from-newsrc-alist)
(when (file-newer-than-file-p file ding-file)
;; Old format quick file