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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 93bf2c1e1e565efd070654da6c9cac88dde5898b..a6070ffc1c788ab8646079d02a7944f9caea17f9 100644 (file)
--- 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 ae12315172db246c53c476e5aca555161da50d8b..466a846c675f2357f813bd0070ce46dfd7460d7b 100644 (file)
--- 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