tm 7.19.

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

diff --git a/gnus/tm-gnus5.el b/gnus/tm-gnus5.el
index 5b0cff0..b4cc192 100644 (file)
--- a/gnus/tm-gnus5.el
+++ b/gnus/tm-gnus5.el
@@ -27,7 +27,7 @@
 ;;;
 
 (defconst tm-gnus/RCS-ID
-  "$Id: tm-gnus5.el,v 7.3 1995/10/17 16:52:54 morioka Exp $")
+  "$Id: tm-gnus5.el,v 7.4 1995/10/22 12:13:50 morioka Exp $")
 
 (defconst tm-gnus/version
   (concat (get-version-string tm-gnus/RCS-ID) " for GNUS 5"))
@@ -106,6 +106,29 @@ article is automatic MIME decoded.")
    ))
 
 
+;;; @ 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-summary-buffer)
+                ))
+    
+    (set-alist 'tm-partial/preview-article-method-alist
+              'gnus-article-mode
+              (function
+               (lambda ()
+                 (tm-gnus/view-message (gnus-summary-article-number))
+                 )))
+    )))
+
+
 ;;; @ summary filter
 ;;;