Mercurial > emacs

diff lisp/gnus/gnus-html.el @ 110169:49b2e6d8b396

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
line wrap: on
line diff
--- 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)