diff options
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 1997-09-24 01:50:24 +0000 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen <larsi@gnus.org> | 1997-09-24 01:50:24 +0000 |
| commit | a8151ef7e5caf46b41fc52f8189b07d1fa6c184e (patch) | |
| tree | 8eb82a1990da4afe2e247c1397e42a20128f0568 /lisp/gnus/gnus-range.el | |
| parent | 5f016f400343a57d641642ce114f90d3a15082e1 (diff) | |
| download | emacs-a8151ef7e5caf46b41fc52f8189b07d1fa6c184e.tar.gz | |
*** empty log message ***
Diffstat (limited to 'lisp/gnus/gnus-range.el')
| -rw-r--r-- | lisp/gnus/gnus-range.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/gnus/gnus-range.el b/lisp/gnus/gnus-range.el index 54d92822e84..6b86f4df3ca 100644 --- a/lisp/gnus/gnus-range.el +++ b/lisp/gnus/gnus-range.el @@ -209,7 +209,7 @@ Note: LIST has to be sorted over `<'." (setcar ranges (cons (car ranges) (cadr ranges))) (setcdr ranges (cddr ranges))) - (when (= (1+ (car ranges)) (car (cadr ranges))) + (when (= (1+ (car ranges)) (caadr ranges)) (setcar (cadr ranges) (car ranges)) (setcar ranges (cadr ranges)) (setcdr ranges (cddr ranges))))) @@ -218,8 +218,8 @@ Note: LIST has to be sorted over `<'." (when (= (1+ (cdar ranges)) (cadr ranges)) (setcdr (car ranges) (cadr ranges)) (setcdr ranges (cddr ranges))) - (when (= (1+ (cdar ranges)) (car (cadr ranges))) - (setcdr (car ranges) (cdr (cadr ranges))) + (when (= (1+ (cdar ranges)) (caadr ranges)) + (setcdr (car ranges) (cdadr ranges)) (setcdr ranges (cddr ranges)))))) (setq ranges (cdr ranges))) out))) |