gnus/tm-dgnus.el

   1 ;;;
   2 ;;; tm-dgnus.el --- tm-gnus module for (ding) GNUS
   3 ;;;
   4
   5 (require 'tm-gnus5)
   6
   7
   8 ;;; @ version
   9 ;;;
  10
  11 (defconst tm-gnus/RCS-ID
  12   "$Id: tm-dgnus.el,v 6.18 1995/08/31 20:15:50 morioka Exp $")
  13
  14 (defconst tm-gnus/version
  15   (concat (get-version-string tm-gnus/RCS-ID) " (ding)"))
  16
  17 (if (not (fboundp 'mail-header-from))
  18     (progn
  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)
  23       ))
  24
  25
  26 ;;; @ end
  27 ;;;
  28
  29 (provide 'tm-dgnus)