gnushook.el

   1 ;;;
   2 ;;; $Id: gnushook.el,v 1.1 1994/10/25 06:42:57 morioka Exp morioka $
   3 ;;;
   4
   5 (provide 'gnushook)
   6
   7 (require 'gnus)
   8
   9 (cond ((string-match "^GNUS 3" gnus-version)
  10        (if (and (null gnus-Startup-hook)
  11                 (boundp 'gnus-startup-hook))
  12            (setq gnus-Startup-hook gnus-startup-hook)
  13          )
  14        (if (and (null gnus-Select-group-hook)
  15                 (boundp 'gnus-select-group-hook))
  16            (setq gnus-Select-group-hook gnus-select-group-hook)
  17          )
  18        (if (and (null gnus-Subject-mode-hook)
  19                 (boundp 'gnus-summary-mode-hook))
  20            (setq gnus-Subject-mode-hook gnus-summary-mode-hook)
  21          )
  22        (if (and (null gnus-Article-mode-hook)
  23                 (boundp 'gnus-article-mode-hook))
  24            (setq gnus-Article-mode-hook gnus-article-mode-hook)
  25          )
  26        (if (and (null gnus-Article-prepare-hook)
  27                 (boundp 'gnus-article-prepare-hook))
  28            (setq gnus-Article-prepare-hook gnus-article-prepare-hook)
  29          )
  30        )
  31       ((string-match "^GNUS 4" gnus-version)
  32        (if (and (null gnus-startup-hook)
  33                 (boundp 'gnus-Startup-hook))
  34            (setq gnus-startup-hook gnus-Startup-hook)
  35          )
  36        (if (and (null gnus-select-group-hook)
  37                 (boundp 'gnus-Select-group-hook))
  38            (setq gnus-select-group-hook gnus-Select-group-hook)
  39          )
  40        (if (and (null gnus-summary-mode-hook)
  41                 (boundp 'gnus-Subject-mode-hook))
  42            (setq gnus-summary-mode-hook gnus-Subject-mode-hook)
  43          )
  44        (if (and (null gnus-article-mode-hook)
  45                 (boundp 'gnus-Article-mode-hook))
  46            (setq gnus-article-mode-hook gnus-Article-mode-hook)
  47          )
  48        (if (and (null gnus-article-prepare-hook)
  49                 (boundp 'gnus-Article-prepare-hook))
  50            (setq gnus-article-prepare-hook gnus-Article-prepare-hook)
  51          )
  52        ))