tm 7.75.

[elisp/tm.git] / tm-edit.el

diff --git a/tm-edit.el b/tm-edit.el
index 278853d..5e2eff6 100644 (file)
--- a/tm-edit.el
+++ b/tm-edit.el
@@ -8,7 +8,7 @@
 ;;;         MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Created: 1994/08/21 renamed from mime.el
-;;; Version: $Revision: 7.74 $
+;;; Version: $Revision: 7.75 $
 ;;; Keywords: mail, news, MIME, multimedia, multilingual
 ;;;
 ;;; This file is part of tm (Tools for MIME).
@@ -122,7 +122,7 @@
 ;;;
 
 (defconst mime-editor/RCS-ID
-  "$Id: tm-edit.el,v 7.74 1996/07/24 10:27:07 morioka Exp $")
+  "$Id: tm-edit.el,v 7.75 1996/07/31 02:51:16 morioka Exp $")
 
 (defconst mime-editor/version (get-version-string mime-editor/RCS-ID))
 
@@ -417,29 +417,7 @@ Each elements are regexp of field-name. [tm-edit.el]")
 (defvar mime-editor/split-blind-field-regexp
   "\\(^[BDFbdf]cc:\\|^cc:[ \t]*$\\)")
 
-(defvar mime-editor/split-message-sender-alist
-  '((mh-letter-mode
-     . (lambda (&optional arg)
-        (interactive "P")
-        (write-region (point-min) (point-max)
-                      mime-editor/draft-file-name nil 'no-message)
-        (cond (arg
-               (pop-to-buffer "MH mail delivery")
-               (erase-buffer)
-               (mh-exec-cmd-output mh-send-prog t "-watch" "-nopush"
-                                   "-nodraftfolder"
-                                   mh-send-args mime-editor/draft-file-name)
-               (goto-char (point-max)) ; show the interesting part
-               (recenter -1)
-               (sit-for 1))
-              (t
-               (apply 'mh-exec-cmd-quiet t mh-send-prog 
-                      (mh-list-to-string
-                       (list "-nopush" "-nodraftfolder"
-                             "-noverbose" "-nowatch"
-                             mh-send-args mime-editor/draft-file-name)))))
-        ))
-    ))
+(defvar mime-editor/split-message-sender-alist nil)
 
 (defvar mime-editor/news-reply-mode-server-running nil)