tm 7.59.

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

diff --git a/gnus/tm-gnus4.el b/gnus/tm-gnus4.el
index 9b227dc..7184732 100644 (file)
--- a/gnus/tm-gnus4.el
+++ b/gnus/tm-gnus4.el
@@ -2,13 +2,13 @@
 ;;; tm-gnus4.el --- tm-gnus module for GNUS 4, 5.0.* and 5.1.*.
 ;;;
 ;;; Copyright (C) 1995 Free Software Foundation, Inc.
-;;; Copyright (C) 1995 MORIOKA Tomohiko
+;;; Copyright (C) 1995,1996 MORIOKA Tomohiko
 ;;;
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; 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.16 $
+;;; Version: $Revision: 7.18 $
 ;;; Keywords: news, MIME, multimedia, multilingual, encoded-word
 ;;;
 ;;; This file is part of tm (Tools for MIME).
@@ -37,7 +37,7 @@
 ;;;
 
 (defconst tm-gnus/RCS-ID
-  "$Id: tm-gnus4.el,v 7.16 1996/01/23 04:56:21 morioka Exp $")
+  "$Id: tm-gnus4.el,v 7.18 1996/03/04 08:16:42 morioka Exp $")
 
 (defconst tm-gnus/version
   (concat (get-version-string tm-gnus/RCS-ID) " for 3.15 .. 5.1.*"))
@@ -216,24 +216,27 @@ This variable is set to `gnus-show-mime'.")
 ;;; @ for BBDB
 ;;;
 
+(call-after-loaded
+ 'bbdb
+ (function
+  (lambda ()
+    (require 'tm-bbdb)
+    )))
+
+(autoload 'tm-bbdb/update-record "tm-bbdb")
+
 (defun tm-gnus/bbdb-setup ()
   (if (memq 'bbdb/gnus-update-record gnus-article-prepare-hook)
       (progn
        (remove-hook 'gnus-article-prepare-hook 'bbdb/gnus-update-record)
-       (add-hook 'tm-gnus/article-prepare-hook 'bbdb/gnus-update-record)
+       ;;(add-hook 'tm-gnus/article-prepare-hook 'bbdb/gnus-update-record)
+       (add-hook 'gnus-article-display-hook 'tm-bbdb/update-record)
        )))
 
 (add-hook 'gnus-startup-hook 'tm-gnus/bbdb-setup t)
 
 (tm-gnus/bbdb-setup)
 
-(call-after-loaded
- 'bbdb
- (function
-  (lambda ()
-    (require 'tm-bbdb)
-    )))
-
 
 ;;; @ end
 ;;;