%PDF-
%PDF-
Mini Shell
Mini Shell
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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 "\302\303\"\204 \205 \304 \"\205 \305\306!\207" [gnus-newsgroup-name gnus-mailing-list-groups gnus-group-find-parameter to-list string-match 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 (#$ . 1566) "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 (#$ . 2192))
(make-variable-buffer-local 'gnus-mailing-list-mode)
#@330 Minor mode for providing mailing-list commands.
If called interactively, enable Gnus-Mailing-List mode if ARG is
positive, and disable it if ARG is zero or negative. If called
from Lisp, also enable the mode if ARG is omitted or nil, and
toggle it if ARG is `toggle'; disable the mode otherwise.
\{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 (#$ . 2412) (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 (#$ . 3979) 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 (#$ . 4282) 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 (#$ . 4597) 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 (#$ . 4924) 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 (#$ . 5223) 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 "<\\(https?:[^>]*\\)>" match-string 1 gnus-message "no list-archive in this group"] 5 (#$ . 5527) 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 (#$ . 5917)])
(provide 'gnus-ml)
Zerion Mini Shell 1.0