From ab0bcf68a20f35b21413cec2af59e9614c76a9ea Mon Sep 17 00:00:00 2001 From: tomo Date: Mon, 10 Jan 2000 14:27:10 +0000 Subject: [PATCH] (emh-insert-message): Comment out GNUS and Gnus related codes. (emh-yank-cur-msg-with-no-filter): Comment out. --- emh-comp.el | 139 +++++++++++++++++++++++++++++------------------------------ 1 file changed, 69 insertions(+), 70 deletions(-) diff --git a/emh-comp.el b/emh-comp.el index 4c16c36..1fa22f5 100644 --- 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 +;; Author: MORIOKA Tomohiko ;; OKABE Yasuo ;; 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. -- 1.7.10.4