From dacb905a073798560b3c17a99b9cf9bbc4e1f954 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 3 Mar 2008 03:49:06 +0000 Subject: [PATCH] (gnus-update-group-mark-positions): Use mm-string-to-multibyte. --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/gnus-group.el | 6 +++--- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 93bf2c1e1e5..a6070ffc1c7 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2008-03-03 Stefan Monnier + + * gnus-group.el (gnus-update-group-mark-positions): + Use mm-string-to-multibyte. + 2008-02-29 Andreas Seltenreich * 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 ae12315172d..466a846c675 100644 --- 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 -- 2.39.2