comparison lisp/gnus/gnus-cache.el @ 64754:fafd692d1e40

Update years in copyright notice; nfc.
author Thien-Thi Nguyen <ttn@gnuvola.org>
date Sat, 06 Aug 2005 19:51:42 +0000
parents 18a818a2ee7c
children 28264c86d408 2d92f5c9d6ae
comparison
equal deleted inserted replaced
64753:343b05d4869b 64754:fafd692d1e40
1 ;;; gnus-cache.el --- cache interface for Gnus 1 ;;; gnus-cache.el --- cache interface for Gnus
2
2 ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 3 ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003,
3 ;; 2004, 2005 Free Software Foundation, Inc. 4 ;; 2004, 2005 Free Software Foundation, Inc.
4 5
5 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> 6 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
6 ;; Keywords: news 7 ;; Keywords: news
7 8
8 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
355 (when (gnus-cache-possibly-remove-article article nil nil nil t) 356 (when (gnus-cache-possibly-remove-article article nil nil nil t)
356 (when gnus-newsgroup-agentized 357 (when gnus-newsgroup-agentized
357 (let ((alist (gnus-agent-load-alist gnus-newsgroup-name))) 358 (let ((alist (gnus-agent-load-alist gnus-newsgroup-name)))
358 (unless (cdr (assoc article alist)) 359 (unless (cdr (assoc article alist))
359 (setq gnus-newsgroup-undownloaded 360 (setq gnus-newsgroup-undownloaded
360 (gnus-add-to-sorted-list 361 (gnus-add-to-sorted-list
361 gnus-newsgroup-undownloaded article))))) 362 gnus-newsgroup-undownloaded article)))))
362 (push article out)) 363 (push article out))
363 (gnus-summary-update-download-mark article) 364 (gnus-summary-update-download-mark article)
364 (gnus-summary-update-secondary-mark article)) 365 (gnus-summary-update-secondary-mark article))
365 (gnus-summary-next-subject 1) 366 (gnus-summary-next-subject 1)