Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-range.el @ 30:ec9a17fef872 r19-15b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b98
author cvs
date Mon, 13 Aug 2007 08:52:29 +0200
parents 0293115a14e9
children
comparison
equal deleted inserted replaced
29:7976500f47f9 30:ec9a17fef872
261 sublist nil))) 261 sublist nil)))
262 sublistp)) 262 sublistp))
263 263
264 (defun gnus-range-add (range1 range2) 264 (defun gnus-range-add (range1 range2)
265 "Add RANGE2 to RANGE1 destructively." 265 "Add RANGE2 to RANGE1 destructively."
266 (cond 266 (cond
267 ;; If either are nil, then the job is quite easy. 267 ;; If either are nil, then the job is quite easy.
268 ((or (null range1) (null range2)) 268 ((or (null range1) (null range2))
269 (or range1 range2)) 269 (or range1 range2))
270 (t 270 (t
271 ;; I don't like thinking. 271 ;; I don't like thinking.