diff options
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2011-05-02 22:41:38 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2011-05-02 22:41:38 +0000 |
| commit | f3b146e943cd733fb716c75048f24b73826e5f30 (patch) | |
| tree | a6429a0a7b4cb7a2f89f37881a7f7fe186a08c1f /lisp/gnus/gnus-async.el | |
| parent | 11aedcecf750489e8022f0c2ee2452d35c82081a (diff) | |
| download | emacs-f3b146e943cd733fb716c75048f24b73826e5f30.tar.gz | |
Merge changes made in Gnus trunk.
gnus-html.el (gnus-html-schedule-image-fetching): Use url-queue-retrieve, if it exists.
shr.el (shr-tag-img): Ditto.
gnus.el: Autoload more gnus-agent functions.
gnus-art.el (gnus-request-article-this-buffer): Store articles in the agent if we haven't already (bug#8502).
gnus-async.el (gnus-async-article-callback): Put prefetched articles into the Agent, too.
gnus-agent.el (gnus-agent-store-article): New function.
Diffstat (limited to 'lisp/gnus/gnus-async.el')
| -rw-r--r-- | lisp/gnus/gnus-async.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/gnus/gnus-async.el b/lisp/gnus/gnus-async.el index b7e24b8dcfd..ad85bc5cf76 100644 --- a/lisp/gnus/gnus-async.el +++ b/lisp/gnus/gnus-async.el @@ -237,6 +237,12 @@ that was fetched." (save-excursion (save-restriction (narrow-to-region mark (point-max)) + ;; Put the articles into the agent, if they aren't already. + (when (and gnus-agent + (gnus-agent-group-covered-p group)) + (save-restriction + (narrow-to-region mark (point-max)) + (gnus-agent-store-article article group))) ;; Prefetch images for the groups that want that. (when (fboundp 'gnus-html-prefetch-images) (gnus-html-prefetch-images summary)) |