[gnus git] branch master updated: n0-17-339-gcd77bea =1= shr.el (shr-tag-img): Don't get images displayed in tables.
Katsumi Yamaoka <[email protected]>
| Newsgroups | gmane.emacs.gnus.cvs |
|---|---|
| Message-ID | <[email protected]> |
via cd77bea7d3620c386fcdbc1b4d020ce4bcf8f779 (commit)
from cc54229da96a8cf285f5bc2133bf53a3e2e3d0f5 (commit)
- Log -----------------------------------------------------------------
commit cd77bea7d3620c386fcdbc1b4d020ce4bcf8f779
Author: Katsumi Yamaoka <[email protected]>
Date: Thu Oct 6 09:24:53 2011 +0000
shr.el (shr-tag-img): Don't get images displayed in tables.
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 62440c1..ee91cdf 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-10-06 Katsumi Yamaoka <[email protected]>
+
+ * shr.el (shr-tag-img): Don't get images displayed in tables.
+
2011-10-03 Glenn Morris <[email protected]>
* gnus-group.el (gnus-bug-group-download-format-alist): Once again get
diff --git a/lisp/shr.el b/lisp/shr.el
index ddf47f4..7b9af33 100644
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -914,12 +914,13 @@ ones, in case fg and bg are nil."
(shr-encode-url url) 'shr-image-fetched
(list (current-buffer) start (set-marker (make-marker) (1- (point))))
t)))
+ (when (zerop shr-table-depth) ;; We are not in a table.
(put-text-property start (point) 'keymap shr-map)
(put-text-property start (point) 'shr-alt alt)
(put-text-property start (point) 'image-url url)
(put-text-property start (point) 'image-displayer
(shr-image-displayer shr-content-function))
- (put-text-property start (point) 'help-echo alt)
+ (put-text-property start (point) 'help-echo alt))
(setq shr-state 'image)))))
(defun shr-tag-pre (cont)
-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.
Summary of changes:
lisp/ChangeLog | 4 ++++
lisp/shr.el | 13 +++++++------
2 files changed, 11 insertions(+), 6 deletions(-)
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".
The branch, master has been updated
hooks/post-receive
--
Gnus Project