47 |
`denied', set the server denied; `offline', set the server offline; |
`denied', set the server denied; `offline', set the server offline; |
48 |
nil, ask user. If the server is not covered by Gnus agent, set the |
nil, ask user. If the server is not covered by Gnus agent, set the |
49 |
server denied." |
server denied." |
50 |
:version "21.4" |
:version "22.1" |
51 |
:group 'gnus-start |
:group 'gnus-start |
52 |
:type '(choice (const :tag "Ask" nil) |
:type '(choice (const :tag "Ask" nil) |
53 |
(const :tag "Deny server" denied) |
(const :tag "Deny server" denied) |
573 |
(gnus-agent-method-p gnus-command-method)) |
(gnus-agent-method-p gnus-command-method)) |
574 |
(gnus-agent-unfetch-articles group (list article))) |
(gnus-agent-unfetch-articles group (list article))) |
575 |
result)) |
result)) |
576 |
|
|
577 |
(defun gnus-request-accept-article (group &optional gnus-command-method last |
(defun gnus-request-accept-article (group &optional gnus-command-method last |
578 |
no-encode) |
no-encode) |
579 |
;; Make sure there's a newline at the end of the article. |
;; Make sure there's a newline at the end of the article. |
596 |
(message-encode-message-body))) |
(message-encode-message-body))) |
597 |
(let ((gnus-command-method (or gnus-command-method |
(let ((gnus-command-method (or gnus-command-method |
598 |
(gnus-find-method-for-group group))) |
(gnus-find-method-for-group group))) |
599 |
(result |
(result |
600 |
(funcall |
(funcall |
601 |
(gnus-get-function gnus-command-method 'request-accept-article) |
(gnus-get-function gnus-command-method 'request-accept-article) |
602 |
(if (stringp group) (gnus-group-real-name group) group) |
(if (stringp group) (gnus-group-real-name group) group) |
603 |
(cadr gnus-command-method) |
(cadr gnus-command-method) |