Fix calculation in gnus-update-group-mark-positions

* lisp/gnus/gnus-group.el (gnus-update-group-mark-positions):
Rewrite a call to string-to-multibyte that didn't even work.
After the rewrite it gives the correct result and should allow
people to customise Gnus group process mark positions (but that's
a pretty obscure feature).

diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el
index e6081a41a5b35bebb0dc2529387957256f53a423..b4f482b60a8de7e2cbd5ec1519bdd6d4ae808abb 100644 (file)
--- a/lisp/gnus/gnus-group.el
+++ b/lisp/gnus/gnus-group.el
@@ -1153,7 +1153,7 @@ The following commands are available:
       (goto-char (point-min))
       (setq gnus-group-mark-positions
            (list (cons 'process (and (search-forward
-                                      (string-to-multibyte "\200") nil t)
+                                      (string gnus-process-mark) nil t)
                                      (- (point) (point-min) 1))))))))
 
 (defun gnus-mouse-pick-group (e)