tm 7.19.

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

diff --git a/gnus/tm-gnus3.el b/gnus/tm-gnus3.el
index a822014..a33cd87 100644 (file)
--- a/gnus/tm-gnus3.el
+++ b/gnus/tm-gnus3.el
@@ -12,7 +12,7 @@
 ;;;
 
 (defconst tm-gnus/RCS-ID
-  "$Id: tm-gnus3.el,v 6.10 1995/09/11 07:20:29 morioka Exp $")
+  "$Id: tm-gnus3.el,v 7.0 1995/10/22 12:02:04 morioka Exp $")
 
 (defconst tm-gnus/version
   (concat (get-version-string tm-gnus/RCS-ID) " for GNUS 3"))
@@ -56,6 +56,29 @@
     )))
 
 
+;;; @ for tm-partial
+;;;
+
+(call-after-loaded
+ 'tm-partial
+ (function
+  (lambda ()
+    (set-atype 'mime/content-decoding-condition
+              '((type . "message/partial")
+                (method . mime-article/grab-message/partials)
+                (major-mode . gnus-Article-mode)
+                (summary-buffer-exp . gnus-Subject-buffer)
+                ))
+    
+    (set-alist 'tm-partial/preview-article-method-alist
+              'gnus-Article-mode
+              (function
+               (lambda ()
+                 (tm-gnus/view-message (gnus-Subject-article-number))
+                 )))
+    )))
+
+
 ;;; @ Summary decoding
 ;;;