From: yamaoka Date: Tue, 18 Mar 2003 10:32:36 +0000 (+0000) Subject: Synch to Oort Gnus 200303181031. X-Git-Tag: t-gnus-6_15_18-00-quimby~28 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=63fe62c0293e7dd76254074c68e2b7cd9aefe29e;p=elisp%2Fgnus.git- Synch to Oort Gnus 200303181031. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4ea60d2..e567724 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2003-03-18 Katsumi Yamaoka + + * gnus-sum.el (gnus-summary-highlight-line-0): Silence the byte- + compiler under XEmacs. + 2003-03-18 Jesper Harder * gnus-art.el (gnus-treat-highlight-signature): Make the default diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 5cc2b95..ad9f6e5 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -11218,7 +11218,18 @@ If REVERSE, save parts that do not match TYPE." (setcdr c (cons (list (caar list) (list 'quote (cdar list))) nil)) (setq c (cdr c) list (cdr list))) - (gnus-byte-compile (list 'lambda nil cond)))))) + (let ((byte-compile-warnings + ;; Since XEmacs version of bytecomp complains about + ;; the unbound variables because of `globally-boundp' + ;; even if they are bound by `let', we silence it. + (if (and (boundp 'byte-compile-default-warnings) ;; XEmacs + (listp (symbol-value + 'byte-compile-default-warnings))) + (delq 'free-vars + (copy-sequence (symbol-value + 'byte-compile-default-warnings))) + byte-compile-warnings))) + (gnus-byte-compile (list 'lambda nil cond))))))) (defun gnus-summary-highlight-line () "Highlight current line according to `gnus-summary-highlight'."