- ;; (address (read-from-minibuffer "Address of gopher server: ")))
- ;; (message "Connecting to '%s' ..." address)
- ;; (erase-buffer)
- ;; (insert (propertize "Hello, world." 'face '(foreground-color . "red")))
- ;; (newline)
- ;; (insert (propertize "Hello, Tim." 'face '(foreground-color . "yellow"))))
-