+(defun elopher-get-index (host &optional port path)
+ (switch-to-buffer-other-window "*elopher*")
+ (erase-buffer)
+ (make-network-process
+ :name "elopher-process"
+ :host host
+ :service (if port port 70)
+ :filter #'elopher-filter)
+ (process-send-string "elopher-process" (format "%s\n" (if path path ""))))