Lines Matching +defs:message +defs:mode
1 ;;; gnus-ml.el --- Mailing list minor mode for Gnus
36 ;;; Mailing list minor mode
38 (defvar gnus-mailing-list-mode nil
39 "Minor mode for providing mailing-list commands.")
41 (defvar gnus-mailing-list-mode-map nil)
45 (unless gnus-mailing-list-mode-map
46 (setq gnus-mailing-list-mode-map (make-sparse-keymap))
48 (gnus-define-keys gnus-mailing-list-mode-map
59 gnus-mailing-list-menu gnus-mailing-list-mode-map ""
64 ["Post a message" gnus-mailing-list-post t]
69 (defun turn-on-gnus-mailing-list-mode ()
71 (gnus-mailing-list-mode 1)))
84 (gnus-message 1 "to-list is non-nil.")
89 (gnus-mailing-list-mode 1))
90 (gnus-message 1 "no list-post in this message."))))
93 (defun gnus-mailing-list-mode (&optional arg)
94 "Minor mode for providing mailing-list commands.
96 \\{gnus-mailing-list-mode-map}"
98 (when (eq major-mode 'gnus-summary-mode)
99 (when (set (make-local-variable 'gnus-mailing-list-mode)
100 (if (null arg) (not gnus-mailing-list-mode)
105 (gnus-add-minor-mode 'gnus-mailing-list-mode " Mailing-List"
106 gnus-mailing-list-mode-map)
107 (gnus-run-hooks 'gnus-mailing-list-mode-hook))))
117 (cond (list-help (gnus-mailing-list-message list-help))
118 (t (gnus-message 1 "no list-help in this group")))))
126 (cond (list-subscribe (gnus-mailing-list-message list-subscribe))
127 (t (gnus-message 1 "no list-subscribe in this group")))))
135 (cond (list-unsubscribe (gnus-mailing-list-message list-unsubscribe))
136 (t (gnus-message 1 "no list-unsubscribe in this group")))))
139 "Post message (really useful ?)"
144 (cond (list-post (gnus-mailing-list-message list-post))
145 (t (gnus-message 1 "no list-post in this group")))))
153 (cond (list-owner (gnus-mailing-list-message list-owner))
154 (t (gnus-message 1 "no list-owner in this group")))))
167 (t (gnus-message 1 "no list-archive in this group")))))
171 (defun gnus-mailing-list-message (address)
172 "Send message to ADDRESS.