[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r107217: lisp/gnus/gnus.el: Avoid byt
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r107217: lisp/gnus/gnus.el: Avoid byte-compiler warning. |
Date: |
Fri, 10 Feb 2012 00:30:27 +0100 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
revno: 107217
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Fri 2012-02-10 00:30:27 +0100
message:
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.
modified:
lisp/gnus/ChangeLog
lisp/gnus/gnus.el
=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog 2012-02-09 23:07:49 +0000
+++ b/lisp/gnus/ChangeLog 2012-02-09 23:30:27 +0000
@@ -1,3 +1,8 @@
+2012-02-09 Juanma Barranquero <address@hidden>
+
+ * 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 <address@hidden>
* gnus-msg.el (gnus-msg-mail): Use `message-mail' if Gnus isn't
@@ -1489,7 +1494,7 @@
2011-06-21 Andrew Cohen <address@hidden>
- * 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 <address@hidden>
=== modified file 'lisp/gnus/gnus.el'
--- a/lisp/gnus/gnus.el 2012-02-09 01:12:44 +0000
+++ b/lisp/gnus/gnus.el 2012-02-09 23:30:27 +0000
@@ -3581,13 +3581,6 @@
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 @@
;; 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r107217: lisp/gnus/gnus.el: Avoid byte-compiler warning.,
Juanma Barranquero <=