(gnus-group-mark-group): Fix for multibyte marks.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3088d24..c7b248c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2004-01-08  Jesper Harder  <harder@ifa.au.dk>
 
+       * gnus-group.el (gnus-group-mark-group): Fix for multibyte marks.
+
        * gnus-sum.el (gnus-summary-update-mark): Fix for multibyte marks.
 
        * gnus-util.el (gnus-replace-in-string): Remove Emacs 20 code.

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 94d308d..bf037c1 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -1689,15 +1689,14 @@ If FIRST-TOO, the current line is also eligible as a target."
        ;; Go to the mark position.
        (beginning-of-line)
        (forward-char (or (cdr (assq 'process gnus-group-mark-positions)) 2))
-       (subst-char-in-region
-        (point) (1+ (point)) (char-after)
-        (if unmark
-            (progn
-              (setq gnus-group-marked (delete group gnus-group-marked))
-              ? )
+       (delete-char 1)
+       (if unmark
+           (progn
+             (setq gnus-group-marked (delete group gnus-group-marked))
+             (insert-char ? 1 t))
           (setq gnus-group-marked
                 (cons group (delete group gnus-group-marked)))
-          gnus-process-mark)))
+          (insert-char gnus-process-mark 1 t)))
       (unless no-advance
        (gnus-group-next-group 1))
       (decf n))