;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:56 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/gnus-ml.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\207" [require gnus gnus-msg] 2)
(defvar gnus-mailing-list-mode-map (byte-code "\301 \302\300\303\"\210)\207" [map make-sparse-keymap gnus-define-keys-1 ("h" gnus-mailing-list-help "s" gnus-mailing-list-subscribe "u" gnus-mailing-list-unsubscribe "p" gnus-mailing-list-post "o" gnus-mailing-list-owner "a" gnus-mailing-list-archive)] 3))
(defalias 'gnus-mailing-list-make-menu-bar #[nil "\301\302!?\205\303\304!\210\305\302\306\307$\207" [gnus-mailing-list-mode-map boundp gnus-mailing-list-menu (lambda (#1=#:def-tmp-var) (defvar gnus-mailing-list-menu #1# #2="")) nil easy-menu-do-define #2# ("Mailing-Lists" ["Get help" gnus-mailing-list-help t] ["Subscribe" gnus-mailing-list-subscribe t] ["Unsubscribe" gnus-mailing-list-unsubscribe t] ["Post a message" gnus-mailing-list-post t] ["Mail to owner" gnus-mailing-list-owner t] ["Browse archive" gnus-mailing-list-archive t])] 5])
(defalias 'turn-on-gnus-mailing-list-mode #[nil "\301\302\"\205\n\303\304!\207" [gnus-newsgroup-name gnus-group-find-parameter to-list gnus-mailing-list-mode 1] 3])
#@90 Setup group parameters from List-Post header.
If FORCE is non-nil, replace the old ones.
(defalias 'gnus-mailing-list-insinuate #[(&optional force) "rq\210\304\305!)\211\2038\n\204\306\307\"\203\310\311\312\"\202<\313\314	\"\203+\315\311	\"\316\307	B\"\210\317\311!\202<\310\311\320\")\207" [gnus-original-article-buffer list-post force gnus-newsgroup-name gnus-fetch-field "list-post" gnus-group-get-parameter to-list gnus-message 1 "to-list is non-nil." string-match "<mailto:\\([^>]*\\)>" match-string gnus-group-add-parameter gnus-mailing-list-mode "no list-post in this message."] 5 (#$ . 1655) "P"])
#@113 Non-nil if Gnus-Mailing-List mode is enabled.
Use the command `gnus-mailing-list-mode' to change this variable.
(defvar gnus-mailing-list-mode nil (#$ . 2281))
(make-variable-buffer-local 'gnus-mailing-list-mode)
#@80 Minor mode for providing mailing-list commands.

\{gnus-mailing-list-mode-map}
(defalias 'gnus-mailing-list-mode #[(&optional arg) "\303 	\304=\203\n?\202\305	!\306V\307\310!\204\311\202-\n\203-\312\313\314\"\203-\315 \210\316\317\n\2037\320\2028\321\"\210\322\323!\203Y\303 \203L\303 \232\203Y\324\325\n\203V\326\202W\327\"\210)\330 \210\n\207" [#1=#:last-message arg gnus-mailing-list-mode current-message toggle prefix-numeric-value 0 derived-mode-p gnus-summary-mode nil gnus-visual-p mailing-list-menu menu gnus-mailing-list-make-menu-bar run-hooks gnus-mailing-list-mode-hook gnus-mailing-list-mode-on-hook gnus-mailing-list-mode-off-hook called-interactively-p any message "Gnus-Mailing-List mode %sabled" "en" "dis" force-mode-line-update] 3 (#$ . 2500) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\211%\207" [gnus-mailing-list-mode-map add-minor-mode gnus-mailing-list-mode " Mailing-List" nil] 6)
#@36 Get help from mailing list server.
(defalias 'gnus-mailing-list-help #[nil "rq\210\302\303!)\211\203\304	!\202\305\306\307\")\207" [gnus-original-article-buffer list-help gnus-fetch-field "list-help" gnus-mailing-list-message gnus-message 1 "no list-help in this group"] 4 (#$ . 3459) nil])
#@28 Subscribe to mailing list.
(defalias 'gnus-mailing-list-subscribe #[nil "rq\210\302\303!)\211\203\304	!\202\305\306\307\")\207" [gnus-original-article-buffer list-subscribe gnus-fetch-field "list-subscribe" gnus-mailing-list-message gnus-message 1 "no list-subscribe in this group"] 4 (#$ . 3762) nil])
#@32 Unsubscribe from mailing list.
(defalias 'gnus-mailing-list-unsubscribe #[nil "rq\210\302\303!)\211\203\304	!\202\305\306\307\")\207" [gnus-original-article-buffer list-unsubscribe gnus-fetch-field "list-unsubscribe" gnus-mailing-list-message gnus-message 1 "no list-unsubscribe in this group"] 4 (#$ . 4077) nil])
#@32 Post message (really useful ?)
(defalias 'gnus-mailing-list-post #[nil "rq\210\302\303!)\211\203\304	!\202\305\306\307\")\207" [gnus-original-article-buffer list-post gnus-fetch-field "list-post" gnus-mailing-list-message gnus-message 1 "no list-post in this group"] 4 (#$ . 4404) nil])
#@33 Mail to the mailing list owner.
(defalias 'gnus-mailing-list-owner #[nil "rq\210\302\303!)\211\203\304	!\202\305\306\307\")\207" [gnus-original-article-buffer list-owner gnus-fetch-field "list-owner" gnus-mailing-list-message gnus-message 1 "no list-owner in this group"] 4 (#$ . 4703) nil])
#@17 Browse archive.
(defalias 'gnus-mailing-list-archive #[nil "\302\303!\210rq\210\304\305!)\211\203'\306\307	\"\203!\303\310\311	\"!\202+\303	!\202+\312\311\313\")\207" [gnus-original-article-buffer list-archive require browse-url gnus-fetch-field "list-archive" string-match "<\\(http:[^>]*\\)>" match-string 1 gnus-message "no list-archive in this group"] 5 (#$ . 5007) nil])
#@67 Send message to ADDRESS.
ADDRESS is specified by a "mailto:" URL.
(defalias 'gnus-mailing-list-message #[(address) "\301\302\"\203\303\304!\210\305\306\307\"!\207\310\207" [address string-match "<\\(mailto:[^>]*\\)>" require gnus-art gnus-url-mailto match-string 1 nil] 4 (#$ . 5395)])
(provide 'gnus-ml)