From: Kevin Greiner Date: Wed, 11 Dec 2002 21:40:54 +0000 (+0000) Subject: * gnus-agent.el (gnus-agent-fetch-selected-article): Added call to X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=f265c046596ac33e408153188c37f985cb06095b;p=gnus * gnus-agent.el (gnus-agent-fetch-selected-article): Added call to gnus-summary-update-download-mark to update the article in the summary. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d903c4a6c..4563290e8 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 0443729fa..64ed8cbc5 100644 --- a/lisp/gnus-agent.el +++ b/lisp/gnus-agent.el @@ -824,9 +824,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