- (cond ((or (string-equal protocol "gopher")
- (string-equal protocol "gophers"))
- (list 'gopher
- ((let ((filename (url-filename address)))
- (if (> (length filename) 0)
- (string-to-char filename)
- ?1)))))
+ (cond ((or (equal protocol "gopher")
+ (equal protocol "gophers"))
+ (list 'gopher (string-to-char (url-filename address)) ?1))