1 |
;;; gnus-setup.el --- initialization & setup for Gnus 5 |
;;; gnus-setup.el --- Initialization & Setup for Gnus 5 |
2 |
|
|
3 |
;; Copyright (C) 1995, 1996, 2000 Free Software Foundation, Inc. |
;; Copyright (C) 1995, 1996, 2000, 2001 |
4 |
|
;; Free Software Foundation, Inc. |
5 |
|
|
6 |
;; Author: Steven L. Baur <steve@miranova.com> |
;; Author: Steven L. Baur <steve@miranova.com> |
7 |
;; Keywords: news |
;; Keywords: news |
90 |
(setq load-path (cons gnus-mailcrypt-lisp-directory load-path))) |
(setq load-path (cons gnus-mailcrypt-lisp-directory load-path))) |
91 |
(autoload 'mc-install-write-mode "mailcrypt" nil t) |
(autoload 'mc-install-write-mode "mailcrypt" nil t) |
92 |
(autoload 'mc-install-read-mode "mailcrypt" nil t) |
(autoload 'mc-install-read-mode "mailcrypt" nil t) |
93 |
(add-hook 'message-mode-hook 'mc-install-write-mode) |
;;; (add-hook 'message-mode-hook 'mc-install-write-mode) |
94 |
(add-hook 'gnus-summary-mode-hook 'mc-install-read-mode) |
;;; (add-hook 'gnus-summary-mode-hook 'mc-install-read-mode) |
95 |
(when gnus-use-mhe |
(when gnus-use-mhe |
96 |
(add-hook 'mh-folder-mode-hook 'mc-install-read-mode) |
(add-hook 'mh-folder-mode-hook 'mc-install-read-mode) |
97 |
(add-hook 'mh-letter-mode-hook 'mc-install-write-mode))) |
(add-hook 'mh-letter-mode-hook 'mc-install-write-mode))) |