-;; (defun tm-mh-e/set-window-configuration ()
-;; (save-excursion
-;; (set-buffer mh-show-buffer)
-;; (setq mime::preview/original-window-configuration
-;; (current-window-configuration))
-;; ))
-
-;; (add-hook 'mh-show-hook 'tm-mh-e/set-window-configuration)
+(defun tm-mh-e/following-method (buf)
+ (save-excursion
+ (set-buffer buf)
+ (goto-char (point-max))
+ (setq mh-show-buffer buf)
+ (apply (function mh-send)
+ (rfc822/get-field-bodies '("To" "cc" "Subject") ""))
+ (setq mh-sent-from-folder buf)
+ (setq mh-sent-from-msg 1)
+ (let ((last (point)))
+ (mh-yank-cur-msg)
+ (goto-char last)
+ )))
+
+(set-alist 'mime-viewer/following-method-alist
+ 'mh-show-mode
+ (function tm-mh-e/following-method))