Mercurial > emacs

comparison lisp/gnus/nnml.el @ 106850:a6629254b6ba

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
from trunk
author Kenichi Handa <handa@m17n.org>
date Fri, 15 Jan 2010 14:13:05 +0900
parents 855f55740303
children d6a756a04dd0 376148b31b5e
comparison
equal deleted inserted replaced
106849:731b62c1f5cb 106850:a6629254b6ba
1198 ;; 2/ Update all marks for this article: 1198 ;; 2/ Update all marks for this article:
1199 ;; #### NOTE: it is possible that the new article number 1199 ;; #### NOTE: it is possible that the new article number
1200 ;; #### already belongs to a range, whereas the corresponding 1200 ;; #### already belongs to a range, whereas the corresponding
1201 ;; #### article doesn't exist (for example, if you delete an 1201 ;; #### article doesn't exist (for example, if you delete an
1202 ;; #### article). For that reason, it is important to update 1202 ;; #### article). For that reason, it is important to update
1203 ;; #### the ranges (meaning remove inexistant articles) before 1203 ;; #### the ranges (meaning remove inexistent articles) before
1204 ;; #### doing anything on them. 1204 ;; #### doing anything on them.
1205 ;; 2 a/ read articles: 1205 ;; 2 a/ read articles:
1206 (let ((read (gnus-info-read info))) 1206 (let ((read (gnus-info-read info)))
1207 (setq read (gnus-remove-from-range read (list new-number))) 1207 (setq read (gnus-remove-from-range read (list new-number)))
1208 (when (gnus-member-of-range old-number read) 1208 (when (gnus-member-of-range old-number read)