[gnus git] branch master updated: n0-17-74-gc19ae8d =2= (shr-rescale-image): Add an :ascent of 100 to images so that the underline comes at the bottom. ; (shr-rescale-image): Add an :ascent of 100 to images so that the underline comes at the bottom.

       via  c19ae8d02b2066e6e4d6b5e5765f4326e72a378e (commit)
       via  3ad842c0a4d9a19bb71e3341072a5b3062bbc6f5 (commit)
      from  7bae26a412bf41fbfeb05d7330c8fadf29b72dd1 (commit)


- Log -----------------------------------------------------------------
commit c19ae8d02b2066e6e4d6b5e5765f4326e72a378e
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Tue May 31 21:36:37 2011 +0200

    (shr-rescale-image): Add an :ascent of 100 to images so that the underline comes at the bottom.

diff --git a/lisp/shr.el b/lisp/shr.el
index 93aa7bc..67effc0 100644
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -533,7 +533,8 @@ the URL of the image to the kill buffer instead."
 (defun shr-rescale-image (data)
   (if (or (not (fboundp 'imagemagick-types))
 	  (not (get-buffer-window (current-buffer))))
-      (create-image data nil t)
+      (create-image data nil t
+		    :ascent 100)
     (let* ((image (create-image data nil t :ascent 100))
 	   (size (image-size image t))
 	   (width (car size))

commit 3ad842c0a4d9a19bb71e3341072a5b3062bbc6f5
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Tue May 31 21:36:03 2011 +0200

    (shr-rescale-image): Add an :ascent of 100 to images so that the underline comes at the bottom.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9d141f9..a62ef42 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-05-31  Lars Magne Ingebrigtsen  <[email protected]>
+
+	* shr.el (shr-rescale-image): Add an :ascent of 100 to images so that
+	the underline comes at the bottom.
+
 2011-05-31  Teodor Zlatanov  <[email protected]>
 
 	* gnus-registry.el (gnus-registry-article-marks-to-chars): Rename from
diff --git a/lisp/shr.el b/lisp/shr.el
index c5506d9..93aa7bc 100644
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -534,7 +534,7 @@ the URL of the image to the kill buffer instead."
   (if (or (not (fboundp 'imagemagick-types))
 	  (not (get-buffer-window (current-buffer))))
       (create-image data nil t)
-    (let* ((image (create-image data nil t))
+    (let* ((image (create-image data nil t :ascent 100))
 	   (size (image-size image t))
 	   (width (car size))
 	   (height (cdr size))
@@ -553,11 +553,13 @@ the URL of the image to the kill buffer instead."
       (when (> (car size) window-width)
 	(setq image (or
 		     (create-image data 'imagemagick t
-				   :width window-width)
+				   :width window-width
+				   :ascent 100)
 		     image)))
       (when (and (fboundp 'create-animated-image)
 		 (eq (image-type data nil t) 'gif))
-	(setq image (create-animated-image data 'gif t)))
+	(setq image (create-animated-image data 'gif t
+					   :ascent 100)))
       image)))
 
 ;; url-cache-extract autoloads url-cache.

-----------------------------------------------------------------------
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 |    5 +++++
 lisp/shr.el    |   11 +++++++----
 2 files changed, 12 insertions(+), 4 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