gnus.el (gnus-method-ephemeral-p): Move after declaration of defsubst `gnus-sloppily...

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 73547b9..c9c3eea 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-02-09  Juanma Barranquero  <lekktu@gmail.com>
+
+       * gnus.el (gnus-method-ephemeral-p): Move after declaration of defsubst
+       `gnus-sloppily-equal-method-parameters' to avoid a warning.
+
 2012-02-09  Lars Ingebrigtsen  <larsi@gnus.org>
 
        * mm-archive.el (mm-archive-dissect-and-inline): New function.

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 8dc7e7a..9d38ab8 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -3582,13 +3582,6 @@ that that variable is buffer-local to the summary buffers."
                                            gnus-valid-select-methods)))
                 (equal (nth 1 m1) (nth 1 m2)))))))
 
-(defun gnus-method-ephemeral-p (method)
-  (let ((equal nil))
-    (dolist (ephemeral gnus-ephemeral-servers)
-      (when (gnus-sloppily-equal-method-parameters method ephemeral)
-       (setq equal t)))
-    equal))
-
 (defsubst gnus-sloppily-equal-method-parameters (m1 m2)
   ;; Check parameters for sloppy equality.
   (let ((p1 (copy-sequence (cddr m1)))
@@ -3617,6 +3610,13 @@ that that variable is buffer-local to the summary buffers."
       ;; If p2 now is empty, they were equal.
       (null p2))))
 
+(defun gnus-method-ephemeral-p (method)
+  (let ((equal nil))
+    (dolist (ephemeral gnus-ephemeral-servers)
+      (when (gnus-sloppily-equal-method-parameters method ephemeral)
+       (setq equal t)))
+    equal))
+
 (defun gnus-methods-sloppily-equal (m1 m2)
   ;; Same method.
   (or