[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-int.el

[Kim F . Storm]

Index: emacs/lisp/gnus/gnus-int.el
diff -c emacs/lisp/gnus/gnus-int.el:1.11 emacs/lisp/gnus/gnus-int.el:1.12
*** emacs/lisp/gnus/gnus-int.el:1.11    Tue Oct 19 22:38:27 2004
--- emacs/lisp/gnus/gnus-int.el Wed Feb  9 15:50:38 2005
***************
*** 47,53 ****
  `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"
    :group 'gnus-start
    :type '(choice (const :tag "Ask" nil)
                 (const :tag "Deny server" denied)
--- 47,53 ----
  `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 "22.1"
    :group 'gnus-start
    :type '(choice (const :tag "Ask" nil)
                 (const :tag "Deny server" denied)
***************
*** 573,579 ****
               (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.
--- 573,579 ----
               (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,603 ****
        (message-encode-message-body)))
  (let ((gnus-command-method (or gnus-command-method
                                 (gnus-find-method-for-group group)))
!       (result 
!        (funcall 
          (gnus-get-function gnus-command-method 'request-accept-article)
          (if (stringp group) (gnus-group-real-name group) group)
          (cadr gnus-command-method)
--- 596,603 ----
        (message-encode-message-body)))
  (let ((gnus-command-method (or gnus-command-method
                                 (gnus-find-method-for-group group)))
!       (result
!        (funcall
          (gnus-get-function gnus-command-method 'request-accept-article)
          (if (stringp group) (gnus-group-real-name group) group)
          (cadr gnus-command-method)