Show the URL before the title to avoid misleading URLs.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 30f757f..51b6dc0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-12-04  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * shr.el (shr-urlify): Show the URL before the title to avoid
+       misleading URLs.
+
 2010-12-04  Adam Sjøgren  <asjo@koldfront.dk>
 
        * shr.el (shr-urlify): Display the title in <a> tags.

diff --git a/lisp/shr.el b/lisp/shr.el
index 31af4b2..228d879 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -547,7 +547,7 @@ START, and END."
 (defun shr-urlify (start url &optional title)
   (widget-convert-button
    'url-link start (point)
-   :help-echo (if title (format "%s (%s)" title url) url)
+   :help-echo (if title (format "%s (%s)" url title) url)
    :keymap shr-map
    url)
   (put-text-property start (point) 'shr-url url))