changeset 92428:0e803f4d8cd5

(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 31b671bf1dfc
children a72078644a4d
files lisp/gnus/ChangeLog lisp/gnus/gnus-group.el
diffstat 2 files changed, 8 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog	Mon Mar 03 03:40:04 2008 +0000
+++ b/lisp/gnus/ChangeLog	Mon Mar 03 03:49:06 2008 +0000
@@ -1,3 +1,8 @@
+2008-03-03  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* gnus-group.el (gnus-update-group-mark-positions):
+	Use mm-string-to-multibyte.
+
 2008-02-29  Andreas Seltenreich  <andreas@gate450.dyndns.org>
 
 	* nnweb.el (nnweb-google-parse-1): Fix date parsing on articles with
--- 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