2 ;;; $Id: gnushook.el,v 1.1 1994/10/25 06:42:57 morioka Exp morioka $
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)
14 (if (and (null gnus-Select-group-hook)
15 (boundp 'gnus-select-group-hook))
16 (setq gnus-Select-group-hook gnus-select-group-hook)
18 (if (and (null gnus-Subject-mode-hook)
19 (boundp 'gnus-summary-mode-hook))
20 (setq gnus-Subject-mode-hook gnus-summary-mode-hook)
22 (if (and (null gnus-Article-mode-hook)
23 (boundp 'gnus-article-mode-hook))
24 (setq gnus-Article-mode-hook gnus-article-mode-hook)
26 (if (and (null gnus-Article-prepare-hook)
27 (boundp 'gnus-article-prepare-hook))
28 (setq gnus-Article-prepare-hook gnus-article-prepare-hook)
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)
36 (if (and (null gnus-select-group-hook)
37 (boundp 'gnus-Select-group-hook))
38 (setq gnus-select-group-hook gnus-Select-group-hook)
40 (if (and (null gnus-summary-mode-hook)
41 (boundp 'gnus-Subject-mode-hook))
42 (setq gnus-summary-mode-hook gnus-Subject-mode-hook)
44 (if (and (null gnus-article-mode-hook)
45 (boundp 'gnus-Article-mode-hook))
46 (setq gnus-article-mode-hook gnus-Article-mode-hook)
48 (if (and (null gnus-article-prepare-hook)
49 (boundp 'gnus-Article-prepare-hook))
50 (setq gnus-article-prepare-hook gnus-Article-prepare-hook)