macsf

 (defun mail-current-buffer ()
   (interactive)
   (save-excursion
     (if (region-active-p)
         (kill-ring-save (region-beginning) (region-end))
       (kill-ring-save (point-min) (point-max)))

     (mail)
     (next-line 3)
     (yank)