From: yamaoka Date: Wed, 11 Dec 2002 22:11:04 +0000 (+0000) Subject: Synch with Oort Gnus. X-Git-Tag: t-gnus-6_15_10-00-quimby~35 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8b6e616d2119af9250510441f806a47f42e2f2b5;p=elisp%2Fgnus.git- Synch with Oort Gnus. --- 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