-(defun emh-yank-cur-msg-with-no-filter ()
- "Insert the current message into the draft buffer.
-This function makes new show-buffer from article-buffer to disable
-variable `mime-preview-text/plain-hook'. If you don't want to use text
-filters for replying message, please set it to
-`emh-message-yank-function'.
-Prefix each non-blank line in the message with the string in
-`mh-ins-buf-prefix'. The entire message will be inserted if
-`mh-yank-from-start-of-msg' is non-nil. If this variable is nil, the
-portion of the message following the point will be yanked. If
-`mh-delete-yanked-msg-window' is non-nil, any window displaying the
-yanked message will be deleted."
- (interactive)
- (if (and mh-sent-from-folder mh-sent-from-msg)
- (let ((to-point (point))
- (to-buffer (current-buffer)))
- (set-buffer mh-sent-from-folder)
- (if mh-delete-yanked-msg-window
- (delete-windows-on mh-show-buffer))
- (set-buffer mh-show-buffer) ; Find displayed message
- (let ((mh-ins-str
- (if mime-raw-buffer
- (let (mime-display-text/plain-hook buf)
- (prog1
- (save-window-excursion
- (set-buffer mime-raw-buffer)
- (setq buf (mime-view-mode))
- (buffer-string)
- )
- (kill-buffer buf)
- ))
- (buffer-string)
- )))
- (set-buffer to-buffer)
- (save-restriction
- (narrow-to-region to-point to-point)
- (push-mark)
- (insert mh-ins-str)
- (mh-insert-prefix-string mh-ins-buf-prefix)
- (insert "\n"))))
- (error "There is no current message")))
+;; (defun emh-yank-cur-msg-with-no-filter ()
+;; "Insert the current message into the draft buffer.
+;; This function makes new show-buffer from article-buffer to disable
+;; variable `mime-preview-text/plain-hook'. If you don't want to use text
+;; filters for replying message, please set it to
+;; `emh-message-yank-function'.
+;; Prefix each non-blank line in the message with the string in
+;; `mh-ins-buf-prefix'. The entire message will be inserted if
+;; `mh-yank-from-start-of-msg' is non-nil. If this variable is nil, the
+;; portion of the message following the point will be yanked. If
+;; `mh-delete-yanked-msg-window' is non-nil, any window displaying the
+;; yanked message will be deleted."
+;; (interactive)
+;; (if (and mh-sent-from-folder mh-sent-from-msg)
+;; (let ((to-point (point))
+;; (to-buffer (current-buffer)))
+;; (set-buffer mh-sent-from-folder)
+;; (if mh-delete-yanked-msg-window
+;; (delete-windows-on mh-show-buffer))
+;; (set-buffer mh-show-buffer) ; Find displayed message
+;; (let ((mh-ins-str
+;; (if mime-raw-buffer
+;; (let (mime-display-text/plain-hook buf)
+;; (prog1
+;; (save-window-excursion
+;; (set-buffer mime-raw-buffer)
+;; (setq buf (mime-view-mode))
+;; (buffer-string)
+;; )
+;; (kill-buffer buf)
+;; ))
+;; (buffer-string)
+;; )))
+;; (set-buffer to-buffer)
+;; (save-restriction
+;; (narrow-to-region to-point to-point)
+;; (push-mark)
+;; (insert mh-ins-str)
+;; (mh-insert-prefix-string mh-ins-buf-prefix)
+;; (insert "\n"))))
+;; (error "There is no current message")))