         (set-buffer-modified-p nil)))))
 
 (defun floobits-send-highlight (&optional ping)
-  (when (eq (_floobits-is-buffer-public (current-buffer)) t)
+  (when (_floobits-is-buffer-public (current-buffer))
     (let* ((name (buffer-file-name (current-buffer)))
            (mark (or (mark) -1))
            (current (list


(defun floobits-event-highlight (req)
  (let* ((ranges (floo-get-item req 'ranges))
         (ranges-length (- (length ranges) 1))
         (buffer (get-file-buffer (floo-get-item req 'full_path)))
         (user_id (floo-get-item req 'user_id))
         (username (floo-get-item req 'username))
         (pos (+ 1 (elt (elt ranges ranges-length) 0)))
         (buffer (or buffer (and floobits-follow-mode (find-file (floo-get-item req 'full_path))))))

  (when buffer
    (floobits-apply-highlight user_id buffer ranges)


(defun floobits-apply-edit (edit)
  (let* ((inhibit-modification-hooks t)
        (edit-start (+ 1 (elt edit 0)))
        (edit-length (elt edit 1))
        (edit-end (min (+ 1 (buffer-size)) (+ edit-start edit-length))))
    (delete-region edit-start edit-end)
    (when (eq 3 (length edit))
      (goto-char edit-start)
