-(defun gnus-mh-mail-setup (to subject in-reply-to cc replybuffer actions)
- (let ((config (current-window-configuration)))
- (setq mh-show-buffer gnus-article-copy)
- (mh-find-path)
- (mh-send-sub (or to "") (or cc "") (or subject "(None)") config)
- (goto-char (point-min))
- (insert "In-Reply-To: " in-reply-to "\n")
- (setq mh-sent-from-folder gnus-article-copy)
- (setq mh-sent-from-msg 1)
- (setq mh-previous-window-config config)))
-