 		   (if buffer (with-current-buffer buffer (revert-buffer nil t t))
 		     ;;(message-box (format "modified unopened file: %s" f))))))
 		     nil))))
-	       (message "Refactoring succeeded!")))))))
+	       (message "Refactoring succeeded!")))))))))
 
 (defun create-new-file-p (filename erlang-refac-search-paths)
   (if (equal (locate-file (concat filename ".erl") erlang-refac-search-paths) nil)

	    (message "Refactoring failed: %s" rsn))
	   (['rex ['ok refac_fun_extraction]]
	    (with-current-buffer buffer (revert-buffer nil t t))
            (message "Refactoring succeeded!")))))))


(defun erl-refactor-fold-expression(node)

  (let ((current-file-name (buffer-file-name))
	(line-no           (current-line-no))
        (column-no         (current-column-no))
	(buffer (current-buffer)))
    (let (changed)
      (dolist (b (buffer-list) changed)
	(let* ((n (buffer-name b)) (n1 (substring n 0 1)))
	  (if (and (not (or (string= " " n1) (string= "*" n1))) (buffer-modified-p b))
	      (setq changed (cons (buffer-name b) changed)))))
      (if changed (message-box (format "there are modified buffers: %s" changed))
    (erl-spawn
      (erl-send-rpc node 'wrangler_distel 'tuple_funpar (list current-file-name line-no column-no number erlang-refac-search-paths))
      (erl-receive (buffer)
