Mercurial > emacs
changeset 110169:49b2e6d8b396
gnus-html.el: Add the new command gnus-html-show-images.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Sat, 04 Sep 2010 00:30:49 +0000 |
| parents | 1feebeccf097 |
| children | 5e7ec1dda5c0 |
| files | doc/misc/ChangeLog doc/misc/gnus.texi lisp/gnus/ChangeLog lisp/gnus/gnus-html.el lisp/gnus/gnus-sum.el |
| diffstat | 5 files changed, 28 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/doc/misc/ChangeLog Sat Sep 04 00:26:18 2010 +0000 +++ b/doc/misc/ChangeLog Sat Sep 04 00:30:49 2010 +0000 @@ -1,4 +1,9 @@ +2010-09-03 Lars Magne Ingebrigtsen <larsi@gnus.org> + + * gnus.texi (Article Display): Document gnus-html-show-images. + 2010-09-02 Jan Djärv <jan.h.d@swipnet.se> + * cl.texi (Basic Setf): Remove x-get-cut-buffer and x-get-cutbuffer. 2010-09-01 Lars Magne Ingebrigtsen <larsi@gnus.org>
--- a/doc/misc/gnus.texi Sat Sep 04 00:26:18 2010 +0000 +++ b/doc/misc/gnus.texi Sat Sep 04 00:30:49 2010 +0000 @@ -10351,6 +10351,14 @@ Remove all images from the article buffer (@code{gnus-article-remove-images}). +@item W D W +@kindex W D W (Summary) +@findex gnus-html-show-images +If you're reading an @acronym{HTML} article rendered with +@code{gnus-article-html}, then you can insert any blocked images in +the buffer with this command. +(@code{gnus-html-show-images}). + @end table
--- a/lisp/gnus/ChangeLog Sat Sep 04 00:26:18 2010 +0000 +++ b/lisp/gnus/ChangeLog Sat Sep 04 00:30:49 2010 +0000 @@ -3,6 +3,8 @@ * gnus-html.el (gnus-html-put-image): Allow images to be removed. (gnus-html-wash-tags): Add a new `i' command to insert images. (gnus-html-insert-image): New command and keystroke. + (gnus-html-redisplay-with-images): New command and keystroke. + (gnus-html-show-images): Renamed command. * gnus-agent.el (gnus-agent-auto-agentize-methods): Change the default so that nnimap methods aren't agentized by default. There's apparently
--- a/lisp/gnus/gnus-html.el Sat Sep 04 00:26:18 2010 +0000 +++ b/lisp/gnus/gnus-html.el Sat Sep 04 00:30:49 2010 +0000 @@ -362,6 +362,18 @@ url blocked-images)) ret)) +(defun gnus-html-show-images () + "Show any images that are in the HTML-rendered article buffer. +This only works if the article in question is HTML." + (interactive) + (gnus-with-article-buffer + (let ((overlays (overlays-in (point-min) (point-max))) + overlay images) + (while (setq overlay (pop overlays)) + (when (overlay-get overlay 'gnus-image) + (push (overlay-get overlay 'gnus-image) images))) + (gnus-html-schedule-image-fetching (current-buffer) images)))) + ;;;###autoload (defun gnus-html-prefetch-images (summary) (let (blocked-images urls)
--- a/lisp/gnus/gnus-sum.el Sat Sep 04 00:26:18 2010 +0000 +++ b/lisp/gnus/gnus-sum.el Sat Sep 04 00:30:49 2010 +0000 @@ -2110,6 +2110,7 @@ "d" gnus-article-display-face "s" gnus-treat-smiley "D" gnus-article-remove-images + "W" gnus-html-show-images "f" gnus-treat-from-picon "m" gnus-treat-mail-picon "n" gnus-treat-newsgroups-picon)