From a427f84dd2a485ca7aa6ba674bd7e83693d7331f Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 10 Feb 2012 00:30:27 +0100 Subject: [PATCH] lisp/gnus/gnus.el: Avoid byte-compiler warning. (gnus-method-ephemeral-p): Move after declaration of defsubst `gnus-sloppily-equal-method-parameters' to avoid a warning. --- lisp/gnus/ChangeLog | 7 ++++++- lisp/gnus/gnus.el | 14 +++++++------- 2 files changed, 13 insertions(+), 8 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index ce40019487a..9305114b634 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2012-02-09 Juanma Barranquero + + * 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 * gnus-msg.el (gnus-msg-mail): Use `message-mail' if Gnus isn't @@ -1489,7 +1494,7 @@ 2011-06-21 Andrew Cohen - * nnimap.el (nnimap-find-article-by-message-id): return nil when no + * nnimap.el (nnimap-find-article-by-message-id): Return nil when no article found. 2011-06-18 Teodor Zlatanov diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el index 76003f4eec2..cc4f2eb1e7a 100644 --- a/lisp/gnus/gnus.el +++ b/lisp/gnus/gnus.el @@ -3581,13 +3581,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))) @@ -3616,6 +3609,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 -- 2.39.2