tm 6.77.

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

diff --git a/gnus/tm-gnus4.el b/gnus/tm-gnus4.el
index 87e414b..924f90e 100644 (file)
--- a/gnus/tm-gnus4.el
+++ b/gnus/tm-gnus4.el
@@ -10,7 +10,7 @@
 ;;;
 
 (defconst tm-gnus/RCS-ID
-  "$Id: tm-gnus4.el,v 6.2 1995/08/31 20:14:33 morioka Exp $")
+  "$Id: tm-gnus4.el,v 6.7 1995/09/02 07:28:38 morioka Exp $")
 
 (defconst tm-gnus/version
   (concat (get-version-string tm-gnus/RCS-ID) " for GNUS 4"))
@@ -48,17 +48,22 @@
 ;;;
 
 (define-key gnus-summary-mode-map
-  "\et" (function tm-gnus/toggle-mime-header-decoding-mode))
+  "\et" (function tm-gnus/toggle-decoding-mode))
 (define-key gnus-summary-mode-map "v" (function tm-gnus/view-message))
 (define-key gnus-summary-mode-map
   "\e\r" (function tm-gnus/summary-scroll-down))
 
 (fset 'gnus-article-set-mode-line 'tm-gnus/article-set-mode-line)
 (add-hook 'gnus-article-mode-hook
-         (function mime/add-header-decoding-mode-to-mode-line))
+         (function tm-gnus/add-decoding-mode-to-mode-line))
+
+(defun tm-gnus/decode-encoded-word-if-you-need ()
+  (if (and tm-gnus/decoding-mode (not gnus-have-all-headers))
+      (mime/decode-message-header)
+    ))
 
 (add-hook 'gnus-article-prepare-hook
-         (function mime/decode-message-header-if-you-need) t)
+         (function tm-gnus/decode-encoded-word-if-you-need) t)
 
 
 ;;; @ for tm-comp