(progn
(require 'mail-extr) ; for `what-domain'
(or (fboundp 'tm:mail-extract-address-components)
(fset 'tm:mail-extract-address-components
(symbol-function 'mail-extract-address-components)))
(fset 'mail-extract-address-components
(progn
(require 'mail-extr) ; for `what-domain'
(or (fboundp 'tm:mail-extract-address-components)
(fset 'tm:mail-extract-address-components
(symbol-function 'mail-extract-address-components)))
(fset 'mail-extract-address-components