(shr-urlify): Decode URLs before using them as titles

Fixes: debbugs:19555

* lisp/net/shr.el (shr-urlify): Decode URLs before using them as titles.

lisp/ChangeLog

+2015-01-10  Ivan Shmakov  <ivan@siamics.net>
+
+	* net/shr.el (shr-urlify): Decode URLs before using them as titles
+	(bug#19555).
+
 2015-01-10  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
 	* net/eww.el (eww): Always interpret URLs that start with https?:

lisp/net/shr.el

@@ -894,7 +894,13 @@ START, and END.  Note that START and END should be markers."
   (add-text-properties
    start (point)
    (list 'shr-url url
-	 'help-echo (if title (shr-fold-text (format "%s (%s)" url title)) url)
+	 'help-echo (let ((iri (or (with-demoted-errors
+				       "shr-urlify: %s"
+				     (decode-coding-string
+				      (url-unhex-string url)
+				      'utf-8 t))
+				   url)))
+		      (if title (format "%s (%s)" iri title) iri))
 	 'follow-link t
 	 'mouse-face 'highlight
 	 'keymap shr-map)))