tm 7.90.

[elisp/tm.git] / tm-bbdb.el

diff --git a/tm-bbdb.el b/tm-bbdb.el
index bb392ee..6bfe198 100644 (file)
--- a/tm-bbdb.el
+++ b/tm-bbdb.el
@@ -6,7 +6,7 @@
 ;; Author: KOBAYASHI Shuhei <shuhei-k@jaist.ac.jp>
 ;;         Artur Pioro <artur@flugor.if.uj.edu.pl>
 ;; Maintainer: Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
-;; Version: $Id: tm-bbdb.el,v 7.16 1996/09/28 10:39:05 shuhei-k Exp $
+;; Version: $Id: tm-bbdb.el,v 7.16 1996/10/02 04:19:02 shuhei-k Exp $
 ;; Keywords: mail, news, MIME, multimedia, multilingual, BBDB
 
 ;; This file is part of tm (Tools for MIME).
@@ -56,8 +56,9 @@
 (or tm-bbdb/use-mail-extr
     (progn
       (require 'mail-extr) ; for `what-domain'
-      (fset 'tm:mail-extract-address-components
-            (symbol-function 'mail-extract-address-components))
+      (or (fboundp 'tm:mail-extract-address-components)
+          (fset 'tm:mail-extract-address-components
+                (symbol-function 'mail-extract-address-components)))
       (fset 'mail-extract-address-components
            (symbol-function 'tm-bbdb/extract-address-components))
       ))