(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) ) )