+ ;; always ignore message
+ (let ((article-buffer
+ (if (not (and (stringp mh-sent-from-folder)
+ (numberp mh-sent-from-msg)
+ ))
+ (cond ((and (boundp 'gnus-original-article-buffer)
+ (bufferp mh-sent-from-folder)
+ (get-buffer gnus-original-article-buffer)
+ )
+ gnus-original-article-buffer)
+ ((and (boundp 'gnus-article-buffer)
+ (get-buffer gnus-article-buffer)
+ (bufferp mh-sent-from-msg)
+ )
+ (save-excursion
+ (set-buffer gnus-article-buffer)
+ (if (eq major-mode 'mime/viewer-mode)
+ mime::preview/article-buffer
+ (current-buffer)
+ )))
+ ))))
+ (if (null article-buffer)
+ (tm-mh-e/insert-mail
+ (tm-mh-e::make-message mh-sent-from-folder mh-sent-from-msg)
+ )
+ (insert-buffer article-buffer)
+ (mime-editor/inserted-message-filter)
+ )
+ ))
+
+(defun tm-mh-e/insert-mail (&optional message)
+ (setq message (tm-mh-e/query-message message))