;; Author: Tim Vaughan <plugd@thelambdalab.xyz>
;; Created: 11 April 2019
-;; Version: 2.7.10
+;; Version: 2.7.11
;; Keywords: comm gopher
;; Homepage: http://thelambdalab.xyz/elpher
;; Package-Requires: ((emacs "26"))
;;; Global constants
;;
-(defconst elpher-version "2.7.10"
+(defconst elpher-version "2.7.11"
"Current version of elpher.")
(defconst elpher-margin-width 6
"Get string representation of ADDRESS, or nil if ADDRESS is special."
(if (elpher-address-special-p address)
nil
- (let* ((port (url-port address))
- (address-to-convert
- (if (= port 0)
- address
- (let ((address-copy (seq-copy address))
- (protocol (url-type address)))
- (if (or (and (equal protocol "gopher")
- (= port 70))
- (and (equal protocol "gemini")
- (= port 1965))
- (and (equal protocol "http")
- (= port 80))
- (and (equal protocol "finger")
- (= port 79)))
- (setf (url-port address-copy) 0))
- address-copy))))
- (url-encode-url (url-recreate-url address-to-convert)))))
+ (url-encode-url (url-recreate-url address))))
(defun elpher-address-type (address)
"Retrieve type of ADDRESS object.