From ebcd3877e35b8219ec2ba2e22d04a6d66ee91881 Mon Sep 17 00:00:00 2001 From: ShengHuo ZHU Date: Tue, 29 Jan 2002 15:14:11 +0000 Subject: [PATCH] * gnus-range.el (gnus-list-range-intersection): Correct the logic. (gnus-inverse-list-range-intersection): Ditto. And copyright-update. --- lisp/ChangeLog | 5 +++++ lisp/gnus-range.el | 8 +++++--- lisp/mm-decode.el | 2 +- lisp/mm-uu.el | 2 +- lisp/mml-sec.el | 2 +- lisp/mml2015.el | 2 +- lisp/nndoc.el | 2 +- lisp/nnheader.el | 2 +- lisp/nnkiboze.el | 2 +- 9 files changed, 17 insertions(+), 10 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index fbcd2adcf..c91c1ae0f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2002-01-29 ShengHuo ZHU + + * gnus-range.el (gnus-list-range-intersection): Correct the logic. + (gnus-inverse-list-range-intersection): Ditto. + 2002-01-29 Karl Kleinpaste * mm-uu.el (mm-uu-type-alist): Add optional leading `0'. diff --git a/lisp/gnus-range.el b/lisp/gnus-range.el index 8e3c0972f..75d6685c0 100644 --- a/lisp/gnus-range.el +++ b/lisp/gnus-range.el @@ -1,6 +1,6 @@ ;;; gnus-range.el --- range and sequence functions for Gnus -;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001 +;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002 ;; Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen @@ -338,7 +338,8 @@ LIST is a sorted list." (when (and ranges (if (numberp (car ranges)) (= (car ranges) number) - (< number (cdar ranges)))) + ;; (caar ranges) <= number <= (cdar ranges) + (>= number (caar ranges)))) (push number result))) (nreverse result))) @@ -355,7 +356,8 @@ LIST is a sorted list." (when (or (not ranges) (if (numberp (car ranges)) (not (= (car ranges) number)) - (not (<= number (cdar ranges))))) + ;; not ((caar ranges) <= number <= (cdar ranges)) + (< number (caar ranges)))) (push number result))) (nreverse result))) diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el index 226fdb750..053b25181 100644 --- a/lisp/mm-decode.el +++ b/lisp/mm-decode.el @@ -1,5 +1,5 @@ ;;; mm-decode.el --- Functions for decoding MIME things -;; Copyright (C) 1998, 1999, 2000, 2001 Free Software Foundation, Inc. +;; Copyright (C) 1998, 1999, 2000, 2001, 2002 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen ;; MORIOKA Tomohiko diff --git a/lisp/mm-uu.el b/lisp/mm-uu.el index 780daf192..b3f287719 100644 --- a/lisp/mm-uu.el +++ b/lisp/mm-uu.el @@ -1,5 +1,5 @@ ;;; mm-uu.el --- Return uu stuff as mm handles -;; Copyright (c) 1998, 1999, 2000, 2001 Free Software Foundation, Inc. +;; Copyright (c) 1998, 1999, 2000, 2001, 2002 Free Software Foundation, Inc. ;; Author: Shenghuo Zhu ;; Keywords: postscript uudecode binhex shar forward gnatsweb pgp diff --git a/lisp/mml-sec.el b/lisp/mml-sec.el index 0230e0fe3..fb6d22971 100644 --- a/lisp/mml-sec.el +++ b/lisp/mml-sec.el @@ -1,5 +1,5 @@ ;;; mml-sec.el --- A package with security functions for MML documents -;; Copyright (C) 2000 Free Software Foundation, Inc. +;; Copyright (C) 2000, 2001, 2002 Free Software Foundation, Inc. ;; Author: Simon Josefsson ;; This file is not part of GNU Emacs, but the same permissions apply. diff --git a/lisp/mml2015.el b/lisp/mml2015.el index fe36ea9b2..79cc9ca3e 100644 --- a/lisp/mml2015.el +++ b/lisp/mml2015.el @@ -1,5 +1,5 @@ ;;; mml2015.el --- MIME Security with Pretty Good Privacy (PGP) -;; Copyright (C) 2000, 2001 Free Software Foundation, Inc. +;; Copyright (C) 2000, 2001, 2002 Free Software Foundation, Inc. ;; Author: Shenghuo Zhu ;; Keywords: PGP MIME MML diff --git a/lisp/nndoc.el b/lisp/nndoc.el index 0d8dc4384..49423ae0d 100644 --- a/lisp/nndoc.el +++ b/lisp/nndoc.el @@ -1,5 +1,5 @@ ;;; nndoc.el --- single file access for Gnus -;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001 +;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002 ;; Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen diff --git a/lisp/nnheader.el b/lisp/nnheader.el index f025bb708..efa1fde07 100644 --- a/lisp/nnheader.el +++ b/lisp/nnheader.el @@ -1,7 +1,7 @@ ;;; nnheader.el --- header access macros for Gnus and its backends ;; Copyright (C) 1987, 1988, 1989, 1990, 1993, 1994, 1995, 1996, -;; 1997, 1998, 2000, 2001 +;; 1997, 1998, 2000, 2001, 2002 ;; Free Software Foundation, Inc. ;; Author: Masanobu UMEDA diff --git a/lisp/nnkiboze.el b/lisp/nnkiboze.el index 9bdfe4370..828f1a862 100644 --- a/lisp/nnkiboze.el +++ b/lisp/nnkiboze.el @@ -1,6 +1,6 @@ ;;; nnkiboze.el --- select virtual news access for Gnus -;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000 +;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2002 ;; Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen -- 2.25.1