[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-group.el

[Miles Bader]

Index: emacs/lisp/gnus/gnus-group.el
diff -c emacs/lisp/gnus/gnus-group.el:1.39 emacs/lisp/gnus/gnus-group.el:1.40
*** emacs/lisp/gnus/gnus-group.el:1.39  Mon May 30 08:20:19 2005
--- emacs/lisp/gnus/gnus-group.el       Mon May 30 17:13:58 2005
***************
*** 1452,1458 ****
         (eval gnus-group-line-format-spec)))
       `(gnus-group ,(gnus-intern-safe gnus-tmp-group gnus-active-hashtb)
                  gnus-unread ,(if (numberp number)
!                                  (string-to-int gnus-tmp-number-of-unread)
                                 t)
                  gnus-marked ,gnus-tmp-marked-mark
                  gnus-indentation ,gnus-group-indentation
--- 1452,1458 ----
         (eval gnus-group-line-format-spec)))
       `(gnus-group ,(gnus-intern-safe gnus-tmp-group gnus-active-hashtb)
                  gnus-unread ,(if (numberp number)
!                                  (string-to-number gnus-tmp-number-of-unread)
                                 t)
                  gnus-marked ,gnus-tmp-marked-mark
                  gnus-indentation ,gnus-group-indentation
***************
*** 3246,3252 ****
      (progn
        (unless (gnus-group-process-prefix current-prefix-arg)
        (error "No group on the current line"))
!       (string-to-int
         (let ((s (read-string
                 (format "Level (default %s): "
                         (or (gnus-group-group-level)
--- 3246,3252 ----
      (progn
        (unless (gnus-group-process-prefix current-prefix-arg)
        (error "No group on the current line"))
!       (string-to-number
         (let ((s (read-string
                 (format "Level (default %s): "
                         (or (gnus-group-group-level)