%PDF- %PDF-
Direktori : /usr/local/share/emacs/27.2/lisp/gnus/ |
Current File : //usr/local/share/emacs/27.2/lisp/gnus/gnus-ml.elc |
;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<