tm 7.76.

[elisp/tm.git] / gnus / tm-sgnus.el

diff --git a/gnus/tm-sgnus.el b/gnus/tm-sgnus.el
index 86f6b6b..3c02ef7 100644 (file)
--- a/gnus/tm-sgnus.el
+++ b/gnus/tm-sgnus.el
@@ -8,7 +8,7 @@
 ;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;;         and KOBAYASHI Shuhei <shuhei-k@jaist.ac.jp>
 ;;; Created: 1995/09/24
-;;; Version: $Revision: 7.68 $
+;;; Version: $Revision: 7.69 $
 ;;; Keywords: news, MIME, multimedia, multilingual, encoded-word
 ;;;
 ;;; This file is part of tm (Tools for MIME).
@@ -42,7 +42,7 @@
 ;;;
 
 (defconst tm-gnus/RCS-ID
-  "$Id: tm-sgnus.el,v 7.68 1996/06/07 15:28:40 morioka Exp $")
+  "$Id: tm-sgnus.el,v 7.69 1996/06/09 06:57:33 morioka Exp $")
 
 (defconst tm-gnus/version
   (concat (get-version-string tm-gnus/RCS-ID) " for September"))
@@ -175,12 +175,20 @@ This variable is set to `gnus-show-mime'.")
  'tm-edit
  (function
   (lambda ()
-    (set-alist
-     'mime-editor/message-inserter-alist
-     'message-mode (function tm-gnus/insert-article))
+    (set-alist 'mime-editor/message-inserter-alist
+              'message-mode (function tm-gnus/insert-article))
     (if (string-match "XEmacs\\|Lucid" emacs-version)
        (add-hook 'news-setup-hook 'mime-editor/attach-to-news-reply-menu)
       )
+
+    (set-alist 'mime-editor/split-message-sender-alist
+              'message-mode
+              (lambda ()
+                (interactive)
+                (let (message-send-hook
+                      message-sent-message-via)
+                  (message-send)
+                  )))
     )))