Remove XEmacs compat code from gravatar.el

* lisp/image/gravatar.el (gravatar-retrieve): Remove XEmacs compat code

1 files changed, 2 insertions, 4 deletions

diff --git a/lisp/image/gravatar.el b/lisp/image/gravatar.el
index cf61119ab2e..91da840e3a4 100644
--- a/lisp/image/gravatar.el
+++ b/lisp/image/gravatar.el
@@ -107,10 +107,8 @@ You can provide a list of argument to pass to CB in CBARGS."
         (let ((args (list url
                           'gravatar-retrieved
                           (list cb (when cbargs cbargs)))))
-          (when (> (length (if (featurep 'xemacs)
-                               (cdr (split-string (function-arglist 'url-retrieve)))
-                             (help-function-arglist 'url-retrieve)))
-                   4)
+          (when (> (length (help-function-arglist 'url-retrieve))
+                   4)
             (setq args (nconc args (list t))))
           (apply #'url-retrieve args))
       (apply cb