(defun respond-to-grad-app-request ()
  (interactive)
  (let ((mh-reply-default-reply-to-save mh-reply-default-reply-to)
	(d (dot))
	(m nil))

    (setq mh-reply-default-reply-to "from")
    (forward-word 1)
    (setq m (string-to-int (buffer-substring d (dot))))
    (mh-reply m)
    (beginning-of-buffer)
    (forward-line 1)
    (insert "Bcc: gfisher\n")
    (search-forward "In-Reply-To")
    (next-line 1)
    (beginning-of-line)
    (setq d (dot))
    (search-forward "--------")
    (beginning-of-line)
    (kill-region d (dot))
    (end-of-buffer)
    (insert-file "~/faculty/grad-advising/app-request-response.me")
    (setq mh-reply-default-reply-to mh-reply-default-reply-to-save)
  )
)