From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 14 Apr 2018 22:40:23 +0000 (+0200)
Subject: Fix calculation in gnus-update-group-mark-positions
X-Git-Tag: emacs-27.0.90~5197
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=466693416d143f42c606c6aeb0c48a777fc1d637;p=emacs.git

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 e6081a41a5b..b4f482b60a8 100644
--- 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)