(defun nkagi-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/twohash.pl" 
			   "*mail*"))