   (let* ((new-name (floo-get-item req "new_name"))
       (old-name (floo-get-item req "full_path"))
       (buf (get-file-buffer old-name)))
-    (message "%s %s %s" new-name old-name buf)
     (if buf
       (if (get-buffer new-name)
           (message "A buffer named '%s' already exists!" new-name)

  (let* ((old-path (floo-get-item req 'old_path))
        (new-path (floo-get-item req 'path))
        (buf (get-file-buffer old-path)))
    (message "renaming %s to %s" old-path new-path)
    (rename-file old-path new-path 1)
    (when buf
      (with-current-buffer buf

            (cons 'deleted deleted))))
        (floobits-send-to-agent req 'buffer_list_change)))))

; ;; filter annoying messages see http://www.emacswiki.org/emacs/EchoArea
; (defvar message-filter-regexp-list '("^Starting new Ispell process \\[.+\\] \\.\\.\\.$"
;                                      "^Ispell process killed$")
;   "filter formatted message string to remove noisy messages")
; (defadvice message (around message-filter-by-regexp activate)
;   (if (not (ad-get-arg 0))
;       ad-do-it
;     (let ((formatted-string (apply 'format (ad-get-args 0))))
;       (if (and (stringp formatted-string)
;                (some (lambda (re) (string-match re formatted-string)) message-filter-regexp-list))
;           (save-excursion
;             (set-buffer "*Messages*")
;             (goto-char (point-max))
;             (insert formatted-string "\n"))
;         (progn
;           (ad-set-args 0 `("%s" ,formatted-string))
;           ad-do-it)))))

(provide 'floobits)
;;; floobits.el ends here
