tm 6.78.

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

diff --git a/gnus/tm-gnus5.el b/gnus/tm-gnus5.el
index 6216ac4..85edf97 100644 (file)
--- a/gnus/tm-gnus5.el
+++ b/gnus/tm-gnus5.el
@@ -11,7 +11,7 @@
 ;;;
 
 (defconst tm-gnus/RCS-ID
-  "$Id: tm-gnus5.el,v 6.19 1995/09/02 05:18:08 morioka Exp $")
+  "$Id: tm-gnus5.el,v 6.20 1995/09/04 10:53:07 morioka Exp $")
 
 (defconst tm-gnus/version
   (concat (get-version-string tm-gnus/RCS-ID) " for GNUS 5"))
@@ -105,12 +105,7 @@ article is automatic MIME decoded.")
 ;;; @ article filter
 ;;;
 
-(setq gnus-show-mime-method
-         (function
-          (lambda ()
-            (let (buffer-read-only)
-              (mime/decode-message-header)
-              ))))
+(setq gnus-show-mime-method (function mime/decode-message-header))
 
 
 ;;; @ automatic MIME preview support