X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=elpher.git;a=blobdiff_plain;f=elpher.el;h=a107f075b713a10813eceda8758b6d215997f28c;hp=e5a9d090a73f5a25c5a6164f8a518607ef5b8f4c;hb=3cddc8bdcb0a05ecd308c310bcd020f7288af4de;hpb=58919c64516a1f51bc5828647c978960f5ab7612 diff --git a/elpher.el b/elpher.el index e5a9d09..a107f07 100644 --- a/elpher.el +++ b/elpher.el @@ -366,7 +366,7 @@ address refers to, via the table `elpher-type-map'." For gopher addresses this is a combination of the selector type and selector." (if (symbolp address) nil - (url-unhex (url-filename address)))) + (url-unhex-string (url-filename address)))) (defun elpher-address-host (address) "Retrieve host from ADDRESS object." @@ -390,7 +390,7 @@ If no address is defined, returns 0. (This is for compatibility with the URL li (defun elpher-address-gopher-p (address) "Return non-nill if ADDRESS object is a gopher address." (and (not (elpher-address-special-p address)) - (member (elpher-address-protocol address) '("gopher gophers")))) + (member (elpher-address-protocol address) '("gopher" "gophers")))) (defun elpher-gopher-address-selector (address) "Retrieve gopher selector from ADDRESS object."