emacs: lisp/gnus/gnus-range.el annotate

annotate lisp/gnus/gnus-range.el @ 30406:4fe5cb975331

(c-indent-new-comment-line): Added a kludge similar to the one in c-fill-paragraph to check the fill prefix from the adaptive fill function for sanity. (c-electric-brace): Fixed some bugs in the state handling that caused class open lines to be recognized as statement-conts in some cases. (c-indent-new-comment-line): Keep the fill prefix guessed by the adaptive fill function unless point is on the first line of a block comment. (c-indent-command): Obey c-syntactic-indentation. (c-electric-brace, c-electric-slash, c-electric-star, c-electric-semi&comma, c-electric-colon, c-electric-lt-gt, c-electric-paren): Don't reindent old lines when c-syntactic-indentation is nil. (c-fill-paragraph): Keep one or two spaces between the text and the block comment ender when it hangs, depending on how many there are before the fill. (c-indent-new-comment-line): Always break multiline comments in multiline mode, regardless of comment-multi-line.

author	Gerd Moellmann <gerd@gnu.org>
date	Mon, 24 Jul 2000 11:12:07 +0000 (2000-07-24)
parents	15fc6acbae7a
children	9968f55ad26e

rev	line source
17493 e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	1 ;;; gnus-range.el --- range and sequence functions for Gnus
24357 15fc6acbae7a Upgrading to Gnus 5.7; see ChangeLog Lars Magne Ingebrigtsen <larsi@gnus.org> parents: 19969 diff changeset	2 ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc.
17493 e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	3
24357 15fc6acbae7a Upgrading to Gnus 5.7; see ChangeLog Lars Magne Ingebrigtsen <larsi@gnus.org> parents: 19969 diff changeset	4 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
17493 e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	5 ;; Keywords: news
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	6
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	7 ;; This file is part of GNU Emacs.
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	8
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	9 ;; GNU Emacs is free software; you can redistribute it and/or modify
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	10 ;; it under the terms of the GNU General Public License as published by
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	11 ;; the Free Software Foundation; either version 2, or (at your option)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	12 ;; any later version.
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	13
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	14 ;; GNU Emacs is distributed in the hope that it will be useful,
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	17 ;; GNU General Public License for more details.
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	18
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	19 ;; You should have received a copy of the GNU General Public License
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	20 ;; along with GNU Emacs; see the file COPYING. If not, write to the
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	21 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	22 ;; Boston, MA 02111-1307, USA.
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	23
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	24 ;;; Commentary:
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	25
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	26 ;;; Code:
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	27
19493 8d840c4548c0 Require cl at compile time. Richard M. Stallman <rms@gnu.org> parents: 17493 diff changeset	28 (eval-when-compile (require 'cl))
8d840c4548c0 Require cl at compile time. Richard M. Stallman <rms@gnu.org> parents: 17493 diff changeset	29
24357 15fc6acbae7a Upgrading to Gnus 5.7; see ChangeLog Lars Magne Ingebrigtsen <larsi@gnus.org> parents: 19969 diff changeset	30 (eval-when-compile (require 'cl))
15fc6acbae7a Upgrading to Gnus 5.7; see ChangeLog Lars Magne Ingebrigtsen <larsi@gnus.org> parents: 19969 diff changeset	31
17493 e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	32 ;;; List and range functions
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	33
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	34 (defun gnus-last-element (list)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	35 "Return last element of LIST."
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	36 (while (cdr list)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	37 (setq list (cdr list)))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	38 (car list))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	39
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	40 (defun gnus-copy-sequence (list)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	41 "Do a complete, total copy of a list."
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	42 (let (out)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	43 (while (consp list)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	44 (if (consp (car list))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	45 (push (gnus-copy-sequence (pop list)) out)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	46 (push (pop list) out)))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	47 (if list
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	48 (nconc (nreverse out) list)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	49 (nreverse out))))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	50
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	51 (defun gnus-set-difference (list1 list2)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	52 "Return a list of elements of LIST1 that do not appear in LIST2."
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	53 (let ((list1 (copy-sequence list1)))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	54 (while list2
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	55 (setq list1 (delq (car list2) list1))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	56 (setq list2 (cdr list2)))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	57 list1))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	58
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	59 (defun gnus-sorted-complement (list1 list2)
24357 15fc6acbae7a Upgrading to Gnus 5.7; see ChangeLog Lars Magne Ingebrigtsen <larsi@gnus.org> parents: 19969 diff changeset	60 "Return a list of elements that are in LIST1 or LIST2 but not both.
17493 e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	61 Both lists have to be sorted over <."
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	62 (let (out)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	63 (if (or (null list1) (null list2))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	64 (or list1 list2)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	65 (while (and list1 list2)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	66 (cond ((= (car list1) (car list2))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	67 (setq list1 (cdr list1)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	68 list2 (cdr list2)))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	69 ((< (car list1) (car list2))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	70 (setq out (cons (car list1) out))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	71 (setq list1 (cdr list1)))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	72 (t
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	73 (setq out (cons (car list2) out))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	74 (setq list2 (cdr list2)))))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	75 (nconc (nreverse out) (or list1 list2)))))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	76
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	77 (defun gnus-intersection (list1 list2)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	78 (let ((result nil))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	79 (while list2
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	80 (when (memq (car list2) list1)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	81 (setq result (cons (car list2) result)))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	82 (setq list2 (cdr list2)))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	83 result))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	84
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	85 (defun gnus-sorted-intersection (list1 list2)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	86 ;; LIST1 and LIST2 have to be sorted over <.
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	87 (let (out)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	88 (while (and list1 list2)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	89 (cond ((= (car list1) (car list2))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	90 (setq out (cons (car list1) out)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	91 list1 (cdr list1)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	92 list2 (cdr list2)))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	93 ((< (car list1) (car list2))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	94 (setq list1 (cdr list1)))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	95 (t
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	96 (setq list2 (cdr list2)))))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	97 (nreverse out)))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	98
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	99 (defun gnus-set-sorted-intersection (list1 list2)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	100 ;; LIST1 and LIST2 have to be sorted over <.
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	101 ;; This function modifies LIST1.
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	102 (let* ((top (cons nil list1))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	103 (prev top))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	104 (while (and list1 list2)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	105 (cond ((= (car list1) (car list2))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	106 (setq prev list1
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	107 list1 (cdr list1)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	108 list2 (cdr list2)))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	109 ((< (car list1) (car list2))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	110 (setcdr prev (cdr list1))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	111 (setq list1 (cdr list1)))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	112 (t
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	113 (setq list2 (cdr list2)))))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	114 (setcdr prev nil)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	115 (cdr top)))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	116
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	117 (defun gnus-compress-sequence (numbers &optional always-list)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	118 "Convert list of numbers to a list of ranges or a single range.
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	119 If ALWAYS-LIST is non-nil, this function will always release a list of
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	120 ranges."
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	121 (let* ((first (car numbers))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	122 (last (car numbers))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	123 result)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	124 (if (null numbers)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	125 nil
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	126 (if (not (listp (cdr numbers)))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	127 numbers
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	128 (while numbers
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	129 (cond ((= last (car numbers)) nil) ;Omit duplicated number
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	130 ((= (1+ last) (car numbers)) ;Still in sequence
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	131 (setq last (car numbers)))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	132 (t ;End of one sequence
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	133 (setq result
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	134 (cons (if (= first last) first
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	135 (cons first last))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	136 result))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	137 (setq first (car numbers))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	138 (setq last (car numbers))))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	139 (setq numbers (cdr numbers)))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	140 (if (and (not always-list) (null result))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	141 (if (= first last) (list first) (cons first last))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	142 (nreverse (cons (if (= first last) first (cons first last))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	143 result)))))))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	144
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	145 (defalias 'gnus-uncompress-sequence 'gnus-uncompress-range)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	146 (defun gnus-uncompress-range (ranges)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	147 "Expand a list of ranges into a list of numbers.
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	148 RANGES is either a single range on the form `(num . num)' or a list of
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	149 these ranges."
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	150 (let (first last result)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	151 (cond
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	152 ((null ranges)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	153 nil)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	154 ((not (listp (cdr ranges)))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	155 (setq first (car ranges))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	156 (setq last (cdr ranges))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	157 (while (<= first last)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	158 (setq result (cons first result))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	159 (setq first (1+ first)))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	160 (nreverse result))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	161 (t
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	162 (while ranges
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	163 (if (atom (car ranges))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	164 (when (numberp (car ranges))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	165 (setq result (cons (car ranges) result)))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	166 (setq first (caar ranges))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	167 (setq last (cdar ranges))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	168 (while (<= first last)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	169 (setq result (cons first result))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	170 (setq first (1+ first))))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	171 (setq ranges (cdr ranges)))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	172 (nreverse result)))))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	173
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	174 (defun gnus-add-to-range (ranges list)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	175 "Return a list of ranges that has all articles from both RANGES and LIST.
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	176 Note: LIST has to be sorted over `<'."
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	177 (if (not ranges)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	178 (gnus-compress-sequence list t)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	179 (setq list (copy-sequence list))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	180 (unless (listp (cdr ranges))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	181 (setq ranges (list ranges)))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	182 (let ((out ranges)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	183 ilist lowest highest temp)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	184 (while (and ranges list)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	185 (setq ilist list)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	186 (setq lowest (or (and (atom (car ranges)) (car ranges))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	187 (caar ranges)))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	188 (while (and list (cdr list) (< (cadr list) lowest))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	189 (setq list (cdr list)))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	190 (when (< (car ilist) lowest)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	191 (setq temp list)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	192 (setq list (cdr list))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	193 (setcdr temp nil)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	194 (setq out (nconc (gnus-compress-sequence ilist t) out)))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	195 (setq highest (or (and (atom (car ranges)) (car ranges))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	196 (cdar ranges)))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	197 (while (and list (<= (car list) highest))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	198 (setq list (cdr list)))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	199 (setq ranges (cdr ranges)))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	200 (when list
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	201 (setq out (nconc (gnus-compress-sequence list t) out)))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	202 (setq out (sort out (lambda (r1 r2)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	203 (< (or (and (atom r1) r1) (car r1))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	204 (or (and (atom r2) r2) (car r2))))))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	205 (setq ranges out)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	206 (while ranges
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	207 (if (atom (car ranges))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	208 (when (cdr ranges)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	209 (if (atom (cadr ranges))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	210 (when (= (1+ (car ranges)) (cadr ranges))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	211 (setcar ranges (cons (car ranges)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	212 (cadr ranges)))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	213 (setcdr ranges (cddr ranges)))
19969 5f1ab3dd344d * empty log message * Lars Magne Ingebrigtsen <larsi@gnus.org> parents: 19493 diff changeset	214 (when (= (1+ (car ranges)) (caadr ranges))
17493 e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	215 (setcar (cadr ranges) (car ranges))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	216 (setcar ranges (cadr ranges))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	217 (setcdr ranges (cddr ranges)))))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	218 (when (cdr ranges)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	219 (if (atom (cadr ranges))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	220 (when (= (1+ (cdar ranges)) (cadr ranges))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	221 (setcdr (car ranges) (cadr ranges))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	222 (setcdr ranges (cddr ranges)))
19969 5f1ab3dd344d * empty log message * Lars Magne Ingebrigtsen <larsi@gnus.org> parents: 19493 diff changeset	223 (when (= (1+ (cdar ranges)) (caadr ranges))
5f1ab3dd344d * empty log message * Lars Magne Ingebrigtsen <larsi@gnus.org> parents: 19493 diff changeset	224 (setcdr (car ranges) (cdadr ranges))
17493 e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	225 (setcdr ranges (cddr ranges))))))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	226 (setq ranges (cdr ranges)))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	227 out)))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	228
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	229 (defun gnus-remove-from-range (ranges list)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	230 "Return a list of ranges that has all articles from LIST removed from RANGES.
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	231 Note: LIST has to be sorted over `<'."
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	232 ;; !!! This function shouldn't look like this, but I've got a headache.
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	233 (gnus-compress-sequence
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	234 (gnus-sorted-complement
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	235 (gnus-uncompress-range ranges) list)))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	236
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	237 (defun gnus-member-of-range (number ranges)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	238 (if (not (listp (cdr ranges)))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	239 (and (>= number (car ranges))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	240 (<= number (cdr ranges)))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	241 (let ((not-stop t))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	242 (while (and ranges
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	243 (if (numberp (car ranges))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	244 (>= number (car ranges))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	245 (>= number (caar ranges)))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	246 not-stop)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	247 (when (if (numberp (car ranges))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	248 (= number (car ranges))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	249 (and (>= number (caar ranges))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	250 (<= number (cdar ranges))))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	251 (setq not-stop nil))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	252 (setq ranges (cdr ranges)))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	253 (not not-stop))))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	254
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	255 (defun gnus-range-length (range)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	256 "Return the length RANGE would have if uncompressed."
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	257 (length (gnus-uncompress-range range)))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	258
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	259 (defun gnus-sublist-p (list sublist)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	260 "Test whether all elements in SUBLIST are members of LIST."
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	261 (let ((sublistp t))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	262 (while sublist
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	263 (unless (memq (pop sublist) list)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	264 (setq sublistp nil
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	265 sublist nil)))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	266 sublistp))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	267
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	268 (defun gnus-range-add (range1 range2)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	269 "Add RANGE2 to RANGE1 destructively."
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	270 (cond
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	271 ;; If either are nil, then the job is quite easy.
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	272 ((or (null range1) (null range2))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	273 (or range1 range2))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	274 (t
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	275 ;; I don't like thinking.
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	276 (gnus-compress-sequence
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	277 (sort
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	278 (nconc
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	279 (gnus-uncompress-range range1)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	280 (gnus-uncompress-range range2))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	281 '<)))))
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	282
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	283 (provide 'gnus-range)
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	284
e6935c08cf0b Initial revision Lars Magne Ingebrigtsen <larsi@gnus.org> parents: diff changeset	285 ;;; gnus-range.el ends here

Mercurial > emacs

annotate lisp/gnus/gnus-range.el @ 30406:4fe5cb975331