tm 7.27.

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

diff --git a/gnus/tm-sgnus.el b/gnus/tm-sgnus.el
index c253d00..14d10ca 100644 (file)
--- a/gnus/tm-sgnus.el
+++ b/gnus/tm-sgnus.el
@@ -13,15 +13,16 @@
 (require 'tl-str)
 (require 'tl-list)
 (require 'tl-misc)
-(require 'gnus)
 (require 'tm-view)
+(require 'gnus)
+(require 'tm-gd5)
 
 
 ;;; @ version
 ;;;
 
 (defconst tm-gnus/RCS-ID
-  "$Id: tm-sgnus.el,v 7.16 1995/11/15 10:36:09 morioka Exp $")
+  "$Id: tm-sgnus.el,v 7.18 1995/11/19 08:29:23 morioka Exp $")
 
 (defconst tm-gnus/version
   (concat (get-version-string tm-gnus/RCS-ID) " for September"))
@@ -131,33 +132,6 @@ This variable is set to `gnus-show-mime'.")
    ))
 
 
-;;; @ summary filter
-;;;
-
-(cond ((not (boundp 'nnheader-encoded-words-decoding))
-       (defun tm-gnus/decode-summary-from-and-subjects ()
-        (mapcar (lambda (header)
-                  (let ((from (mail-header-from header))
-                        (subj (mail-header-subject header))
-                        )
-                    (mail-header-set-from
-                     header
-                     (if from
-                         (mime-eword/decode-string from)
-                       ""))
-                    (mail-header-set-subject
-                     header
-                     (if subj
-                         (mime-eword/decode-string subj)
-                       ""))
-                    ))
-                gnus-newsgroup-headers)
-        )
-       (add-hook 'gnus-select-group-hook
-                (function tm-gnus/decode-summary-from-and-subjects))
-       ))
-
-
 ;;; @ article filter
 ;;;
 
@@ -179,6 +153,14 @@ This variable is set to `gnus-show-mime'.")
 
 (setq gnus-show-mime-method (function tm-gnus/preview-article))
 
+(defun tm-gnus/article-decode-encoded-word ()
+  (mime/decode-message-header)
+  (run-hooks 'tm-gnus/article-prepare-hook)
+  )
+
+(setq gnus-decode-encoded-word-method
+      (function tm-gnus/article-decode-encoded-word))
+
 (or (fboundp 'tm::gnus-article-hide-headers-if-wanted)
     (fset 'tm::gnus-article-hide-headers-if-wanted
          (symbol-function 'gnus-article-hide-headers-if-wanted))