projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(gnus-agent-summary-fetch-series): Add doc string.
[gnus]
/
lisp
/
gnus-range.el
diff --git
a/lisp/gnus-range.el
b/lisp/gnus-range.el
index
b869624
..
b80f177
100644
(file)
--- a/
lisp/gnus-range.el
+++ b/
lisp/gnus-range.el
@@
-1,7
+1,6
@@
;;; gnus-range.el --- range and sequence functions for Gnus
;;; gnus-range.el --- range and sequence functions for Gnus
-;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
-;; 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc.
+;; Copyright (C) 1996-2012 Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Keywords: news
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Keywords: news
@@
-117,10
+116,10
@@
Both ranges must be in ascending order."
;; All done with range2
(setq r nil))
((< max1 min2)
;; All done with range2
(setq r nil))
((< max1 min2)
- ;; No overlap: range1 prece
ed
s range2
+ ;; No overlap: range1 prece
de
s range2
(pop r))
((< max2 min1)
(pop r))
((< max2 min1)
- ;; No overlap: range2 prece
ed
s range1
+ ;; No overlap: range2 prece
de
s range1
(pop range2))
((and (<= min2 min1) (<= max1 max2))
;; Complete overlap: range1 removed
(pop range2))
((and (<= min2 min1) (<= max1 max2))
;; Complete overlap: range1 removed
@@
-233,10
+232,10
@@
RANGE1 and RANGE2 have to be sorted over <."
(setq range1 (cdr range1)
range2 (cdr range2))
(while (and min1 min2)
(setq range1 (cdr range1)
range2 (cdr range2))
(while (and min1 min2)
- (cond ((< max1 min2) ; range1 prece
ed
s range2
+ (cond ((< max1 min2) ; range1 prece
de
s range2
(setq range1 (cdr range1)
min1 nil))
(setq range1 (cdr range1)
min1 nil))
- ((< max2 min1) ; range2 prece
ed
s range1
+ ((< max2 min1) ; range2 prece
de
s range1
(setq range2 (cdr range2)
min2 nil))
(t ; some sort of overlap is occurring
(setq range2 (cdr range2)
min2 nil))
(t ; some sort of overlap is occurring