(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"))
(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"))