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-agent.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-agent.el')
-rw-r--r-- | lisp/gnus/gnus-agent.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lisp/gnus/gnus-agent.el b/lisp/gnus/gnus-agent.el index 52fbe9da11f..b4f0dc38e7e 100644 --- a/lisp/gnus/gnus-agent.el +++ b/lisp/gnus/gnus-agent.el @@ -3876,6 +3876,15 @@ has been fetched." (insert-file-contents file)) t)))) +(defun gnus-agent-store-article (article group) + (let* ((gnus-command-method (gnus-find-method-for-group group)) + (file (gnus-agent-article-name (number-to-string article) group)) + (file-name-coding-system nnmail-pathname-coding-system) + (coding-system-for-write gnus-cache-coding-system)) + (when (not (file-exists-p file)) + (gnus-make-directory (file-name-directory file)) + (write-region (point-min) (point-max) file nil 'silent)))) + (defun gnus-agent-regenerate-group (group &optional reread) "Regenerate GROUP. If REREAD is t, all articles in the .overview are marked as unread. |