* gnus-int.el (gnus-request-accept-article): Use gnus-get-function.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 73d34a8..2acbaf6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2002-02-01  Simon Josefsson  <jas@extundo.com>
+
+       * gnus-int.el (gnus-request-accept-article): Use gnus-get-function.
+
 2002-02-01  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * mm-view.el (mm-w3m-mode-dont-bind-keys): New variable.

diff --git a/lisp/gnus-int.el b/lisp/gnus-int.el
index 91c687a..cc60057 100644 (file)
--- a/lisp/gnus-int.el
+++ b/lisp/gnus-int.el
@@ -514,9 +514,9 @@ If GROUP is nil, all groups on GNUS-COMMAND-METHOD are scanned."
        (let ((mail-parse-charset message-default-charset))
          (mail-encode-encoded-word-buffer)))
       (message-encode-message-body)))
-  (let ((func (car (or gnus-command-method
-                      (gnus-find-method-for-group group)))))
-    (funcall (intern (format "%s-request-accept-article" func))
+  (let ((gnus-command-method (or gnus-command-method
+                                (gnus-find-method-for-group group))))
+    (funcall (gnus-get-function gnus-command-method 'request-accept-article)
             (if (stringp group) (gnus-group-real-name group) group)
             (cadr gnus-command-method)
             last)))