diff options
| author | Kim F. Storm <storm@cua.dk> | 2005-02-09 15:50:47 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2005-02-09 15:50:47 +0000 |
| commit | bf247b6ed0b5e96845e785302bdaa97fcf6a8b84 (patch) | |
| tree | 3e5225520dfe10e9394f68088de2fe22027aa53f /lisp/gnus/gnus-int.el | |
| parent | 1de0ae85b33c8d8cb77ab839f66d2df4f9aa7b94 (diff) | |
| download | emacs-bf247b6ed0b5e96845e785302bdaa97fcf6a8b84.tar.gz | |
Change release version from 21.4 to 22.1 throughout.
Change development version from 21.3.50 to 22.0.50.
Diffstat (limited to 'lisp/gnus/gnus-int.el')
| -rw-r--r-- | lisp/gnus/gnus-int.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/gnus/gnus-int.el b/lisp/gnus/gnus-int.el index 7382fa7a090..32ea9919e86 100644 --- a/lisp/gnus/gnus-int.el +++ b/lisp/gnus/gnus-int.el @@ -47,7 +47,7 @@ If the server is covered by Gnus agent, the possible values are `denied', set the server denied; `offline', set the server offline; nil, ask user. If the server is not covered by Gnus agent, set the server denied." - :version "21.4" + :version "22.1" :group 'gnus-start :type '(choice (const :tag "Ask" nil) (const :tag "Deny server" denied) @@ -573,7 +573,7 @@ If GROUP is nil, all groups on GNUS-COMMAND-METHOD are scanned." (gnus-agent-method-p gnus-command-method)) (gnus-agent-unfetch-articles group (list article))) result)) - + (defun gnus-request-accept-article (group &optional gnus-command-method last no-encode) ;; Make sure there's a newline at the end of the article. @@ -596,8 +596,8 @@ If GROUP is nil, all groups on GNUS-COMMAND-METHOD are scanned." (message-encode-message-body))) (let ((gnus-command-method (or gnus-command-method (gnus-find-method-for-group group))) - (result - (funcall + (result + (funcall (gnus-get-function gnus-command-method 'request-accept-article) (if (stringp group) (gnus-group-real-name group) group) (cadr gnus-command-method) |