(let ((host-or-url (read-string "Gopher host or URL: ")))
(if (string-match elpher-url-regex host-or-url)
(if (not (string= (downcase (match-string 1 host-or-url)) "gopher"))
- (error "Only gopher URLs acceptable.")
+ (error "Only gopher URLs acceptable")
(let* ((host (match-string 2 host-or-url))
(port (if (match-string 3 host-or-url)
(string-to-number (substring (match-string 3 host-or-url) 1))