Encode URLs before display in mouse-over.

[elpher.git] / elpher.el

diff --git a/elpher.el b/elpher.el
index c135e09..cca05b8 100644 (file)
--- a/elpher.el
+++ b/elpher.el
@@ -707,7 +707,7 @@ displayed.  The _WINDOW argument is currently unused."
                (address (elpher-page-address page)))
           (format "mouse-1, RET: open '%s'" (if (elpher-address-special-p address)
                                                 address
                (address (elpher-page-address page)))
           (format "mouse-1, RET: open '%s'" (if (elpher-address-special-p address)
                                                 address

-                                              (url-recreate-url address))))))))
+                                              (elpher-address-to-url address))))))))

 
 (defun elpher-insert-index-record (display-string &optional address)
   "Function to insert an index record into the current buffer.
 
 (defun elpher-insert-index-record (display-string &optional address)
   "Function to insert an index record into the current buffer.