;;;
-;;; $Id: tm-gnus4.el,v 5.0 1994/09/25 21:27:13 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/viewer-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)
- )
-
(defun tm-gnus/view-message (arg)
"MIME decode and play this message."
(interactive "P")
(mime/viewer-mode)
)
-(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)
- )))
+(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 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)