114 |
;; articles in SEQUENCE come from. |
;; articles in SEQUENCE come from. |
115 |
(while (and areas sequence) |
(while (and areas sequence) |
116 |
;; Peel off areas that are below sequence. |
;; Peel off areas that are below sequence. |
117 |
(while (and areas (< (cdaar areas) (car sequence))) |
(while (and areas (< (cdar (car areas)) (car sequence))) |
118 |
(setq areas (cdr areas))) |
(setq areas (cdr areas))) |
119 |
(when areas |
(when areas |
120 |
;; This is a useful area. |
;; This is a useful area. |
130 |
(setq use-nov nil)) |
(setq use-nov nil)) |
131 |
;; We assign the portion of `sequence' that is relevant to |
;; We assign the portion of `sequence' that is relevant to |
132 |
;; this MSG packet to this packet. |
;; this MSG packet to this packet. |
133 |
(while (and sequence (<= (car sequence) (cdaar areas))) |
(while (and sequence (<= (car sequence) (cdar (car areas)))) |
134 |
(push (car sequence) this-area-seq) |
(push (car sequence) this-area-seq) |
135 |
(setq sequence (cdr sequence))) |
(setq sequence (cdr sequence))) |
136 |
(setcar useful-areas (cons (nreverse this-area-seq) |
(setcar useful-areas (cons (nreverse this-area-seq) |
249 |
;; Try to guess the type based on the first article in the group. |
;; Try to guess the type based on the first article in the group. |
250 |
(when (not article) |
(when (not article) |
251 |
(setq article |
(setq article |
252 |
(cdaar (cddr (assoc group nnsoup-group-alist))))) |
(cdar (car (cddr (assoc group nnsoup-group-alist)))))) |
253 |
(if (not article) |
(if (not article) |
254 |
'unknown |
'unknown |
255 |
(let ((kind (gnus-soup-encoding-kind |
(let ((kind (gnus-soup-encoding-kind |
371 |
(setq min (caaar e)) |
(setq min (caaar e)) |
372 |
(while (cdr e) |
(while (cdr e) |
373 |
(setq e (cdr e))) |
(setq e (cdr e))) |
374 |
(setq max (cdaar e)) |
(setq max (cdar (car e))) |
375 |
(setcdr entry (cons (cons min max) (cdr entry))))) |
(setcdr entry (cons (cons min max) (cdr entry))))) |
376 |
(setq nnsoup-group-alist-touched t)) |
(setq nnsoup-group-alist-touched t)) |
377 |
nnsoup-group-alist)) |
nnsoup-group-alist)) |
651 |
(defun nnsoup-article-to-area (article group) |
(defun nnsoup-article-to-area (article group) |
652 |
"Return the area that ARTICLE in GROUP is located in." |
"Return the area that ARTICLE in GROUP is located in." |
653 |
(let ((areas (cddr (assoc group nnsoup-group-alist)))) |
(let ((areas (cddr (assoc group nnsoup-group-alist)))) |
654 |
(while (and areas (< (cdaar areas) article)) |
(while (and areas (< (cdar (car areas)) article)) |
655 |
(setq areas (cdr areas))) |
(setq areas (cdr areas))) |
656 |
(and areas (car areas)))) |
(and areas (car areas)))) |
657 |
|
|