-
-(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)
- )
-
-(defun tm-gnus/full-decode-message-old (arg)
- "MIME full-decode this article."
+(require 'tm-view)
+(require 'tl-list)
+
+(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))
+
+(defun tm-gnus/view-message (arg)
+ "MIME decode and play this message."