                     (file-error 'no-conn))))
           (if (eq *emdocs-server* 'no-conn)
               (progn
-                (message "Server could not connect: exiting.")
+                (message "Server could not be started: exiting.")
                 (setq *emdocs-server* nil)
                 (setq emdocs-mode nil)
                 (emdocs-disconnect))

                       (setq emdocs-mode nil)
                       (emdocs-disconnect))
              (with-current-buffer buffer
                (setq emdocs-is-network-insert nil)
                (setq emdocs-after-change-lambda
                      (lambda (beg end prev-length)
                        (emdocs-after-change-function
                         buffer beg end prev-length)))
                (setq-local after-change-functions
                            (cons
                             #'emdocs-after-change-lambda
                             after-change-functions))))))
      (message "Not connected to internet: exiting.")
      (setq emdocs-mode nil)
      (emdocs-disconnect))))

             (delete-process (emdocs-get-process client))))
  (setq *emdocs-incoming-clients*
        (remove-if #'emdocs-test-if-client-attached-to-buffer
                   *emdocs-incoming-clients*))
  (setq-local after-change-functions
              (remove emdocs-after-change-lambda after-change-functions))
  (setq-local emdocs-after-change-lambda nil))

;;; interactives
(defun emdocs-kill-server ()
