7254 |
(if (and group |
(if (and group |
7255 |
(not (gnus-ephemeral-group-p gnus-newsgroup-name))) |
(not (gnus-ephemeral-group-p gnus-newsgroup-name))) |
7256 |
(format " (Type %s for %s [%s])" |
(format " (Type %s for %s [%s])" |
7257 |
(single-key-description cmd) group |
(single-key-description cmd) |
7258 |
|
(gnus-group-decoded-name group) |
7259 |
(car (gnus-gethash group gnus-newsrc-hashtb))) |
(car (gnus-gethash group gnus-newsrc-hashtb))) |
7260 |
(format " (Type %s to exit %s)" |
(format " (Type %s to exit %s)" |
7261 |
(single-key-description cmd) |
(single-key-description cmd) |
7262 |
gnus-newsgroup-name)))) |
(gnus-group-decoded-name gnus-newsgroup-name))))) |
7263 |
;; Confirm auto selection. |
;; Confirm auto selection. |
7264 |
(setq key (car (setq keve (gnus-read-event-char prompt))) |
(setq key (car (setq keve (gnus-read-event-char prompt))) |
7265 |
ended t) |
ended t) |