From: Glenn Morris <rgm@gnu.org>
Date: Sun, 7 Nov 2010 00:18:52 +0000 (+0000)
Subject: Silence gnus-art compilation.
X-Git-Url: https://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=f4ebcdd8c1d9d003a09c5f87381831fb8503f385;ds=sidebyside

Silence gnus-art compilation.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2fdab57a0..a17d75c41 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -6,31 +6,37 @@
 	* message.el (message-send-mail): Don't insert courtesy messages if the
 	message already has List-Post and List-ID messages.
 
+2010-11-06  Glenn Morris  <rgm@gnu.org>
+
+	* gnus-art.el (gnus-treat-article): Give dynamic local variables
+	`condition', `type', `length' a prefix.
+	(gnus-treat-predicate): Update for above name changes.
+
 2010-11-06  Andrew Cohen  <cohen@andy.bu.edu>
 
-	* nnir.el (gnus-summary-nnir-goto-thread): remove function and
-	binding. handled by `gnus-summary-refer-thread' instead.
-	(nnir-warp-to-article): new backend function.
+	* nnir.el (gnus-summary-nnir-goto-thread): Remove function and
+	binding.  Handled by `gnus-summary-refer-thread' instead.
+	(nnir-warp-to-article): New backend function.
 
-	* nnimap.el (nnimap-request-thread): force dependency updating.
+	* nnimap.el (nnimap-request-thread): Force dependency updating.
 
-	* gnus-sum.el (gnus-fetch-headers): allow more arguments.
-	(gnus-summary-refer-thread): rework to improve thread-referral.
+	* gnus-sum.el (gnus-fetch-headers): Allow more arguments.
+	(gnus-summary-refer-thread): Rework to improve thread-referral.
 
-	* gnus-int.el (gnus-warp-to-article): new function.
+	* gnus-int.el (gnus-warp-to-article): New function.
 
-	* gnus-sum.el (gnus-summary-article-map): bind it.
+	* gnus-sum.el (gnus-summary-article-map): Bind it.
 
 2010-11-04  Andrew Cohen  <cohen@andy.bu.edu>
 
-	* nnir.el (gnus-summary-nnir-goto-thread): limiting work done by
+	* nnir.el (gnus-summary-nnir-goto-thread): Limit work done by
 	gnus-summary-refer-thread.
 
-	* gnus-sum.el (gnus-build-all-threads): force updating of dependency
+	* gnus-sum.el (gnus-build-all-threads): Force updating of dependency
 	headers.
-	(gnus-summary-limit-include-thread): prevent articles in thread from
+	(gnus-summary-limit-include-thread): Prevent articles in thread from
 	being cut in gnus-cut-threads.
-	(gnus-summary-refer-thread): limit retrieved headers to those in
+	(gnus-summary-refer-thread): Limit retrieved headers to those in
 	thread.
 
 2010-11-04  Lars Magne Ingebrigtsen  <larsi@gnus.org>
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 713773ea8..97e8ccc1e 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -8257,16 +8257,17 @@ For example:
 
 (defvar gnus-inhibit-article-treatments nil)
 
-(defun gnus-treat-article (condition &optional part-number total-parts type)
-  (let ((length (- (point-max) (point-min)))
+(defun gnus-treat-article (gnus-treat-condition
+			   &optional part-number total-parts gnus-treat-type)
+  (let ((gnus-treat-length (- (point-max) (point-min)))
 	(alist gnus-treatment-function-alist)
 	(article-goto-body-goes-to-point-min-p t)
 	(treated-type
-	 (or (not type)
+	 (or (not gnus-treat-type)
 	     (catch 'found
 	       (let ((list gnus-article-treat-types))
 		 (while list
-		   (when (string-match (pop list) type)
+		   (when (string-match (pop list) gnus-treat-type)
 		     (throw 'found t)))))))
 	(highlightp (gnus-visual-p 'article-highlight 'highlight))
 	val elem)
@@ -8280,7 +8281,7 @@ For example:
       (when (and (or (consp val)
 		     treated-type)
 		 (or (not gnus-inhibit-article-treatments)
-		     (eq condition 'head))
+		     (eq gnus-treat-condition 'head))
 		 (gnus-treat-predicate val)
 		 (or (not (get (car elem) 'highlight))
 		     highlightp))
@@ -8290,16 +8291,16 @@ For example:
 ;; Dynamic variables.
 (defvar part-number)
 (defvar total-parts)
-(defvar type)
-(defvar condition)
-(defvar length)
+(defvar gnus-treat-type)
+(defvar gnus-treat-condition)
+(defvar gnus-treat-length)
 
 (defun gnus-treat-predicate (val)
   (cond
    ((null val)
     nil)
-   (condition
-    (eq condition val))
+   (gnus-treat-condition
+    (eq gnus-treat-condition val))
    ((and (listp val)
 	 (stringp (car val)))
     (apply 'gnus-or (mapcar `(lambda (s)
@@ -8315,7 +8316,7 @@ For example:
        ((eq pred 'not)
 	(not (gnus-treat-predicate (car val))))
        ((eq pred 'typep)
-	(equal (car val) type))
+	(equal (car val) gnus-treat-type))
        (t
 	(error "%S is not a valid predicate" pred)))))
    ((eq val t)
@@ -8327,7 +8328,7 @@ For example:
    ((eq val 'last)
     (eq part-number total-parts))
    ((numberp val)
-    (< length val))
+    (< gnus-treat-length val))
    (t
     (error "%S is not a valid value" val))))