X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=tm-gnus4.el;h=4a1f6dec36d30b7dd699d6b532d8dd46533cffb7;hb=f0a284c80bae5a16a58fe2f6c542c4e4d3002969;hp=958f8e85efee82d1601748569f364d428d612c99;hpb=6f60f010f0797bb67af3aa0bf0f202b61ad7b72d;p=elisp%2Ftm.git

diff --git a/tm-gnus4.el b/tm-gnus4.el
index 958f8e8..4a1f6de 100644
--- a/tm-gnus4.el
+++ b/tm-gnus4.el
@@ -1,32 +1,11 @@
 ;;;
-;;; $Id: tm-gnus4.el,v 3.1 1994/08/31 05:29:42 morioka Exp $
+;;; $Id: tm-gnus4.el,v 5.4 1994/10/25 08:50:08 morioka Exp $
 ;;;
 
 (provide 'tm-gnus4)
 
 (require 'tm-gnus)
-(autoload 'mime/view-mode "tm-view" "View MIME message." t)
-
-(if (and (null gnus-startup-hook)
-	 (boundp 'gnus-Startup-hook))
-    (setq gnus-startup-hook gnus-Startup-hook)
-  )
-(if (and (null gnus-select-group-hook)
-	 (boundp 'gnus-Select-group-hook))
-    (setq gnus-select-group-hook gnus-Select-group-hook)
-  )
-(if (and (null gnus-summary-mode-hook)
-	 (boundp 'gnus-Subject-mode-hook))
-    (setq gnus-summary-mode-hook gnus-Subject-mode-hook)
-  )
-(if (and (null gnus-article-mode-hook)
-	 (boundp 'gnus-Article-mode-hook))
-    (setq gnus-article-mode-hook gnus-Article-mode-hook)
-  )
-(if (and (null gnus-article-prepare-hook)
-	 (boundp 'gnus-Article-prepare-hook))
-    (setq gnus-article-prepare-hook gnus-Article-prepare-hook)
-  )
+(autoload 'mime/viewer-mode "tm-view" "View MIME message." t)
 
 (defun tm-gnus/view-message (arg)
   "MIME decode and play this message."
@@ -35,37 +14,26 @@
     (gnus-summary-select-article t t)
     )
   (pop-to-buffer gnus-article-buffer t)
-  (mime/view-mode)
+  (mime/viewer-mode)
+  )
+
+(defun tm-gnus/summary-scroll-down ()
+  "Scroll down one line current article."
+  (interactive)
+  (gnus-summary-scroll-up -1)
   )
 
-(add-hook 'gnus-select-group-hook
-	  (function
-	   (lambda ()
-	     (mapcar (function
-		      (lambda (header)
-			(nntp-set-header-subject
-			 header
-			 (mime/decode-string (gnus-header-subject header))
-			 )))
-		     gnus-newsgroup-headers)
-	     )))
+(add-hook 'gnus-select-group-hook (function tm-gnus/decode-summary-subjects))
 
 (define-key gnus-summary-mode-map
-  "\et" 'tm-gnus/toggle-mime-header-decoding-mode)
-(define-key gnus-summary-mode-map "v" 'tm-gnus/view-message)
-(define-key gnus-summary-mode-map "\e\r"
-  (function (lambda ()
-	      (interactive)
-	      (gnus-summary-scroll-up -1)
-	      )))
+  "\et" (function tm-gnus/toggle-mime-header-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))
 
 (add-hook 'gnus-article-prepare-hook
-	  (function
-	   (lambda ()
-	     (if mime/header-decoding-mode
-		 (mime/decode-message-header)
-	       ))) t)
+	  (function mime/decode-message-header-if-you-need) t)