The Lambda Lab
/
projects
/
elpher.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
b0272de
)
Misplaced url-unhex was causing trouble.
author
plugd
<plugd@thelambdalab.xyz>
Mon, 19 Jul 2021 17:15:41 +0000
(19:15 +0200)
committer
plugd
<plugd@thelambdalab.xyz>
Mon, 19 Jul 2021 17:15:41 +0000
(19:15 +0200)
elpher.el
patch
|
blob
|
history
diff --git
a/elpher.el
b/elpher.el
index
327dd95
..
e5a9d09
100644
(file)
--- a/
elpher.el
+++ b/
elpher.el
@@
-269,8
+269,6
@@
some servers which do not support IPv6 can take a long time to time-out."
(let ((url (url-generic-parse-url url-string)))
(unless (and (not (url-fullness url)) (url-type url))
(setf (url-fullness url) t)
(let ((url (url-generic-parse-url url-string)))
(unless (and (not (url-fullness url)) (url-type url))
(setf (url-fullness url) t)
- (setf (url-filename url)
- (url-unhex-string (url-filename url)))
(unless (url-type url)
(setf (url-type url) "gopher"))
(when (or (equal "gopher" (url-type url))
(unless (url-type url)
(setf (url-type url) "gopher"))
(when (or (equal "gopher" (url-type url))
@@
-368,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
For gopher addresses this is a combination of the selector type and selector."
(if (symbolp address)
nil
- (url-
filename address
)))
+ (url-
unhex (url-filename address)
)))
(defun elpher-address-host (address)
"Retrieve host from ADDRESS object."
(defun elpher-address-host (address)
"Retrieve host from ADDRESS object."