(gnus-summary-update-mark): Fix for multibyte marks.

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

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 67bb639..ae8d0bc 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -9956,7 +9956,8 @@ If NO-EXPIRE, auto-expiry will be inhibited."
        ;; Go to the right position on the line.
        (goto-char (+ forward (point)))
        ;; Replace the old mark with the new mark.
-       (subst-char-in-region (point) (1+ (point)) (char-after) mark)
+       (delete-char 1)
+       (insert-char mark 1 t)
        ;; Optionally update the marks by some user rule.
        (when (eq type 'unread)
          (gnus-data-set-mark