;ELC
;;; Compiled by LTX@Xue-LingTaos-MacBook-Pro.local on Wed Mar 16 23:14:13 2011
;;; from file /Users/LTX/Projects/Emacs/emacs/lisp/gnus/gnus-ml.el
;;; in Emacs version 24.0.50.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 "\302\303!\210\302\304!\210\305B\306\305!\204 \307\305\310 \311\301\312\"\210	)\"\210\302\207" [current-load-list map require gnus gnus-msg gnus-mailing-list-mode-map default-boundp set-default 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)] 5)
(defalias 'gnus-mailing-list-make-menu-bar #[nil "\301\302!?\205\303\302\304\305#\210\306\302!\204\307\302\310\"\210\311\302\305\312$\207" [gnus-mailing-list-mode-map boundp gnus-mailing-list-menu put variable-documentation "" default-boundp set-default nil easy-menu-do-define ("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 (#$ . 1727) "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 (#$ . 2353))
(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 (#$ . 2572) (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 (#$ . 3531) 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 (#$ . 3834) 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 (#$ . 4149) 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 (#$ . 4476) 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 (#$ . 4775) 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 (#$ . 5079) 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 (#$ . 5467)])
(provide 'gnus-ml)
