1452 |
(eval gnus-group-line-format-spec))) |
(eval gnus-group-line-format-spec))) |
1453 |
`(gnus-group ,(gnus-intern-safe gnus-tmp-group gnus-active-hashtb) |
`(gnus-group ,(gnus-intern-safe gnus-tmp-group gnus-active-hashtb) |
1454 |
gnus-unread ,(if (numberp number) |
gnus-unread ,(if (numberp number) |
1455 |
(string-to-int gnus-tmp-number-of-unread) |
(string-to-number gnus-tmp-number-of-unread) |
1456 |
t) |
t) |
1457 |
gnus-marked ,gnus-tmp-marked-mark |
gnus-marked ,gnus-tmp-marked-mark |
1458 |
gnus-indentation ,gnus-group-indentation |
gnus-indentation ,gnus-group-indentation |
3246 |
(progn |
(progn |
3247 |
(unless (gnus-group-process-prefix current-prefix-arg) |
(unless (gnus-group-process-prefix current-prefix-arg) |
3248 |
(error "No group on the current line")) |
(error "No group on the current line")) |
3249 |
(string-to-int |
(string-to-number |
3250 |
(let ((s (read-string |
(let ((s (read-string |
3251 |
(format "Level (default %s): " |
(format "Level (default %s): " |
3252 |
(or (gnus-group-group-level) |
(or (gnus-group-group-level) |