From 63fe62c0293e7dd76254074c68e2b7cd9aefe29e Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 18 Mar 2003 10:32:36 +0000 Subject: [PATCH] Synch to Oort Gnus 200303181031. --- lisp/ChangeLog | 5 +++++ lisp/gnus-sum.el | 13 ++++++++++++- 2 files changed, 17 insertions(+), 1 deletion(-) 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'." -- 1.7.10.4