tm 7.23.

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

diff --git a/gnus/tm-gnus.el b/gnus/tm-gnus.el
index 657d1cd..1191297 100644 (file)
--- a/gnus/tm-gnus.el
+++ b/gnus/tm-gnus.el
@@ -6,7 +6,7 @@
 ;;;
 ;;; Author: Morioka Tomohiko <morioka@jaist.ac.jp>
 ;;; Version:
-;;;    $Id: tm-gnus.el,v 7.0 1995/10/29 09:13:16 morioka Exp $
+;;;    $Id: tm-gnus.el,v 7.4 1995/11/13 09:28:17 morioka Exp $
 ;;; Keywords: news, MIME, multimedia, encoded-word, multilingual
 ;;;
 ;;; This file is part of tm (Tools for MIME).
@@ -36,11 +36,51 @@
       ((string-match "^GNUS 4" gnus-version)
        (require 'tm-gnus4)
        )
-      ((string-match "^GNUS [0-3]" gnus-version)
+      ((string-match "^GNUS 3" gnus-version)
        (require 'tm-gnus3)
+       (defvar gnus-article-buffer gnus-Article-buffer)
        ))
 
 
+;;; @ for tm-edit
+;;;
+;; suggested by OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
+;;     1995/11/08 (c.f. [tm ML:1067])
+(defun tm-gnus/insert-article (&optional message)
+  (interactive)
+  (let (;; for Emacs 19
+       (mail-citation-hook '(mime-editor/inserted-message-filter))
+       news-reply-header-hook
+       mail-yank-hooks
+       
+       ;; for Emacs 18
+       (mail-yank-ignored-headers mime-editor/yank-ignored-fields-regexp)
+       (news-make-reply-yank-header (function
+                                     (lambda (message-id from) "")
+                                     ))
+       (news-yank-original-quoting-indicator "")
+       
+       ;; select raw article buffer
+       (mail-reply-buffer
+        (save-excursion
+          (set-buffer gnus-article-buffer)
+          (if (eq major-mode 'mime/viewer-mode)
+              mime::preview/article-buffer
+            gnus-article-buffer)))
+       )
+    (news-reply-yank-original 0)
+    ))
+
+(call-after-loaded
+ 'tm-edit
+ (function
+  (lambda ()
+    (set-alist
+     'mime-editor/message-inserter-alist
+     'news-reply-mode (function tm-gnus/insert-article))
+    )))
+
+
 ;;; @ end
 ;;;