* 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 d903c4a..4563290 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2002-12-12  Kevin Greiner <kgreiner@xpediantsolutions.com>
+
+       * 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 <kgreiner@xpediantsolutions.com>
 
        * gnus.el (gnus-summary-high-uncached-face,

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 0443729..64ed8cb 100644 (file)
--- 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