 (defun rc-menu-entry ()
   "Select this line's buffer in this window."
   (interactive)
-  (message (current-menu-entry)))
+  (setq filename-to-insert (current-menu-entry))
+  (message filename-to-insert)
+  (switch-to-buffer (other-buffer))
+  (insert-org-image filename-to-insert))
 
 
 (defun current-menu-entry ()
   "Return buffer described by this line of buffer menu."
-(buffer-substring (point-at-bol) (point-at-eol)))
+  (get-file-at-line (line-number-at-pos)))
+
 
 ;; simply prints a list
 (defun print-elements-of-list (list)

  (switch-to-buffer "*Inbox Selection*")
  (kill-all-local-variables)
  (setq buffer-read-only nil)
  (let ((inhibit-read-only t))
    (erase-buffer))
  (remove-overlays)

  (setq buffer-read-only t)

  (interactive "p")

;  (message file-table)
  (use-local-map rc-menu-mode-map))

(create-file-selection-form (find-files-and-directories dir-inbox))

(defun get-file-at-line (line)
  (car (cdr (assoc line file-table))))

