(defun kagi-reply (buffer)
  (interactive "bBuffer to reply to: ")
  (save-excursion
    (mail)
    (kill-region (point-min) (point-max)))
  (shell-command-on-region (point-min) (point-max) 
			   "/afs/athena/user/g/a/gamadrid/perl/newhash.pl" 
			   "*mail*"))