projects
/
gnus
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
4e08c86
)
Silence gnus-art compilation.
author
Glenn Morris
<rgm@gnu.org>
Sun, 7 Nov 2010 00:18:52 +0000
(
00:18
+0000)
committer
Katsumi Yamaoka
<yamaoka@jpl.org>
Sun, 7 Nov 2010 00:18:52 +0000
(
00:18
+0000)
lisp/ChangeLog
patch
|
blob
|
history
lisp/gnus-art.el
patch
|
blob
|
history
diff --git
a/lisp/ChangeLog
b/lisp/ChangeLog
index
2fdab57
..
a17d75c
100644
(file)
--- 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.
* 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>
2010-11-06 Andrew Cohen <cohen@andy.bu.edu>
- * nnir.el (gnus-summary-nnir-goto-thread):
r
emove function and
- binding.
h
andled by `gnus-summary-refer-thread' instead.
- (nnir-warp-to-article):
n
ew backend function.
+ * nnir.el (gnus-summary-nnir-goto-thread):
R
emove function and
+ binding.
H
andled by `gnus-summary-refer-thread' instead.
+ (nnir-warp-to-article):
N
ew backend function.
- * nnimap.el (nnimap-request-thread):
f
orce dependency updating.
+ * nnimap.el (nnimap-request-thread):
F
orce dependency updating.
- * gnus-sum.el (gnus-fetch-headers):
a
llow more arguments.
- (gnus-summary-refer-thread):
r
ework to improve thread-referral.
+ * gnus-sum.el (gnus-fetch-headers):
A
llow more arguments.
+ (gnus-summary-refer-thread):
R
ework to improve thread-referral.
- * gnus-int.el (gnus-warp-to-article):
n
ew function.
+ * gnus-int.el (gnus-warp-to-article):
N
ew function.
- * gnus-sum.el (gnus-summary-article-map):
b
ind it.
+ * gnus-sum.el (gnus-summary-article-map):
B
ind it.
2010-11-04 Andrew Cohen <cohen@andy.bu.edu>
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-summary-refer-thread.
- * gnus-sum.el (gnus-build-all-threads):
f
orce updating of dependency
+ * gnus-sum.el (gnus-build-all-threads):
F
orce updating of dependency
headers.
headers.
- (gnus-summary-limit-include-thread):
p
revent articles in thread from
+ (gnus-summary-limit-include-thread):
P
revent articles in thread from
being cut in gnus-cut-threads.
being cut in gnus-cut-threads.
- (gnus-summary-refer-thread):
l
imit retrieved headers to those in
+ (gnus-summary-refer-thread):
L
imit retrieved headers to those in
thread.
2010-11-04 Lars Magne Ingebrigtsen <larsi@gnus.org>
thread.
2010-11-04 Lars Magne Ingebrigtsen <larsi@gnus.org>
diff --git
a/lisp/gnus-art.el
b/lisp/gnus-art.el
index
713773e
..
97e8ccc
100644
(file)
--- a/
lisp/gnus-art.el
+++ b/
lisp/gnus-art.el
@@
-8257,16
+8257,17
@@
For example:
(defvar gnus-inhibit-article-treatments nil)
(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
(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
(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)
(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)
(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))
(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)
;; 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)
(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)
((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)
((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)
(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)
((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))))
(t
(error "%S is not a valid value" val))))