From: yamaoka <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/cgi-bin/gitweb.cgi?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  <yamaoka@jpl.org>
+
+	* gnus-sum.el (gnus-summary-highlight-line-0): Silence the byte-
+	compiler under XEmacs.
+
 2003-03-18  Jesper Harder  <harder@ifa.au.dk>
 
 	* 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'."