tm 7.41.1.

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

diff --git a/gnus/tm-gnus4.el b/gnus/tm-gnus4.el
index d416d59..9b227dc 100644 (file)
--- a/gnus/tm-gnus4.el
+++ b/gnus/tm-gnus4.el
@@ -8,7 +8,7 @@
 ;;; modified by OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
 ;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Created: 1993/11/20 (merged tm-gnus5.el)
-;;; Version: $Revision: 7.14 $
+;;; Version: $Revision: 7.16 $
 ;;; Keywords: news, MIME, multimedia, multilingual, encoded-word
 ;;;
 ;;; This file is part of tm (Tools for MIME).
@@ -37,10 +37,10 @@
 ;;;
 
 (defconst tm-gnus/RCS-ID
-  "$Id: tm-gnus4.el,v 7.14 1995/12/18 11:08:33 morioka Exp $")
+  "$Id: tm-gnus4.el,v 7.16 1996/01/23 04:56:21 morioka Exp $")
 
 (defconst tm-gnus/version
-  (concat (get-version-string tm-gnus/RCS-ID) " for 3.15 .. 5.1"))
+  (concat (get-version-string tm-gnus/RCS-ID) " for 3.15 .. 5.1.*"))
 
 
 ;;; @ variable
@@ -190,14 +190,18 @@ This variable is set to `gnus-show-mime'.")
        (make-local-variable 'tm:mother-button-dispatcher)
        (setq tm:mother-button-dispatcher
              (function gnus-article-push-button))
-       (mime/viewer-mode
-        nil nil nil tm-gnus/original-article-buffer gnus-article-buffer)
-       (gnus-article-show-summary)
+       (save-window-excursion
+         (mime/viewer-mode
+          nil nil nil tm-gnus/original-article-buffer gnus-article-buffer)
+         )
        (setq tm-gnus/automatic-mime-preview t)
        (setq gnus-original-article-buffer tm-gnus/original-article-buffer)
        (let (buffer-read-only)
          (run-hooks 'tm-gnus/article-prepare-hook)
          )
+       (if (featurep 'tm-gd3)
+           (setq buffer-read-only nil)
+         )
        )))
 
 (setq gnus-show-mime-method
@@ -223,8 +227,17 @@ This variable is set to `gnus-show-mime'.")
 
 (tm-gnus/bbdb-setup)
 
+(call-after-loaded
+ 'bbdb
+ (function
+  (lambda ()
+    (require 'tm-bbdb)
+    )))
+
 
 ;;; @ end
 ;;;
 
 (provide 'tm-gnus4)
+
+;;; tm-gnus4.el ends here