Mercurial > emacs

diff lisp/gnus/gnus-group.el @ 92428:0e803f4d8cd5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gnus-update-group-mark-positions): Use mm-string-to-multibyte.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 03 Mar 2008 03:49:06 +0000
parents 5f827896103e
children d3767aa9ae49
line wrap: on
line diff
--- a/lisp/gnus/gnus-group.el	Mon Mar 03 03:40:04 2008 +0000
+++ b/lisp/gnus/gnus-group.el	Mon Mar 03 03:49:06 2008 +0000
@@ -1188,8 +1188,8 @@
       (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 @@
 
 (provide 'gnus-group)
 
-;;; arch-tag: 2eb5440f-0bca-4091-814c-e37817536af6
+;; arch-tag: 2eb5440f-0bca-4091-814c-e37817536af6
 ;;; gnus-group.el ends here