X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=gnus%2Ftm-gnus5.el;h=b4cc192d633842f854bbc8c4e2a58ea75e3b6094;hb=526ddb4bf4c4322f57c55a0d62b14138aca77e33;hp=5b0cff0c2e9121d6be7ed89ec2ed2e9446b9313b;hpb=caf19998189b560eca4acb619a4fcd34eebcac64;p=elisp%2Ftm.git

diff --git a/gnus/tm-gnus5.el b/gnus/tm-gnus5.el
index 5b0cff0..b4cc192 100644
--- 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
 ;;;