Mercurial > hg > xemacs-beta
diff lisp/gnus/gnus-move.el @ 155:43dd3413c7c7 r20-3b4
Import from CVS: tag r20-3b4
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:39:39 +0200 |
parents | ec9a17fef872 |
children | 8eaf7971accc |
line wrap: on
line diff
--- a/lisp/gnus/gnus-move.el Mon Aug 13 09:38:27 2007 +0200 +++ b/lisp/gnus/gnus-move.el Mon Aug 13 09:39:39 2007 +0200 @@ -125,7 +125,7 @@ ;; into the Gnus info format. (setq to-reads (gnus-range-add - (gnus-compress-sequence (sort to-reads '<) t) + (gnus-compress-sequence (and to-reads (sort to-reads '<)) t) (cons 1 (1- (car to-active))))) (gnus-info-set-read info to-reads) ;; Do the marks. I'm sure y'all understand what's @@ -142,7 +142,8 @@ (cons article (cdr a))))) (setq a lists) (while a - (setcdr (car a) (gnus-compress-sequence (sort (cdar a) '<))) + (setcdr (car a) (gnus-compress-sequence + (and (cdar a) (sort (cdar a) '<)))) (pop a)) (gnus-info-set-marks info lists t))))) (gnus-message 7 "Translating %s...done" group)))