2 ;;; tm-dgnus.el --- tm-gnus module for (ding) GNUS
11 (defconst tm-gnus/RCS-ID
12 "$Id: tm-dgnus.el,v 6.18 1995/08/31 20:15:50 morioka Exp $")
14 (defconst tm-gnus/version
15 (concat (get-version-string tm-gnus/RCS-ID) " (ding)"))
17 (if (not (fboundp 'mail-header-from))
19 (defalias 'mail-header-from 'header-from)
20 (defalias 'mail-header-set-from 'header-set-from)
21 (defalias 'mail-header-subject 'header-subject)
22 (defalias 'mail-header-set-subject 'header-set-subject)