# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1204516146 0
# Node ID 0e803f4d8cd599c6ea7916f6f5987edd07275c02
# Parent  31b671bf1dfc8fa00b6b5f65f278dbc978ec087e
(gnus-update-group-mark-positions): Use mm-string-to-multibyte.

diff -r 31b671bf1dfc -r 0e803f4d8cd5 lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Mon Mar 03 03:40:04 2008 +0000
+++ b/lisp/gnus/ChangeLog	Mon Mar 03 03:49:06 2008 +0000
@@ -1,3 +1,8 @@
+2008-03-03  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* gnus-group.el (gnus-update-group-mark-positions):
+	Use mm-string-to-multibyte.
+
 2008-02-29  Andreas Seltenreich  <andreas@gate450.dyndns.org>
 
 	* nnweb.el (nnweb-google-parse-1): Fix date parsing on articles with
diff -r 31b671bf1dfc -r 0e803f4d8cd5 lisp/gnus/gnus-group.el
--- a/lisp/gnus/gnus-group.el	Mon Mar 03 03:40:04 2008 +0000
+++ b/lisp/gnus/gnus-group.el	Mon Mar 03 03:49:06 2008 +0000
@@ -1188,8 +1188,8 @@
       (goto-char (point-min))
       (setq gnus-group-mark-positions
 	    (list (cons 'process (and (search-forward
-				       (mm-string-as-multibyte "\200") nil t)
-				      (- (point) 2))))))))
+				       (mm-string-to-multibyte "\200") nil t)
+				      (- (point) (point-min) 1))))))))
 
 (defun gnus-mouse-pick-group (e)
   "Enter the group under the mouse pointer."
@@ -4744,5 +4744,5 @@
 
 (provide 'gnus-group)
 
-;;; arch-tag: 2eb5440f-0bca-4091-814c-e37817536af6
+;; arch-tag: 2eb5440f-0bca-4091-814c-e37817536af6
 ;;; gnus-group.el ends here