tm 7.33.

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

diff --git a/gnus/tm-sgnus.el b/gnus/tm-sgnus.el
index 55b2cbe..1879180 100644 (file)
--- a/gnus/tm-sgnus.el
+++ b/gnus/tm-sgnus.el
@@ -7,7 +7,7 @@
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Created: 1995/09/24
-;;; Version: $Revision: 7.21 $
+;;; Version: $Revision: 7.22 $
 ;;; Keywords: news, MIME, multimedia, multilingual, encoded-word
 ;;;
 ;;; This file is part of tm (Tools for MIME).
@@ -38,7 +38,7 @@
 ;;;
 
 (defconst tm-gnus/RCS-ID
-  "$Id: tm-sgnus.el,v 7.21 1995/12/06 07:36:03 morioka Exp $")
+  "$Id: tm-sgnus.el,v 7.22 1995/12/11 12:50:58 morioka Exp $")
 
 (defconst tm-gnus/version
   (concat (get-version-string tm-gnus/RCS-ID) " for September"))
@@ -81,12 +81,7 @@ This variable is set to `gnus-show-mime'.")
 
 (defun tm-gnus/summary-toggle-header (&optional arg)
   (interactive "P")
-  (if (and gnus-show-mime
-          (or (not gnus-strict-mime)
-              (save-excursion
-                (set-buffer gnus-article-buffer)
-                (gnus-fetch-field "Mime-Version")
-                )))
+  (if tm-gnus/automatic-mime-preview
       (let ((mime-viewer/ignored-field-regexp
             (if (save-excursion
                   (set-buffer gnus-article-buffer)