From 907a0c35c0abadad30f00c9f58d5671c369d63bf Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Thu, 18 Jul 2013 11:26:04 +0000 Subject: [PATCH] gnus-art.el (gnus-shr-put-image): Make it work as well for shr.el's that the old Emacs 24s bundle --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/gnus-art.el | 11 ++++++++--- 2 files changed, 13 insertions(+), 3 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 41fe2371f0b..768a03cca3d 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2013-07-18 Katsumi Yamaoka + + * gnus-art.el (gnus-shr-put-image): Make it work as well for shr.el's + that the old Emacs 24s bundle. + 2013-07-10 David Engster * gnus-start.el (gnus-clean-old-newsrc): Always remove 'unexist' marks diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index b41ff9c0550..304ac3da88c 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -6197,9 +6197,14 @@ Provided for backwards compatibility." (defun gnus-shr-put-image (data alt &optional flags) "Put image DATA with a string ALT. Enable image to be deleted." - (let ((image (shr-put-image data (propertize (or alt "*") - 'gnus-image-category 'shr) - flags))) + (let ((image (if flags + (shr-put-image data (propertize (or alt "*") + 'gnus-image-category 'shr) + flags) + ;; Old `shr-put-image' doesn't take the optional `flags' + ;; argument. + (shr-put-image data (propertize (or alt "*") + 'gnus-image-category 'shr))))) (when image (gnus-add-image 'shr image)))) -- 2.11.4.GIT