Mercurial > emacs
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) |