From 4527a9f989f25df210029b2a6ee91402ebe7d0be Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Fri, 3 Sep 2010 20:46:43 +0200 Subject: [PATCH] Add the new command gnus-html-show-images. --- lisp/ChangeLog | 2 ++ lisp/gnus-html.el | 12 ++++++++++++ lisp/gnus-sum.el | 1 + texi/ChangeLog | 4 ++++ texi/gnus.texi | 8 ++++++++ 5 files changed, 27 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a6f05e1a3..dc32f488a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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 diff --git a/lisp/gnus-html.el b/lisp/gnus-html.el index a42cd9309..c0e0ed733 100644 --- a/lisp/gnus-html.el +++ b/lisp/gnus-html.el @@ -362,6 +362,18 @@ fit these criteria." 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) diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index f1ea15dff..37cf4a114 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -2110,6 +2110,7 @@ increase the score of each group you read." "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) diff --git a/texi/ChangeLog b/texi/ChangeLog index 0f74df24c..a3a3ddc2c 100644 --- a/texi/ChangeLog +++ b/texi/ChangeLog @@ -1,3 +1,7 @@ +2010-09-03 Lars Magne Ingebrigtsen + + * gnus.texi (Article Display): Document gnus-html-show-images. + 2010-09-01 Lars Magne Ingebrigtsen * gnus.texi (HTML): Document gnus-max-image-proportion. diff --git a/texi/gnus.texi b/texi/gnus.texi index 688d56f37..a0e9aed57 100644 --- a/texi/gnus.texi +++ b/texi/gnus.texi @@ -10351,6 +10351,14 @@ Piconify all news headers (i. e., @code{Newsgroups} and 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 -- 2.25.1