Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-move.el @ 155:43dd3413c7c7 r20-3b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b4
author cvs
date Mon, 13 Aug 2007 09:39:39 +0200
parents ec9a17fef872
children 8eaf7971accc
comparison
equal deleted inserted replaced
154:94141801dd7e 155:43dd3413c7c7
123 ;; Now we know what the read articles are and what the 123 ;; Now we know what the read articles are and what the
124 ;; article marks are. We transform the information 124 ;; article marks are. We transform the information
125 ;; into the Gnus info format. 125 ;; into the Gnus info format.
126 (setq to-reads 126 (setq to-reads
127 (gnus-range-add 127 (gnus-range-add
128 (gnus-compress-sequence (sort to-reads '<) t) 128 (gnus-compress-sequence (and to-reads (sort to-reads '<)) t)
129 (cons 1 (1- (car to-active))))) 129 (cons 1 (1- (car to-active)))))
130 (gnus-info-set-read info to-reads) 130 (gnus-info-set-read info to-reads)
131 ;; Do the marks. I'm sure y'all understand what's 131 ;; Do the marks. I'm sure y'all understand what's
132 ;; going on down below, so I won't bother with any 132 ;; going on down below, so I won't bother with any
133 ;; further comments. <duck> 133 ;; further comments. <duck>
140 (while ms 140 (while ms
141 (setcdr (setq a (assq (pop ms) lists)) 141 (setcdr (setq a (assq (pop ms) lists))
142 (cons article (cdr a))))) 142 (cons article (cdr a)))))
143 (setq a lists) 143 (setq a lists)
144 (while a 144 (while a
145 (setcdr (car a) (gnus-compress-sequence (sort (cdar a) '<))) 145 (setcdr (car a) (gnus-compress-sequence
146 (and (cdar a) (sort (cdar a) '<))))
146 (pop a)) 147 (pop a))
147 (gnus-info-set-marks info lists t))))) 148 (gnus-info-set-marks info lists t)))))
148 (gnus-message 7 "Translating %s...done" group))) 149 (gnus-message 7 "Translating %s...done" group)))
149 150
150 (defun gnus-group-move-group-to-server (info from-server to-server) 151 (defun gnus-group-move-group-to-server (info from-server to-server)