;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require gnus gnus-msg] 2) (defvar gnus-mailing-list-mode-map (define-keymap "C-c C-n h" 'gnus-mailing-list-help "C-c C-n s" 'gnus-mailing-list-subscribe "C-c C-n u" 'gnus-mailing-list-unsubscribe "C-c C-n p" 'gnus-mailing-list-post "C-c C-n o" 'gnus-mailing-list-owner "C-c C-n a" 'gnus-mailing-list-archive)) (defalias 'gnus-mailing-list-make-menu-bar #[0 "\301\302!?\205\303\302\304\305#\210\306\302\305\307$\207" [gnus-mailing-list-mode-map boundp gnus-mailing-list-menu defvar-1 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 #[0 "\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])#@112 Setup group parameters from List-Post header. If FORCE is non-nil, replace the old ones. (fn &optional FORCE) (defalias 'gnus-mailing-list-insinuate #[256 "rq\210\302\303!)\211\2034\204\304 \305\"\203\306\307\310\"\207\311\312\"\203)\313\307\"\262\314 \305B\"\210\315\307!\207\306\307\316\"\207" [gnus-original-article-buffer gnus-newsgroup-name gnus-fetch-field "list-post" gnus-group-get-parameter to-list gnus-message 1 "to-list is non-nil." string-match "]*\\)>" match-string gnus-group-add-parameter gnus-mailing-list-mode "no list-post in this message."] 6 (#$ . 1149) "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 (#$ . 1763)) (make-variable-buffer-local 'gnus-mailing-list-mode)#@648 Minor mode for providing mailing-list commands. \{gnus-mailing-list-mode-map} This is a minor mode. If called interactively, toggle the `Gnus-Mailing-List mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `gnus-mailing-list-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'gnus-mailing-list-mode #[256 "\302 \303=\203 ?\202\247\203\304W\203\305\202\306\307\301!\2031\310\300 \"\2031\300 B\311\312!\204<\305\202J\203J\313\314\315\"\203J\316 \210\317\320\203T\321\202U\322\"\210\323\324!\203x\302 \203i\211\302 \232\203x\325\326\327\203t\330\202u\331\332$\210\210\333 \210\207" [gnus-mailing-list-mode local-minor-modes current-message toggle 1 nil t boundp delq derived-mode-p gnus-summary-mode 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 "%s %sabled%s" "Gnus-Mailing-List mode" "en" "dis" " in current buffer" force-mode-line-update] 7 (#$ . 1982) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar gnus-mailing-list-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\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.)" custom-type hook standard-value nil add-minor-mode gnus-mailing-list-mode " Mailing-List"] 6)#@36 Get help from mailing list server. (defalias 'gnus-mailing-list-help #[0 "rq\210\301\302!)\211\203\303!\207\304\305\306\"\207" [gnus-original-article-buffer gnus-fetch-field "list-help" gnus-mailing-list-message gnus-message 1 "no list-help in this group"] 4 (#$ . 4041) nil])#@28 Subscribe to mailing list. (defalias 'gnus-mailing-list-subscribe #[0 "rq\210\301\302!)\211\203\303!\207\304\305\306\"\207" [gnus-original-article-buffer gnus-fetch-field "list-subscribe" gnus-mailing-list-message gnus-message 1 "no list-subscribe in this group"] 4 (#$ . 4327) nil])#@32 Unsubscribe from mailing list. (defalias 'gnus-mailing-list-unsubscribe #[0 "rq\210\301\302!)\211\203\303!\207\304\305\306\"\207" [gnus-original-article-buffer gnus-fetch-field "list-unsubscribe" gnus-mailing-list-message gnus-message 1 "no list-unsubscribe in this group"] 4 (#$ . 4620) nil])#@33 Post message (really useful ?). (defalias 'gnus-mailing-list-post #[0 "rq\210\301\302!)\211\203\303!\207\304\305\306\"\207" [gnus-original-article-buffer gnus-fetch-field "list-post" gnus-mailing-list-message gnus-message 1 "no list-post in this group"] 4 (#$ . 4923) nil])#@33 Mail to the mailing list owner. (defalias 'gnus-mailing-list-owner #[0 "rq\210\301\302!)\211\203\303!\207\304\305\306\"\207" [gnus-original-article-buffer gnus-fetch-field "list-owner" gnus-mailing-list-message gnus-message 1 "no list-owner in this group"] 4 (#$ . 5206) nil])#@17 Browse archive. (defalias 'gnus-mailing-list-archive #[0 "\301\302!\210rq\210\303\304!)\211\203\"\305\306\"\203\302\307\310\"!\207\302!\207\311\310\312\"\207" [gnus-original-article-buffer require browse-url gnus-fetch-field "list-archive" string-match "<\\(https?:[^>]*\\)>" match-string 1 gnus-message "no list-archive in this group"] 5 (#$ . 5492) nil])#@81 Send message to ADDRESS. ADDRESS is specified by a "mailto:" URL. (fn ADDRESS) (defalias 'gnus-mailing-list-message #[257 "\300\301\"\203\302\303!\210\304\305\306\"!\207\307\207" [string-match "<\\(mailto:[^>]*\\)>" require gnus-art gnus-url-mailto match-string 1 nil] 5 (#$ . 5861)]) (provide 'gnus-ml)