[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r101320: gnus-html.el: Add the new co
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r101320: gnus-html.el: Add the new command gnus-html-show-images. |
Date: |
Sat, 04 Sep 2010 00:30:49 +0000 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 101320
author: Lars Magne Ingebrigtsen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Sat 2010-09-04 00:30:49 +0000
message:
gnus-html.el: Add the new command gnus-html-show-images.
modified:
doc/misc/ChangeLog
doc/misc/gnus.texi
lisp/gnus/ChangeLog
lisp/gnus/gnus-html.el
lisp/gnus/gnus-sum.el
=== modified file 'doc/misc/ChangeLog'
--- a/doc/misc/ChangeLog 2010-09-02 10:17:02 +0000
+++ b/doc/misc/ChangeLog 2010-09-04 00:30:49 +0000
@@ -1,4 +1,9 @@
+2010-09-03 Lars Magne Ingebrigtsen <address@hidden>
+
+ * gnus.texi (Article Display): Document gnus-html-show-images.
+
2010-09-02 Jan Djärv <address@hidden>
+
* cl.texi (Basic Setf): Remove x-get-cut-buffer and x-get-cutbuffer.
2010-09-01 Lars Magne Ingebrigtsen <address@hidden>
=== modified file 'doc/misc/gnus.texi'
--- a/doc/misc/gnus.texi 2010-09-02 00:55:51 +0000
+++ b/doc/misc/gnus.texi 2010-09-04 00:30:49 +0000
@@ -10351,6 +10351,14 @@
Remove all images from the article buffer
(@code{gnus-article-remove-images}).
address@hidden W D W
address@hidden W D W (Summary)
address@hidden gnus-html-show-images
+If you're reading an @acronym{HTML} article rendered with
address@hidden, then you can insert any blocked images in
+the buffer with this command.
+(@code{gnus-html-show-images}).
+
@end table
=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog 2010-09-04 00:21:34 +0000
+++ b/lisp/gnus/ChangeLog 2010-09-04 00:30:49 +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
=== modified file 'lisp/gnus/gnus-html.el'
--- a/lisp/gnus/gnus-html.el 2010-09-04 00:26:18 +0000
+++ b/lisp/gnus/gnus-html.el 2010-09-04 00:30:49 +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)
=== modified file 'lisp/gnus/gnus-sum.el'
--- a/lisp/gnus/gnus-sum.el 2010-09-02 03:35:06 +0000
+++ b/lisp/gnus/gnus-sum.el 2010-09-04 00:30:49 +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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r101320: gnus-html.el: Add the new command gnus-html-show-images.,
Katsumi Yamaoka <=