/[emacs]/emacs/lisp/gnus/gnus-int.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-int.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.11 by miles, Tue Oct 19 22:38:27 2004 UTC revision 1.12 by kfstorm, Wed Feb 9 15:50:38 2005 UTC
# Line 47  If the server is covered by Gnus agent, Line 47  If the server is covered by Gnus agent,
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)
# Line 573  If GROUP is nil, all groups on GNUS-COMM Line 573  If GROUP is nil, all groups on GNUS-COMM
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.
# Line 596  If GROUP is nil, all groups on GNUS-COMM Line 596  If GROUP is nil, all groups on GNUS-COMM
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)

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26