(emh-insert-message): Comment out GNUS and Gnus related codes.

(emh-yank-cur-msg-with-no-filter): Comment out.

diff --git a/emh-comp.el b/emh-comp.el
index 4c16c36..1fa22f5 100644 (file)
--- a/emh-comp.el
+++ b/emh-comp.el
@@ -1,8 +1,8 @@
 ;;; emh-comp.el --- emh functions for composing messages
 
-;; Copyright (C) 1993,1994,1995,1996,1997,1998 Free Software Foundation, Inc.
+;; Copyright (C) 1993,94,95,96,97,98,99,2000 Free Software Foundation, Inc.
 
-;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;; Author: MORIOKA Tomohiko <tomo@m17n.org>
 ;;         OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
 ;; Created: 1996/2/29 (separated from tm-mh-e.el)
 ;;     Renamed: 1997/2/21 from tmh-comp.el
@@ -140,33 +140,32 @@ system MH lib directory.")
 
 (defun emh-insert-message (&optional message)
   ;; always ignores 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-folder)
-                        )
-                   (save-excursion
-                     (set-buffer gnus-article-buffer)
-                     (if (eq major-mode 'mime-view-mode)
-                         mime-raw-buffer
-                       (current-buffer)
-                       )))
-                  ))))
-    (if (null article-buffer)
-       (emh-insert-mail
-        (emh::make-message mh-sent-from-folder mh-sent-from-msg)
-        )
-      (insert-buffer article-buffer)
-      (mime-edit-inserted-message-filter)
-      )
+  ;; (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-folder)
+  ;;                        )
+  ;;                   (save-excursion
+  ;;                     (set-buffer gnus-article-buffer)
+  ;;                     (if (eq major-mode 'mime-view-mode)
+  ;;                         mime-raw-buffer
+  ;;                       (current-buffer)
+  ;;                       )))
+  ;;                  ))))
+  (if (null article-buffer)
+      (emh-insert-mail
+       (emh::make-message mh-sent-from-folder mh-sent-from-msg))
+    ;; (insert-buffer article-buffer)
+    ;; (mime-edit-inserted-message-filter)
+    ;; )
     ))
 
 (defun emh-insert-mail (&optional message)
@@ -446,47 +445,47 @@ then prompt for the message sequence. See also documentation for
        (number (emh-prompt-for-message "Message number: " folder)))
     (emh::insert-letter folder number verbatim)))
 
-(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")))
 
 ;; (defun emh-yank-current-message ()
 ;;   "Insert the current message into the draft buffer.