228 |
|
|
229 |
(defun gnus-status-message (gnus-command-method) |
(defun gnus-status-message (gnus-command-method) |
230 |
"Return the status message from GNUS-COMMAND-METHOD. |
"Return the status message from GNUS-COMMAND-METHOD. |
231 |
If GNUS-COMMAND-METHOD is a string, it is interpreted as a group name. The method |
If GNUS-COMMAND-METHOD is a string, it is interpreted as a group name. The method |
232 |
this group uses will be queried." |
this group uses will be queried." |
233 |
(let ((gnus-command-method |
(let ((gnus-command-method |
234 |
(if (stringp gnus-command-method) |
(if (stringp gnus-command-method) |