[gnus git] branch no-gnus updated: m0-1-45-g3146c23 =1= gnus.el (gnus-method-ephemeral-p): Move after declaration of defsubst `gnus-sloppily-equal-method-parameters' to avoid a warning.

       via  3146c23685af7e6b4a95135fcd940a27ce13dc38 (commit)
      from  467fc0443669cc54892b01c48cf9807ca4ea1c17 (commit)


- Log -----------------------------------------------------------------
commit 3146c23685af7e6b4a95135fcd940a27ce13dc38
Author: Juanma Barranquero <[email protected]>
Date:   Fri Feb 10 03:46:05 2012 +0000

    gnus.el (gnus-method-ephemeral-p): Move after declaration of defsubst `gnus-sloppily-equal-method-parameters' to avoid a warning.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6bc4693..d5b8be0 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-02-09  Juanma Barranquero  <[email protected]>
+
+	* 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  <[email protected]>
 
 	* gnus-msg.el (gnus-msg-mail): Use `message-mail' if Gnus isn't
diff --git a/lisp/gnus.el b/lisp/gnus.el
index 8afb53b..f2b2982 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -3580,13 +3580,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)))
@@ -3615,6 +3608,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

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog |    5 +++++
 lisp/gnus.el   |   14 +++++++-------
 2 files changed, 12 insertions(+), 7 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, no-gnus has been updated


hooks/post-receive
-- 
Gnus Project