;ELC
;;; Compiled
;;; in Emacs version 26.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 (#$ . 1508) "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 (#$ . 2134))
(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) "\304 \305=\203 \n?\202 \306 !\307V\310\311!\204 \312\202- \n\203- \313\314\315\"\203- \316 \210\317\320\n\2037 \321\2028 \322\"\210\323\324!\203] \304 \203L \304 \232\203] \325\326\327\n\203X \330\202Y \331 #\210))\332 \210\n\207" [#1=#:last-message arg gnus-mailing-list-mode local 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 " in current buffer" message "Gnus-Mailing-List mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 2353) (list (or current-prefix-arg 'toggle))])
(defvar gnus-mailing-list-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\211%\207" [gnus-mailing-list-mode-map gnus-mailing-list-mode-hook variable-documentation put "Hook run after entering or leaving `gnus-mailing-list-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" 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 (#$ . 3670) 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 (#$ . 3973) 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 (#$ . 4288) 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 (#$ . 4615) 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 (#$ . 4914) 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 (#$ . 5218) 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 (#$ . 5606)])
(provide 'gnus-ml)
|