;;;
-;;; $Id: tm-gnus3.el,v 3.2 1994/08/31 12:07:15 morioka Exp $
+;;; $Id: tm-gnus3.el,v 5.4 1994/10/25 08:29:17 morioka Exp $
;;;
(provide 'tm-gnus3)
(require 'tm-view)
(require 'tl-list)
-(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-Subject-mode-hook)
- (boundp 'gnus-summary-mode-hook))
- (setq gnus-Subject-mode-hook gnus-summary-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)
- )
-
(setq mime/go-to-top-node-method-alist
(put-alist 'gnus-Article-mode
(if (string-match (regexp-quote "3.14.4") gnus-version)
(function
(lambda ()
+ (mime/exit-view-mode)
+ (delete-other-windows)
(gnus-Article-show-summary)
))
(function
(lambda ()
+ (mime/exit-view-mode)
+ (delete-other-windows)
(gnus-Article-show-subjects)
)))
mime/go-to-top-node-method-alist))
(gnus-Subject-select-article t t)
)
(pop-to-buffer gnus-Article-buffer t)
- (mime/view-mode)
+ (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)
- )))
+(add-hook 'gnus-Select-group-hook (function tm-gnus/decode-summary-subjects))
(define-key gnus-Subject-mode-map
"\et" 'tm-gnus/toggle-mime-header-decoding-mode)
(fset 'gnus-Article-set-mode-line 'tm-gnus/article-set-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)
(if (not (string-match "^GNUS 3\.14\.4" gnus-version))
(progn