(gnus-update-group-mark-positions): Use mm-string-to-multibyte.

2 files changed, 8 insertions, 3 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 93bf2c1e1e5..a6070ffc1c7 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -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 --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el
index ae12315172d..466a846c675 100644
--- a/lisp/gnus/gnus-group.el
+++ b/lisp/gnus/gnus-group.el
@@ -1188,8 +1188,8 @@ The following commands are available:
       (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 @@ Compacting group %s... (this may take a long time)"
 
 (provide 'gnus-group)
 
-;;; arch-tag: 2eb5440f-0bca-4091-814c-e37817536af6
+;; arch-tag: 2eb5440f-0bca-4091-814c-e37817536af6
 ;;; gnus-group.el ends here