diff options
| author | Miles Bader <miles@gnu.org> | 2007-11-19 05:50:39 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2007-11-19 05:50:39 +0000 |
| commit | 1428d46be965cc483bf9cd55185c86cfc67d4b8d (patch) | |
| tree | 8b93f344df5e95de9688e6f60d315fe17eae7bfc /lisp/gnus/gnus-start.el | |
| parent | 282e1e37cb1100b5549fe987ef1882e9be670375 (diff) | |
| download | emacs-1428d46be965cc483bf9cd55185c86cfc67d4b8d.tar.gz emacs-1428d46be965cc483bf9cd55185c86cfc67d4b8d.tar.bz2 emacs-1428d46be965cc483bf9cd55185c86cfc67d4b8d.zip | |
Merge from gnus--devo--0
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-933
Diffstat (limited to 'lisp/gnus/gnus-start.el')
| -rw-r--r-- | lisp/gnus/gnus-start.el | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el index e58187548b6..98994d5aaf7 100644 --- a/lisp/gnus/gnus-start.el +++ b/lisp/gnus/gnus-start.el @@ -2103,7 +2103,8 @@ If SCAN, request a scan of that group as well." (if (equal method gnus-select-method) (gnus-make-hashtable (count-lines (point-min) (point-max))) - (gnus-make-hashtable 4096))))))) + (gnus-make-hashtable 4096)))))) + group max min) ;; Delete unnecessary lines. (goto-char (point-min)) (cond @@ -2138,8 +2139,12 @@ If SCAN, request a scan of that group as well." (insert prefix) (zerop (forward-line 1))))))) ;; Store the active file in a hash table. - (goto-char (point-min)) - (let (group max min) + ;; Use a unibyte buffer in order to make `read' read non-ASCII + ;; group names (which have been encoded) as unibyte strings. + (mm-with-unibyte-buffer + (insert-buffer-substring cur) + (setq cur (current-buffer)) + (goto-char (point-min)) (while (not (eobp)) (condition-case () (progn |