Mercurial > emacs
changeset 46192:be3ff3e3e5b0
* gnus-topic.el (gnus-topic-indent, gnus-topic-unindent): Change
cdaar to cdar and car.
* nnsoup.el (nnsoup-retrieve-headers, nnsoup-request-type)
(nnsoup-read-active-file, nnsoup-article-to-area): Ditto.
| author | ShengHuo ZHU <zsh@cs.rochester.edu> |
|---|---|
| date | Sat, 06 Jul 2002 13:15:21 +0000 |
| parents | ee1f09c2135a |
| children | d76b60f898fc |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus-topic.el lisp/gnus/nnsoup.el |
| diffstat | 3 files changed, 15 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Sat Jul 06 09:42:31 2002 +0000 +++ b/lisp/gnus/ChangeLog Sat Jul 06 13:15:21 2002 +0000 @@ -1,3 +1,11 @@ +2002-07-06 ShengHuo ZHU <zsh@cs.rochester.edu> + + * gnus-topic.el (gnus-topic-indent, gnus-topic-unindent): Change + cdaar to cdar and car. + + * nnsoup.el (nnsoup-retrieve-headers, nnsoup-request-type) + (nnsoup-read-active-file, nnsoup-article-to-area): Ditto. + 2002-07-03 Juanma Barranquero <lektu@terra.es> * gnus-sum.el (gnus-summary-highlight): Fix typo.
--- a/lisp/gnus/gnus-topic.el Sat Jul 06 09:42:31 2002 +0000 +++ b/lisp/gnus/gnus-topic.el Sat Jul 06 13:15:21 2002 +0000 @@ -1416,7 +1416,7 @@ (gnus-topic-kill-group) (push (cdar gnus-topic-killed-topics) gnus-topic-alist) (gnus-topic-create-topic - topic parent nil (cdaar gnus-topic-killed-topics)) + topic parent nil (cdar (car gnus-topic-killed-topics))) (pop gnus-topic-killed-topics) (or (gnus-topic-goto-topic topic) (gnus-topic-goto-topic parent)))))) @@ -1435,7 +1435,7 @@ (push (cdar gnus-topic-killed-topics) gnus-topic-alist) (gnus-topic-create-topic topic grandparent (gnus-topic-next-topic parent) - (cdaar gnus-topic-killed-topics)) + (cdar (car gnus-topic-killed-topics))) (pop gnus-topic-killed-topics) (gnus-topic-goto-topic topic))))
--- a/lisp/gnus/nnsoup.el Sat Jul 06 09:42:31 2002 +0000 +++ b/lisp/gnus/nnsoup.el Sat Jul 06 13:15:21 2002 +0000 @@ -114,7 +114,7 @@ ;; articles in SEQUENCE come from. (while (and areas sequence) ;; Peel off areas that are below sequence. - (while (and areas (< (cdaar areas) (car sequence))) + (while (and areas (< (cdar (car areas)) (car sequence))) (setq areas (cdr areas))) (when areas ;; This is a useful area. @@ -130,7 +130,7 @@ (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) (cdaar areas))) + (while (and sequence (<= (car sequence) (cdar (car areas)))) (push (car sequence) this-area-seq) (setq sequence (cdr sequence))) (setcar useful-areas (cons (nreverse this-area-seq) @@ -249,7 +249,7 @@ ;; Try to guess the type based on the first article in the group. (when (not article) (setq article - (cdaar (cddr (assoc group nnsoup-group-alist))))) + (cdar (car (cddr (assoc group nnsoup-group-alist)))))) (if (not article) 'unknown (let ((kind (gnus-soup-encoding-kind @@ -371,7 +371,7 @@ (setq min (caaar e)) (while (cdr e) (setq e (cdr e))) - (setq max (cdaar e)) + (setq max (cdar (car e))) (setcdr entry (cons (cons min max) (cdr entry))))) (setq nnsoup-group-alist-touched t)) nnsoup-group-alist)) @@ -651,7 +651,7 @@ (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 (< (cdaar areas) article)) + (while (and areas (< (cdar (car areas)) article)) (setq areas (cdr areas))) (and areas (car areas))))