From 8b6e616d2119af9250510441f806a47f42e2f2b5 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 11 Dec 2002 22:11:04 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 6 ++++++ lisp/gnus-agent.el | 5 +++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d903c4a..4563290 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2002-12-12 Kevin Greiner + + * gnus-agent.el (gnus-agent-fetch-selected-article): Added call to + gnus-summary-update-download-mark to update the article in the + summary. + 2002-12-11 Kevin Greiner * gnus.el (gnus-summary-high-uncached-face, diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el index c8c04a1..496927a 100644 --- a/lisp/gnus-agent.el +++ b/lisp/gnus-agent.el @@ -839,9 +839,10 @@ This can be added to `gnus-select-article-hook' or (let ((gnus-command-method gnus-current-select-method)) (when (and gnus-plugged (gnus-agent-method-p gnus-command-method)) (when (gnus-agent-fetch-articles - gnus-newsgroup-name + gnus-newsgroup-name (list gnus-current-article)) - (setq gnus-newsgroup-undownloaded (delq gnus-current-article gnus-newsgroup-undownloaded)))))) + (setq gnus-newsgroup-undownloaded (delq gnus-current-article gnus-newsgroup-undownloaded)) + (gnus-summary-update-download-mark gnus-current-article))))) ;;; ;;; Internal functions -- 1.7.10.4