[Emacs-diffs] /srv/bzr/emacs/trunk r104430: shr.el (shr-urlify): Use shr-add-font to make underlines be less ugly at the end of lines.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 104430
author: Gnus developers <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Sun 2011-05-29 23:28:45 +0000
message:
  shr.el (shr-urlify): Use shr-add-font to make underlines be less ugly at the 
end of lines.
  smiley.el (gnus-smiley-file-types): Add gif as supported file type.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/shr.el
  lisp/gnus/smiley.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2011-05-27 00:55:07 +0000
+++ b/lisp/gnus/ChangeLog       2011-05-29 23:28:45 +0000
@@ -1,3 +1,12 @@
+2011-05-29  Lars Magne Ingebrigtsen  <address@hidden>
+
+       * shr.el (shr-urlify): Use shr-add-font to make underlines be less ugly
+       at the end of lines.
+
+2011-05-29  Julien Danjou  <address@hidden>
+
+       * smiley.el (gnus-smiley-file-types): Add gif as supported file type.
+
 2011-05-27  Glenn Morris  <address@hidden>
 
        * gnus-group.el (gnus-bug-group-download-format-alist):

=== modified file 'lisp/gnus/shr.el'
--- a/lisp/gnus/shr.el  2011-05-16 09:33:14 +0000
+++ b/lisp/gnus/shr.el  2011-05-29 23:28:45 +0000
@@ -601,7 +601,7 @@
    :help-echo (if title (format "%s (%s)" url title) url)
    :keymap shr-map
    url)
-  (put-text-property start (point) 'face 'shr-link)
+  (shr-add-font start (point) 'shr-link)
   (put-text-property start (point) 'shr-url url))
 
 (defun shr-encode-url (url)

=== modified file 'lisp/gnus/smiley.el'
--- a/lisp/gnus/smiley.el       2011-01-25 04:08:28 +0000
+++ b/lisp/gnus/smiley.el       2011-05-29 23:28:45 +0000
@@ -133,9 +133,11 @@
   (let ((types (list "pbm")))
     (when (gnus-image-type-available-p 'xpm)
       (push "xpm" types))
+    (when (gnus-image-type-available-p 'gif)
+      (push "gif" types))
     types)
   "*List of suffixes on smiley file names to try."
-  :version "22.1"
+  :version "24.1"
   :type '(repeat string)
   :group 'smiley)