From a67cd3cced5b5b80a6b0cd89638d5f44b2e6caf6 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 27 Nov 2002 22:26:09 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 34 ++++++++++++++++++++++++----- lisp/gnus-sum.el | 64 +++++++++++++++++++++++++++--------------------------- 2 files changed, 60 insertions(+), 38 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 32dd31c..e15886a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2002-11-27 Kevin Greiner + + * gnus-sum.el (gnus-summary-insert-old-articles): No longer passes + compressed range to gnus-summary-insert-articles. + 2002-11-26 Kevin Ryde * gnus-art.el (gnus-mime-copy-part): Look for filename @@ -139,7 +144,8 @@ * nnimap.el (nnimap-request-expire-articles): Compress sequence before storing \Deleted mark on expired articles. -2002-11-17 Markus Rost +2002-11-17 Shenghuo Zhu + Trivial patch from Markus Rost * gnus-sum.el (gnus-summary-goto-unread): Doc fix - escape open parens in column 0. @@ -1001,6 +1007,7 @@ (gnus-button-handle-apropos-command): Doc fix. From Reiner Steib. 2002-09-25 Mark A. Hershberger + Trivial patch. * nnrss.el (nnrss-save-server-data): Save nnrss-group-alist in the file. @@ -1855,6 +1862,7 @@ name (makes it work with recent Cyrus timsieved). 2002-05-20 Jason + Trivial patch. * gnus-art.el (gnus-request-article-this-buffer): Try reconnecting if you don't get the message. @@ -2298,6 +2306,7 @@ * nnmaildir.el: fixed some buggy invocations of nnmaildir--pgname. 2002-03-31 Andrew Cohen + Trivial patch. * dns.el: open-network-stream under XEmacs does udp. @@ -3573,6 +3582,7 @@ * nnweb.el (nnweb-type-definition): Clean up. 2002-01-21 Alastair Burt + Trivial patch. * gnus-art.el (gnus-mm-display-part): Make sure that the summary buffer exists before jumping to it. @@ -4211,6 +4221,7 @@ * gnus.el (gnus-logo-color-alist): Added more colors from Luis. 2002-01-05 Keiichi Suzuki + Trivial patch. * nntp.el (nntp-possibly-change-group): Erase contents of nntp buffer to get rid of junk line. @@ -6468,6 +6479,7 @@ (gnus-parse-simple-format): Re-revert. 2001-09-16 Katsuhiro Hermit Endo + Trivial patch. * gnus-spec.el (gnus-parse-complex-format): Don't fold search case. (Thanks to Daiki Ueno .) @@ -8115,6 +8127,7 @@ * nntp.el (nntp-send-command-and-decode): ditto. 2001-06-30 YAGI Tatsuya + Trivial patch. * gnus-start.el (gnus-check-first-time-used): Use `if' instead of `when'. @@ -8331,7 +8344,8 @@ * nnrss.el (nnrss-node-text): Use cddr instead xml-node-children. -2001-06-03 Dale Hagglund +2001-06-03 ShengHuo ZHU + Trivial patch from Dale Hagglund * gnus-mlspl.el (gnus-group-split-fancy): Fix generation of split restrict clauses. @@ -8563,8 +8577,8 @@ (smime-sign-region): Rework to bind value and use it. (smime-decrypt-region): Ditto. -2001-04-18 Mathias Herberts - Committed by Simon Josefsson +2001-04-18 Simon Josefsson + Trivial patch from Mathias Herberts * smime.el (smime-ask-passphrase): New function. (smime-sign-region): Use it. @@ -8579,7 +8593,7 @@ 2001-04-14 01:14:42 Lars Magne Ingebrigtsen - *gnus.el: Oort Gnus v0.02 is released. + * gnus.el: Oort Gnus v0.02 is released. 2001-04-14 00:48:42 Lars Magne Ingebrigtsen @@ -8848,6 +8862,7 @@ * message.el (message-generate-headers-first): Update doc. 2001-03-10 Matthias Wiehl + Trivial patch. * gnus.el (gnus-summary-line-format): Typo. @@ -9259,6 +9274,7 @@ (message-supersede): Ditto. 2001-02-08 Tommi Vainikainen + Trivial patch. * gnus-sum.el (gnus-simplify-subject-re): Use message-subject-re-regexp. @@ -9545,7 +9561,8 @@ * message.el (message-ignored-news-headers): Only search beginning of line. -2001-01-19 Alberto Lusiani +2001-01-19 ShengHuo Zhu + Trivial patch from Alberto Lusiani * message.el (message-send-mail): Content-Type may not be there. @@ -9725,6 +9742,7 @@ * time-date.el (time-to-number-of-days): New function. 2001-01-04 11:06:14 Gregory Chernov + Trivial patch. * nnslashdot.el (nnslashdot-request-list): Always get the right sid. @@ -9752,6 +9770,7 @@ * nnslashdot.el (nnslashdot-request-list): Get the right year. 2001-01-01 00:52:44 Ed L. Cashin + A revoked patch. * gnus-sum.el (gnus-summary-expire-articles): Save excursion. @@ -9884,6 +9903,7 @@ (gnus-new-processable): New function. 2000-12-28 19:21:57 Inge Frick + Trivial patch. * gnus-sum.el (gnus-no-mark): New variable. @@ -9905,6 +9925,7 @@ XEmacs. 2000-12-25 Lloyd Zusman + Trivial patch. * mml.el (mml-read-tag): Save tag location. @@ -11616,6 +11637,7 @@ (nnultimate-forum-table-p): Use it. 2000-10-30 Ed L Cashin + Trivial patch. * gnus-sum.el (gnus-summary-expire-articles): Save point. diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index ab15c72..88395f3 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -11520,32 +11520,32 @@ If ALL is a number, fetch this number of articles." (let ((old (sort (mapcar 'car gnus-newsgroup-data) '<)) older len) (setq older -;;; Some nntp servers lie about their active range. When this happens, the active range can be in the millions. -;;; (gnus-sorted-difference -;;; (gnus-uncompress-range (list gnus-newsgroup-active)) -;;; old) + ;; Some nntp servers lie about their active range. When this happens, the active + ;; range can be in the millions. + ;; Use a compressed range to avoid creating a huge list. (gnus-range-difference (list gnus-newsgroup-active) old)) (setq len (gnus-range-length older)) (cond ((null older) nil) ((numberp all) (if (< all len) - (let ((older-range (nreverse older))) - (setq older nil) - - (while (> all 0) - (let* ((r (pop older-range)) - (min (if (numberp r) r (car r))) - (max (if (numberp r) r (cdr r)))) - (while (and (<= min max) - (> all 0)) - (push max older) - (setq all (1- all) - max (1- max)))))) - (setq older (gnus-uncompress-range older)))) - (all nil) + (let ((older-range (nreverse older))) + (setq older nil) + + (while (> all 0) + (let* ((r (pop older-range)) + (min (if (numberp r) r (car r))) + (max (if (numberp r) r (cdr r)))) + (while (and (<= min max) + (> all 0)) + (push max older) + (setq all (1- all) + max (1- max)))))) + (setq older (gnus-uncompress-range older)))) + (all + (setq older (gnus-uncompress-range older))) (t - (if (and (numberp gnus-large-newsgroup) + (when (and (numberp gnus-large-newsgroup) (> len gnus-large-newsgroup)) (let* ((cursor-in-echo-area nil) (initial (gnus-parameter-large-newsgroup-initial @@ -11564,19 +11564,19 @@ If ALL is a number, fetch this number of articles." (unless (string-match "^[ \t]*$" input) (setq all (string-to-number input)) (if (< all len) - (let ((older-range (nreverse older))) - (setq older nil) - - (while (> all 0) - (let* ((r (pop older-range)) - (min (if (numberp r) r (car r))) - (max (if (numberp r) r (cdr r)))) - (while (and (<= min max) - (> all 0)) - (push max older) - (setq all (1- all) - max (1- max)))))) - (setq older (gnus-uncompress-range older)))))))) + (let ((older-range (nreverse older))) + (setq older nil) + + (while (> all 0) + (let* ((r (pop older-range)) + (min (if (numberp r) r (car r))) + (max (if (numberp r) r (cdr r)))) + (while (and (<= min max) + (> all 0)) + (push max older) + (setq all (1- all) + max (1- max)))))))))) + (setq older (gnus-uncompress-range older)))) (if (not older) (message "No old news.") (gnus-summary-insert-articles older) -- 1.7.10.4