projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(gnus-group-jump-to-group-prompt): Allow an alist.
[gnus]
/
lisp
/
nnsoup.el
diff --git
a/lisp/nnsoup.el
b/lisp/nnsoup.el
index
f8d9b38
..
009a1d3
100644
(file)
--- a/
lisp/nnsoup.el
+++ b/
lisp/nnsoup.el
@@
-1,6
+1,6
@@
;;; nnsoup.el --- SOUP access for Gnus
;;; nnsoup.el --- SOUP access for Gnus
-;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002
+;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002
, 2003
;; Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
@@
-114,7
+114,7
@@
backend for the messages.")
;; articles in SEQUENCE come from.
(while (and areas sequence)
;; Peel off areas that are below sequence.
;; articles in SEQUENCE come from.
(while (and areas sequence)
;; Peel off areas that are below sequence.
- (while (and areas (< (cda
ar areas
) (car sequence)))
+ (while (and areas (< (cda
r (car areas)
) (car sequence)))
(setq areas (cdr areas)))
(when areas
;; This is a useful area.
(setq areas (cdr areas)))
(when areas
;; This is a useful area.
@@
-130,7
+130,7
@@
backend for the messages.")
(setq use-nov nil))
;; We assign the portion of `sequence' that is relevant to
;; this MSG packet to this packet.
(setq use-nov nil))
;; We assign the portion of `sequence' that is relevant to
;; this MSG packet to this packet.
- (while (and sequence (<= (car sequence) (cda
ar areas
)))
+ (while (and sequence (<= (car sequence) (cda
r (car areas)
)))
(push (car sequence) this-area-seq)
(setq sequence (cdr sequence)))
(setcar useful-areas (cons (nreverse this-area-seq)
(push (car sequence) this-area-seq)
(setq sequence (cdr sequence)))
(setcar useful-areas (cons (nreverse this-area-seq)
@@
-158,7
+158,7
@@
backend for the messages.")
(when index-buffer
(insert-buffer-substring index-buffer)
(goto-char b)
(when index-buffer
(insert-buffer-substring index-buffer)
(goto-char b)
- ;; We have to remove the index number ent
ir
es and
+ ;; We have to remove the index number ent
ri
es and
;; insert article numbers instead.
(while (looking-at "[0-9]+")
(replace-match (int-to-string number) t t)
;; insert article numbers instead.
(while (looking-at "[0-9]+")
(replace-match (int-to-string number) t t)
@@
-249,7
+249,7
@@
backend for the messages.")
;; Try to guess the type based on the first article in the group.
(when (not article)
(setq article
;; Try to guess the type based on the first article in the group.
(when (not article)
(setq article
- (cda
ar (cddr (assoc group nnsoup-group-alist
)))))
+ (cda
r (car (cddr (assoc group nnsoup-group-alist)
)))))
(if (not article)
'unknown
(let ((kind (gnus-soup-encoding-kind
(if (not article)
'unknown
(let ((kind (gnus-soup-encoding-kind
@@
-371,7
+371,7
@@
backend for the messages.")
(setq min (caaar e))
(while (cdr e)
(setq e (cdr e)))
(setq min (caaar e))
(while (cdr e)
(setq e (cdr e)))
- (setq max (cda
ar e
))
+ (setq max (cda
r (car e)
))
(setcdr entry (cons (cons min max) (cdr entry)))))
(setq nnsoup-group-alist-touched t))
nnsoup-group-alist))
(setcdr entry (cons (cons min max) (cdr entry)))))
(setq nnsoup-group-alist-touched t))
nnsoup-group-alist))
@@
-399,7
+399,7
@@
backend for the messages.")
prefix))
(defun nnsoup-file-name (dir file)
prefix))
(defun nnsoup-file-name (dir file)
- "Return the full
path
of FILE (in any case) in DIR."
+ "Return the full
name
of FILE (in any case) in DIR."
(let* ((case-fold-search t)
(files (directory-files dir t))
(regexp (concat (regexp-quote file) "$")))
(let* ((case-fold-search t)
(files (directory-files dir t))
(regexp (concat (regexp-quote file) "$")))
@@
-651,7
+651,7
@@
backend for the messages.")
(defun nnsoup-article-to-area (article group)
"Return the area that ARTICLE in GROUP is located in."
(let ((areas (cddr (assoc group nnsoup-group-alist))))
(defun nnsoup-article-to-area (article group)
"Return the area that ARTICLE in GROUP is located in."
(let ((areas (cddr (assoc group nnsoup-group-alist))))
- (while (and areas (< (cda
ar areas
) article))
+ (while (and areas (< (cda
r (car areas)
) article))
(setq areas (cdr areas)))
(and areas (car areas))))
(setq areas (cdr areas)))
(and areas (car areas))))