Mercurial > emacs
changeset 111278:416f27744f24
Silence gnus.el compilation.
* gnus.el (gnus-sloppily-equal-method-parameters): Move definition before use.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sun, 31 Oct 2010 18:40:12 -0700 |
| parents | f1b7bcd27c95 |
| children | 8bf30c3cb442 |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus.el |
| diffstat | 2 files changed, 15 insertions(+), 13 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Sun Oct 31 18:38:04 2010 -0700 +++ b/lisp/gnus/ChangeLog Sun Oct 31 18:40:12 2010 -0700 @@ -1,5 +1,7 @@ 2010-11-01 Glenn Morris <rgm@gnu.org> + * gnus.el (gnus-sloppily-equal-method-parameters): Move defn before use. + * sieve-manage.el: Require 'cl when compiling. * gnus-util.el (iswitchb-read-buffer): Declare rather than autoload.
--- a/lisp/gnus/gnus.el Sun Oct 31 18:38:04 2010 -0700 +++ b/lisp/gnus/gnus.el Sun Oct 31 18:40:12 2010 -0700 @@ -1,8 +1,8 @@ ;;; gnus.el --- a newsreader for GNU Emacs -;; Copyright (C) 1987, 1988, 1989, 1990, 1993, 1994, 1995, 1996, 1997, 1998, -;; 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 -;; Free Software Foundation, Inc. +;; Copyright (C) 1987, 1988, 1989, 1990, 1993, 1994, 1995, 1996, 1997, +;; 1998, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, +;; 2010 Free Software Foundation, Inc. ;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> ;; Lars Magne Ingebrigtsen <larsi@gnus.org> @@ -3546,16 +3546,6 @@ gnus-valid-select-methods))) (equal (nth 1 m1) (nth 1 m2))))))) -(defun gnus-methods-sloppily-equal (m1 m2) - ;; Same method. - (or - (eq m1 m2) - ;; Type and name are equal. - (and - (eq (car m1) (car m2)) - (equal (cadr m1) (cadr m2)) - (gnus-sloppily-equal-method-parameters m1 m2)))) - (defsubst gnus-sloppily-equal-method-parameters (m1 m2) ;; Check parameters for sloppy equalness. (let ((p1 (copy-sequence (cddr m1))) @@ -3584,6 +3574,16 @@ ;; If p2 now is empty, they were equal. (null p2)))) +(defun gnus-methods-sloppily-equal (m1 m2) + ;; Same method. + (or + (eq m1 m2) + ;; Type and name are equal. + (and + (eq (car m1) (car m2)) + (equal (cadr m1) (cadr m2)) + (gnus-sloppily-equal-method-parameters m1 m2)))) + (defun gnus-server-equal (m1 m2) "Say whether two methods are equal." (let ((m1 (cond ((null m1) gnus-select-method)