Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-sum.el @ 144:318232e2a3f0 r20-2b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b6
author cvs
date Mon, 13 Aug 2007 09:34:14 +0200
parents 1856695b1fa9
children 59463afc5666
comparison
equal deleted inserted replaced
143:50e7fedfe353 144:318232e2a3f0
2012 "Say whether this article is a pseudo article or not." 2012 "Say whether this article is a pseudo article or not."
2013 (not (vectorp (gnus-data-header (gnus-data-find article))))) 2013 (not (vectorp (gnus-data-header (gnus-data-find article)))))
2014 2014
2015 (defmacro gnus-summary-article-sparse-p (article) 2015 (defmacro gnus-summary-article-sparse-p (article)
2016 "Say whether this article is a sparse article or not." 2016 "Say whether this article is a sparse article or not."
2017 ` (memq ,article gnus-newsgroup-sparse)) 2017 `(memq ,article gnus-newsgroup-sparse))
2018 2018
2019 (defmacro gnus-summary-article-ancient-p (article) 2019 (defmacro gnus-summary-article-ancient-p (article)
2020 "Say whether this article is a sparse article or not." 2020 "Say whether this article is a sparse article or not."
2021 `(memq ,article gnus-newsgroup-ancient)) 2021 `(memq ,article gnus-newsgroup-ancient))
2022 2022
5929 (gnus-summary-article-sparse-p (mail-header-number (car thread))) 5929 (gnus-summary-article-sparse-p (mail-header-number (car thread)))
5930 (gnus-summary-article-ancient-p 5930 (gnus-summary-article-ancient-p
5931 (mail-header-number (car thread)))) 5931 (mail-header-number (car thread))))
5932 (progn 5932 (progn
5933 (if (<= (length (cdr thread)) 1) 5933 (if (<= (length (cdr thread)) 1)
5934 (setq thread (cadr thread)) 5934 (setq gnus-newsgroup-limit
5935 (delq (mail-header-number (car thread))
5936 gnus-newsgroup-limit)
5937 thread (cadr thread))
5935 (when (gnus-invisible-cut-children (cdr thread)) 5938 (when (gnus-invisible-cut-children (cdr thread))
5936 (let ((th (cdr thread))) 5939 (let ((th (cdr thread)))
5937 (while th 5940 (while th
5938 (if (memq (mail-header-number (caar th)) 5941 (if (memq (mail-header-number (caar th))
5939 gnus-newsgroup-limit) 5942 gnus-newsgroup-limit)
5940 (setq thread (car th) 5943 (setq thread (car th)
5941 th nil) 5944 th nil)
5942 (setq th (cdr th))))))))) 5945 (setq th (cdr th)))))))))))
5943 ))
5944 thread) 5946 thread)
5945 5947
5946 (defun gnus-cut-threads (threads) 5948 (defun gnus-cut-threads (threads)
5947 "Cut off all uninteresting articles from the beginning of threads." 5949 "Cut off all uninteresting articles from the beginning of threads."
5948 (when (or (eq gnus-fetch-old-headers 'some) 5950 (when (or (eq gnus-fetch-old-headers 'some)
6154 (unless (string-match ">$" message-id) 6156 (unless (string-match ">$" message-id)
6155 (setq message-id (concat message-id ">"))) 6157 (setq message-id (concat message-id ">")))
6156 (let* ((header (gnus-id-to-header message-id)) 6158 (let* ((header (gnus-id-to-header message-id))
6157 (sparse (and header 6159 (sparse (and header
6158 (gnus-summary-article-sparse-p 6160 (gnus-summary-article-sparse-p
6159 (mail-header-number header))))) 6161 (mail-header-number header))
6160 (if header 6162 (memq (mail-header-number header)
6163 gnus-newsgroup-limit))))
6164 (if (and header
6165 (or (not (gnus-summary-article-sparse-p
6166 (mail-header-number header)))
6167 sparse))
6161 (prog1 6168 (prog1
6162 ;; The article is present in the buffer, so we just go to it. 6169 ;; The article is present in the buffer, so we just go to it.
6163 (gnus-summary-goto-article 6170 (gnus-summary-goto-article
6164 (mail-header-number header) nil t) 6171 (mail-header-number header) nil t)
6165 (when sparse 6172 (when sparse