(defun foo ()
  "docstring"
  (save-excursion
    (beginning-of-line)
    (push-mark (point) t nil)
    (let ((this-indent (current-indentation)))
      (forward-line 1)
      (while (> (current-indentation) this-indent)
        (forward-line 1)))
    (beginning-of-line)
    ;; do something sensible with the region instead
    (copy-region-as-kill (region-beginning) (region-end))
    (end-of-buffer)
    (yank)
    ;; end of party
    ))