X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fgnus-start.el;h=19926cca8e6924ce429d3d8fc24a8f94a414de07;hb=a9a9b06ed0b9c8a32feead9191ea729d411a3a49;hp=260c817a7c8c73b4f2bb3f9ed7787ee5f711f866;hpb=1946c4f9f108ec6ca2600faf55f72f0b37e93099;p=gnus

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index 260c817a7..19926cca8 100644
--- 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
-	(gnus-sethash (car killed) nil hashtb)
+	(gnus-sethash (mm-string-as-unibyte (car killed)) nil hashtb)
 	(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))))
+    (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