Current File : //usr/local/share/emacs/27.2/lisp/gnus/gnus.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\302\303!\210\302\304!\210\302\305!\210\302\306!\210\307\310\311\312\313\314\313\315&\210\307\316\311\317\313\310%\210\307\320\311\321\313\310%\210\307\322\311\323\324\325\326\327\313\310& \210\307\330\311\331\324\332\313\310&\210\307\333\311\334\313\310%\210\307\335\311\336\313\316%\210\307\337\311\340\324\341\313\310&\210\307\342\311\343\324\344\313\337&\210\307\345\311\346\313\337%\210\307\347\311\350\324\351\313\337&\210\307\352\311\353\324\354\313\337&\210\307\355\311\356\324\357\313\337&\210\307\360\311\361\324\362\313\337\313\363& \210\307\364\311\365\324\366\313\337&\210\307\367\311\370\324\371\313\310&\210\307\372\311\373\324\374\313\367&\210\307\375\311\376\324\377\313\367&\210\307\201@ \311\201A \324\201B \313\367&\210\307\201C \311\201D \324\201E \313\367&\210\307\201F \311\201G \324\201H \313\367&\210\307\201I \311\201J \324\201K \313\367&\210\307\201L \311\201M \313\363%\210\307\201N \311\201O \324\201P \313\367&\210\307\201Q \311\201R \324\201S \313\367&\210\307\201T \311\201U \324\201V \313\363\313\367& \210\307\201W \311\201X \324\201Y \313\367&\210\307\201Z \311\201[ \324\201\\ \201] \201^ \313\367& \210\307\201_ \311\201` \324\201a \201] \201b \313\367& \210\307\201c \311\201d \324\201e \313\201f &\210\307\201g \311\201h \313\310%\210\307\201i \311\201j \313\201g %\210\307\201k \311\201l \313\201g %\210\307\201m \311\201n \313\201g %\210\307\201o \311\201p \313\201g %\210\307\201q \311\201r \313\201g %\210\307\201s \311\201t \313\201g \313\201u &\210\307\201v \311\201w \313\201g %\210\307\363\311\201x \313\310\313\201y &\210\307\201z \311\201{ \313\310%\210\307\201u \311\201| \313\310%\210\307\201} \311\201~ \324\201 \313\201u &\210\307\201\200 \311\201\201 \313\201u %\210\307\201\202 \311\201\203 \313\310%\210\307\201\204 \311\201\205 \313\363\313\201\202 &\210\307\201\206 \201\207 \201\210 \313\310%\210\307\201\211 \311\201\212 \313\310%\210\307\201\213 \311\201\214 \324\201\215 \313\310&\210\307\201\216 \311\201\217 \324\201\220 \313\310&\210\307\201\221 \311\201\222 \324\201\223 \313\310&\207" [run-hooks gnus-load-hook require wid-edit mm-util nnheader seq custom-declare-group gnus nil "The coffee-brewing, all singing, all dancing, kitchen sink newsreader." :group news mail gnus-start "Starting your favorite newsreader." gnus-format "Dealing with formatting issues." gnus-charset "Group character set issues." :link (custom-manual "(gnus)Charsets") :version "21.1" gnus-cache "Cache interface." (custom-manual "(gnus)Article Caching") gnus-registry "Article Registry." gnus-start-server "Server options at startup." gnus-group "Group buffers." (custom-manual "(gnus)Group Buffer") gnus-group-foreign "Foreign groups." (custom-manual "(gnus)Foreign Groups") gnus-group-new "Automatic subscription of new groups." gnus-group-levels "Group levels." (custom-manual "(gnus)Group Levels") gnus-group-select "Selecting a Group." (custom-manual "(gnus)Selecting a Group") gnus-group-listing "Showing slices of the group list." (custom-manual "(gnus)Listing Groups") gnus-group-visual "Sorting the group buffer." (custom-manual "(gnus)Group Buffer Format") gnus-visual gnus-group-various "Various group options." (custom-manual "(gnus)Scanning New Messages") gnus-summary "Summary buffers." (custom-manual "(gnus)Summary Buffer") gnus-summary-exit "Leaving summary buffers." (custom-manual "(gnus)Exiting the Summary Buffer") gnus-summary-marks "Marks used in summary buffers." (custom-manual "(gnus)Marking Articles") gnus-thread "Ordering articles according to replies." (custom-manual "(gnus)Threading") gnus-summary-format "Formatting of the summary buffer." (custom-manual "(gnus)Summary Buffer Format") gnus-summary-choose "Choosing Articles." (custom-manual "(gnus)Choosing Articles") gnus-summary-maneuvering "Summary movement commands." (custom-manual "(gnus)Summary Maneuvering") gnus-picon "Show pictures of people, domains, and newsgroups." gnus-summary-mail "Mail group commands." (custom-manual "(gnus)Mail Group Commands") gnus-summary-sort "Sorting the summary buffer." (custom-manual "(gnus)Sorting the Summary Buffer") gnus-summary-visual "Highlighting and menus in the summary buffer." (custom-manual "(gnus)Summary Highlighting") gnus-summary-various "Various summary buffer options." (custom-manual "(gnus)Various Summary Stuff") gnus-summary-pick "Pick mode in the summary buffer." (custom-manual "(gnus)Pick and Read") :prefix "gnus-pick-" gnus-summary-tree "Tree display of threads in the summary buffer." (custom-manual "(gnus)Tree Display") "gnus-tree-" gnus-extract-view "Viewing extracted files." (custom-manual "(gnus)Viewing Files") gnus-extract gnus-score "Score and kill file handling." gnus-score-kill "Kill files." gnus-score-adapt "Adaptive score files." gnus-score-default "Default values for score files." gnus-score-expire "Expiring score rules." gnus-score-decay "Decaying score rules." gnus-score-files "Score and kill file names." gnus-files gnus-score-various "Various scoring and killing options." "Options controlling the visual fluff." faces gnus-agent "Offline support for Gnus." "Files used by Gnus." gnus-dribble-file "Auto save file." (custom-manual "(gnus)Auto Save") gnus-newsrc "Storing Gnus state." gnus-server "Options related to newsservers and other servers used by Gnus." gnus-server-visual "Highlighting and menus in the server buffer." gnus-message ((message custom-group)) "Composing replies and followups in Gnus." gnus-meta "Meta variables controlling major portions of Gnus.\nIn general, modifying these variables does not take effect until Gnus\nis restarted, and sometimes reloaded." gnus-various "Other Gnus options." (custom-manual "(gnus)Various Various") gnus-exit "Exiting Gnus." (custom-manual "(gnus)Exiting Gnus") gnus-fun "Frivolous Gnus extensions." (custom-manual "(gnus)Exiting Gnus")] 10)
#@42 Version number for this version of Gnus.
(defconst gnus-version-number "5.13" (#$ . 6281))
#@42 Version string for this version of Gnus.
(defconst gnus-version (format "Gnus v%s" gnus-version-number) (#$ . 6378))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable gnus-inhibit-startup-message funcall function #[0 "\300\207" [nil] 1] "If non-nil, the startup message will not be displayed.\nThis variable is used before `.gnus.el' is loaded, so it should\nbe set in `.emacs' instead." :group gnus-start :type boolean] 8)
(defvar gnus-mode-line-image-cache t)
(byte-code "\300\301!\203 \302\303\304\"\210\202 \302\303\305\"\210\306\307\310\311\312\313%\210\306\314\315\316\312\313%\210\306\317\320\321\312\313%\210\306\322\323\324\312\313%\210\306\325\326\327\312\313%\210\306\330\331\332\312\313%\210\306\333\334\335\312\313%\210\306\336\337\340\312\313%\210\306\341\342\343\312\313%\210\306\344\345\346\312\313%\210\306\347\350\351\312\313%\210\306\352\353\354\312\313%\210\306\355\356\357\312\313%\210\306\360\361\362\312\313%\210\306\363\364\365\312\313%\210\306\366\367\370\312\313%\210\306\371\372\373\312\313%\210\306\374\375\376\312\313%\210\306\377\201@ \201A \312\313%\210\306\201B \201C \201D \312\313%\210\306\201E \201F \201G \312\313%\210\306\201H \201I \201J \312\313%\210\306\201K \201L \201M \312\201N %\210\306\201O \201P \201Q \312\201N %\210\306\201R \201S \201T \312\201N %\210\306\201U \201V \201W \312\201N %\210\306\201X \201Y \201Z \312\201N %\210\306\201[ \201\\ \201] \312\201N %\210\306\201^ \201_ \201` \312\201N %\210\306\201a \201b \201c \312\201N %\210\306\201d \201e \201f \312\201N %\210\306\201g \201h \201i \312\201N %\210\306\201j \201k \201l \312\201N %\210\306\201m \201n \201o \312\201N %\210\306\201p \201q \201r \312\201N %\210\306\201s \201t \201u \312\201N %\210\306\201v \201w \201x \312\201N %\210\306\201y \201z \201{ \312\201N %\210\306\201| \201} \201~ \312\201N %\207" [fboundp find-image defalias gnus-mode-line-buffer-identification #[257 "\211\242\303\304 \"\305 \203< \211;\203< \306\307\"\203< \310\311\312\313 \314=\203+ \315\316!\211\202, \317\320\321\n\322 #F$\210\211C\202= )\207" [load-path gnus-mode-line-image-cache gnus-version append mm-image-load-path display-graphic-p string-match "^Gnus:" add-text-properties 0 5 display t find-image ((:type xpm :file "gnus-pointer.xpm" :ascent center) (:type xbm :file "gnus-pointer.xbm" :ascent center)) help-echo format "This is %s, %s." gnus-emacs-version] 12 "\n\n(fn LINE)"] identity custom-declare-face gnus-group-news-1-empty ((((class color) (background dark)) (:foreground "PaleTurquoise")) (((class color) (background light)) (:foreground "ForestGreen")) (t nil)) "Level 1 empty newsgroup face." :group gnus-group gnus-group-news-1 ((t (:inherit gnus-group-news-1-empty :bold t))) "Level 1 newsgroup face." gnus-group-news-2-empty ((((class color) (background dark)) (:foreground "turquoise")) (((class color) (background light)) (:foreground "CadetBlue4")) (t nil)) "Level 2 empty newsgroup face." gnus-group-news-2 ((t (:inherit gnus-group-news-2-empty :bold t))) "Level 2 newsgroup face." gnus-group-news-3-empty ((((class color) (background dark)) nil) (((class color) (background light)) nil) (t nil)) "Level 3 empty newsgroup face." gnus-group-news-3 ((t (:inherit gnus-group-news-3-empty :bold t))) "Level 3 newsgroup face." gnus-group-news-4-empty ((((class color) (background dark)) nil) (((class color) (background light)) nil) (t nil)) "Level 4 empty newsgroup face." gnus-group-news-4 ((t (:inherit gnus-group-news-4-empty :bold t))) "Level 4 newsgroup face." gnus-group-news-5-empty ((((class color) (background dark)) nil) (((class color) (background light)) nil) (t nil)) "Level 5 empty newsgroup face." gnus-group-news-5 ((t (:inherit gnus-group-news-5-empty :bold t))) "Level 5 newsgroup face." gnus-group-news-6-empty ((((class color) (background dark)) nil) (((class color) (background light)) nil) (t nil)) "Level 6 empty newsgroup face." gnus-group-news-6 ((t (:inherit gnus-group-news-6-empty :bold t))) "Level 6 newsgroup face." gnus-group-news-low-empty ((((class color) (background dark)) (:foreground "DarkTurquoise")) (((class color) (background light)) (:foreground "DarkGreen")) (t nil)) "Low level empty newsgroup face." gnus-group-news-low ((t (:inherit gnus-group-news-low-empty :bold t))) "Low level newsgroup face." gnus-group-mail-1-empty ((((class color) (background dark)) (:foreground "#e1ffe1")) (((class color) (background light)) (:foreground "DeepPink3")) (t (:italic t))) "Level 1 empty mailgroup face." gnus-group-mail-1 ((t (:inherit gnus-group-mail-1-empty :bold t))) "Level 1 mailgroup face." gnus-group-mail-2-empty ((((class color) (background dark)) (:foreground "DarkSeaGreen1")) (((class color) (background light)) (:foreground "HotPink3")) (t (:italic t))) "Level 2 empty mailgroup face." gnus-group-mail-2 ((t (:inherit gnus-group-mail-2-empty :bold t))) "Level 2 mailgroup face." gnus-group-mail-3-empty ((((class color) (background dark)) (:foreground "aquamarine1")) (((class color) (background light)) (:foreground "magenta4")) (t nil)) "Level 3 empty mailgroup face." gnus-group-mail-3 ((t (:inherit gnus-group-mail-3-empty :bold t))) "Level 3 mailgroup face." gnus-group-mail-low-empty ((((class color) (background dark)) (:foreground "aquamarine2")) (((class color) (background light)) (:foreground "DeepPink4")) (t (:bold t))) "Low level empty mailgroup face." gnus-group-mail-low ((t (:inherit gnus-group-mail-low-empty :bold t))) "Low level mailgroup face." gnus-summary-selected ((t (:underline t))) "Face used for selected articles." gnus-summary gnus-summary-cancelled ((((class color)) (:foreground "yellow" :background "black"))) "Face used for canceled articles." gnus-summary-normal-ticked ((((class color) (background dark)) (:foreground "pink")) (((class color) (background light)) (:foreground "firebrick")) (t nil)) "Face used for normal interest ticked articles." gnus-summary-high-ticked ((t (:inherit gnus-summary-normal-ticked :bold t))) "Face used for high interest ticked articles." gnus-summary-low-ticked ((t (:inherit gnus-summary-normal-ticked :italic t))) "Face used for low interest ticked articles." gnus-summary-normal-ancient ((((class color) (background dark)) (:foreground "SkyBlue")) (((class color) (background light)) (:foreground "RoyalBlue")) (t nil)) "Face used for normal interest ancient articles." gnus-summary-high-ancient ((t (:inherit gnus-summary-normal-ancient :bold t))) "Face used for high interest ancient articles." gnus-summary-low-ancient ((t (:inherit gnus-summary-normal-ancient :italic t))) "Face used for low interest ancient articles." gnus-summary-normal-undownloaded ((((class color) (background light)) (:foreground "cyan4" :bold nil)) (((class color) (background dark)) (:foreground "LightGray" :bold nil)) (t (:inverse-video t))) "Face used for normal interest uncached articles." gnus-summary-high-undownloaded ((t (:inherit gnus-summary-normal-undownloaded :bold t))) "Face used for high interest uncached articles." gnus-summary-low-undownloaded ((t (:inherit gnus-summary-normal-undownloaded :italic t))) "Face used for low interest uncached articles." gnus-summary-normal-unread ((t nil)) "Face used for normal interest unread articles." gnus-summary-high-unread ((t (:inherit gnus-summary-normal-unread :bold t))) "Face used for high interest unread articles." gnus-summary-low-unread ((t (:inherit gnus-summary-normal-unread :italic t))) "Face used for low interest unread articles." gnus-summary-normal-read ((((class color) (background dark)) (:foreground "PaleGreen")) (((class color) (background light)) (:foreground "DarkGreen")) (t nil)) "Face used for normal interest read articles." gnus-summary-high-read ((t (:inherit gnus-summary-normal-read :bold t))) "Face used for high interest read articles." gnus-summary-low-read ((t (:inherit gnus-summary-normal-read :italic t))) "Face used for low interest read articles."] 6)
(defvar gnus-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [gnus-mode-hook variable-documentation put "Hook run after entering nil mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp gnus-mode-map definition-name gnus-mode] 4)
(defvar gnus-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\207" [gnus-mode-abbrev-table gnus-mode-map variable-documentation put purecopy "Keymap for `gnus-mode'." boundp gnus-mode-syntax-table definition-name gnus-mode (lambda (#1=#:def-tmp-var) (defvar gnus-mode-syntax-table #1#)) make-syntax-table "Syntax table for `gnus-mode'." (lambda (#1#) (defvar gnus-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `gnus-mode'." derived-mode-parent special-mode] 5)
#@308 Base mode from which all other gnus modes derive.
This does nothing but derive from `special-mode', and should not
be used directly.
In addition to any hooks its parent mode might have run,
this mode runs the hook `gnus-mode-hook', as the final or penultimate step
during initialization.
\{gnus-mode-map}
(defalias 'gnus-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324
\325\"\204R
=\204R \326
\325C#\210\327 !\210\330\f!\210
)\331\332!\207" [delay-mode-hooks major-mode mode-name gnus-mode-map gnus-mode-syntax-table gnus-mode-abbrev-table make-local-variable t special-mode gnus-mode nil mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table run-mode-hooks gnus-mode-hook local-abbrev-table] 5 (#$ . 15416) nil])
#@34 List of buffers handled by Gnus.
(defvar gnus-buffers nil (#$ . 16432))
#@78 Do the same as `get-buffer-create', but store the created buffer.
(fn NAME)
(defalias 'gnus-get-buffer-create #[257 "\301!\206 \302!B\211@\207" [gnus-buffers get-buffer get-buffer-create] 3 (#$ . 16510)])
#@53 Add the current buffer to the list of Gnus buffers.
(defalias 'gnus-add-buffer #[0 "\301 \210pB\211\207" [gnus-buffers gnus-prune-buffers] 2 (#$ . 16727)])
#@68 Kill BUFFER and remove from the list of Gnus buffers.
(fn BUFFER)
(defalias 'gnus-kill-buffer '(macro . #[257 "\300\301DC\302BB\207" [let buf ((when (gnus-buffer-live-p buf) (kill-buffer buf) (gnus-prune-buffers)))] 4 (#$ . 16891)]))
#@37 Return a list of live Gnus buffers.
(defalias 'gnus-buffers #[0 "\301\302\"\211\207" [gnus-buffers seq-filter buffer-live-p] 3 (#$ . 17133)])
(defalias 'gnus-prune-buffers 'gnus-buffers)
#@32 Name of the Gnus group buffer.
(defvar gnus-group-buffer "*Group*" (#$ . 17328))
(custom-declare-face 'gnus-splash '((((class color) (background dark)) (:foreground "#cccccc")) (((class color) (background light)) (:foreground "#888888")) (t nil)) "Face for the splash screen." :group 'gnus-start)
(defalias 'gnus-splash #[0 "\212\303\304!!\210\305\306 \210\n?\205 \307 \210\310\311!*\207" [gnus-group-buffer buffer-read-only gnus-inhibit-startup-message switch-to-buffer gnus-get-buffer-create nil erase-buffer gnus-group-startup-message sit-for 0] 3])
#@67 Indent rigidly using only spaces and no tabs.
(fn START END ARG)
(defalias 'gnus-indent-rigidly #[771 "\212\214}\210\301\302#\210eb\210\303\304\305\306#\205\" \307\310\306\211#\210\202 +\207" [tab-width 8 indent-rigidly search-forward " " nil t replace-match " "] 7 (#$ . 17890)])
#@37 Color alist used for the Gnus logo.
(defvar gnus-logo-color-alist '((flame "#cc3300" "#ff2200") (pine "#c0cc93" "#f8ffb8") (moss "#a1cc93" "#d2ffb8") (irish "#04cc90" "#05ff97") (sky "#049acc" "#05deff") (tin "#6886cc" "#82b6ff") (velvet "#7c68cc" "#8c82ff") (grape "#b264cc" "#cf7df") (labia "#cc64c2" "#fd7dff") (berry "#cc6485" "#ff7db5") (dino "#724214" "#1e3f03") (oort "#cccccc" "#888888") (storm "#666699" "#99ccff") (pdino "#9999cc" "#99ccff") (purp "#9999cc" "#666699") (no "#ff0000" "#ffff00") (neutral "#b4b4b4" "#878787") (ma "#2020e0" "#8080ff") (september "#bf9900" "#ffcc00")) (#$ . 18192))
(byte-code "\301\302\303\304\305DD\306\307\310\311\312\"B\313\314&\207" [gnus-logo-color-alist custom-declare-variable gnus-logo-color-style funcall function #[0 "\300\207" [ma] 1] "Color styles used for the Gnus logo." :type choice mapcar #[257 "\300@D\207" [const] 3 "\n\n(fn ELEM)"] :group gnus-xmas] 9)
#@32 Colors used for the Gnus logo.
(defvar gnus-logo-colors (byte-code " \236A\207" [gnus-logo-color-style gnus-logo-color-alist] 2) (#$ . 19114))
#@63 Insert startup message in current buffer.
(fn &optional X Y)
(defalias 'gnus-group-startup-message #[512 "\306 \210\307\310!\205\255 \311 \205\255 \310\312!\210\313\314!\211\203 C\202+ \315\302!\203* \302J\202+ \316\310\317\320\321\322\323\324 @B\325 A@BD\257\317\326\321\327\323\330 @B\331 A@BD\257\332\317\333\321\334\335\336\337!\340\341\342!\257\317\343\321\344\335\336\337!\340\341\342!\257\257!!\211\205\252 \345!\346\347\350\351\352\353 \206\207 A\354#\355\"]\"\210\346\356\350\351\357 \206\233 @Z\355\"]\"\210\360!\266eb\210\361*\262?\205\364 \362\363!c\210\364ed\357 \206\300 \365Z\350]\355\245#\210eb\210\354y\210\366ed\"\353 \211Z\367\350\355\370\245_]\347\"c\266\371ed\372\337$\210eb\210\373\fP\374\361!\207" [data-directory load-path image-load-path gnus-logo-colors gnus-version mode-line-buffer-identification erase-buffer fboundp find-image display-graphic-p (nil (:type xpm :file "gnus.xpm")) nnheader-find-etc-directory "images/gnus" boundp gnus-splash-svg-color-symbols :type svg :file "gnus.svg" :color-symbols "#bf9900" "#ffcc00" xpm "gnus.xpm" "thing" "shadow" (:type png :file "gnus.png") pbm "gnus.pbm" :background face-foreground gnus-splash :foreground face-background default xbm "gnus.xbm" image-size insert-char 10 0 round - window-height 1 2 32 window-width insert-image t format "\n _ ___ _ _\n _ ___ __ ___ __ _ ___\n __ _ ___ __ ___\n _ ___ _\n _ _ __ _\n ___ __ _\n __ _\n _ _ _\n _ _ _\n _ _ _\n __ ___\n _ _ _ _\n _ _\n _ _\n _ _\n _\n __\n\n" gnus-indent-rigidly 46 count-lines make-string 3 put-text-property face " " set-buffer-modified-p] 18 (#$ . 19264)])
#@60 Do color-symbol search-and-replace in svg file.
(fn LIST)
(defalias 'gnus-splash-svg-color-symbols #[257 "\300A\301\"\300A\302\"\300A\303\"\304\230\203Q \305\306!r\211q\210\307\310\311\312\313!\314\"\315$\216\316!\210\317 *\262C\320\307\321\322\312\313!\323\"\324\325%\"\210@\301\326\242FB\262\202R \207" [plist-get :type :file :color-symbols "svg" generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents buffer-string mapc 257 "\300\301\302@P\302AP\300\242#\240\207" [replace-regexp-in-string "fill:"] 6 "\n\n(fn RULE)" :data] 12 (#$ . 21072)])
(byte-code "\302\303\"\304\305\"\203 \306=\203 \307 !\210\202 \310 \210\210\311\312!\210\311\313!\210\314\315\316\317\320DD\321\322\323\324\325\326\327& \210\314\330\316\317\331DD\332\322\323\324\325\326\333& \207" [this-command gnus-group-buffer format "%s" string-match "gnus" gnus-other-frame gnus-get-buffer-create gnus-splash require gnus-util nnheader custom-declare-variable gnus-parameters funcall function #[0 "\300\207" [nil] 1] "Alist of group parameters.\n\nFor example:\n ((\"mail\\\\..*\" (gnus-show-threads nil)\n (gnus-use-scoring nil)\n (gnus-summary-line-format\n \"%U%R%z%I%(%[%d:%ub%-23,23f%]%) %s\\n\")\n (gcc-self . t)\n (display . all))\n (\"mail\\\\.me\" (gnus-use-scoring t))\n (\"list\\\\..*\" (total-expire . t)\n (broken-reply-to . t)))" :version "22.1" :group gnus-group-various :type (repeat (cons regexp (repeat sexp))) gnus-parameters-case-fold-search #[0 "\300\207" [default] 1] "If it is t, ignore case of group names specified in `gnus-parameters'.\nIf it is nil, don't ignore case. If it is `default', which is for the\nbackward compatibility, use the value of `case-fold-search'." (choice :format "%{%t%}:\n %[Value Menu%] %v" (const :tag "Use `case-fold-search'" default) (const nil) (const t))] 10)
(defvar gnus-group-parameters-more nil)
#@630 Define a group parameter PARAM.
REST is a plist of following:
:type One of `bool', `list' or nil.
:function The name of the function.
:function-document The documentation of the function.
:parameter-type The type for customizing the parameter.
:parameter-document The documentation for the parameter.
:variable The name of the variable.
:variable-document The documentation for the variable.
:variable-group The group for customizing the variable.
:variable-type The type for customizing the variable.
:variable-default The default value of the variable.
(fn PARAM &rest REST)
(defalias 'gnus-define-group-parameter '(macro . #[385 "\300\301\"\300\302\"\300\303\"\300\304\"\206 \305\306\307\"!\300\310\"\206\" \311\300\312\"\2061 \305\306\313 \"!\300\314\"\206: \311\300\315\"\300 \316\"\206R \317\320\321\322\nA@EDD\300\n\323\"\324\325\326\327\326\317 D\301 \257\n\330\331\332\333\317D\334BB\335BBE\336\337\321\317DFE
\340=\203\315 \341 \342\f\343\344\345\346\317D\347BB\350B\330\351\333\317D\352BBE\353B\354D\355\356BBD\343\357D\360B\361BBD\257E\257\202\372 \341 \362\f\363\364\365\366\364\317D\205\342 \367F\343\357D\370B\371\203\364 \372\202\365 \373FEE\257\257\207" [plist-get :type :parameter-type :parameter-document :function intern format "gnus-parameter-%s" :function-document "" :variable "gnus-parameter-%s-alist" :variable-document :variable-group :variable-type quote repeat list (regexp :tag "Group") :variable-default progn defcustom :group 'gnus-group-parameter setq gnus-group-parameters-more delq assq (gnus-group-parameters-more) (gnus-group-parameters-more) add-to-list 'gnus-group-parameters-more bool defun (name) let ((params (gnus-group-find-parameter name)) val) cond memq (params) (t) val (params) ((cdr val)) stringp string-match (name) alist (elem value) ((while (setq elem (pop alist)) (when (and name (string-match (car elem) name)) (setq alist nil value (cdr elem)))) (if (consp value) (car value) value)) (name) and name or gnus-group-find-parameter t (elem value) (while (setq elem (pop alist)) (when (and name (string-match (car elem) name)) (setq alist nil value (cdr elem)))) value (if (consp value) (car value) value)] 30 (#$ . 23043)]))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\311&\210\300\315\302\303\316DD\317\306\307\310\320&\210\300\321\302\303\322DD\323\306\324\310\325&\210\300\326\302\303\327DD\330\306\307\306\324\310\331& \207" [custom-declare-variable gnus-home-directory funcall function #[0 "\300\207" [#1="~/"] 1 #1#] "Directory variable that specifies the \"home\" directory.\nAll other Gnus file and directory variables are initialized from this variable.\n\nNote that Gnus is mostly loaded when the `.gnus.el' file is read.\nThis means that other directory variables that are initialized\nfrom this variable won't be set properly if you set this variable\nin `.gnus.el'. Set this variable in `.emacs' instead." :group gnus-files :type directory gnus-directory #[0 "\301\302!\206\n \303\304\"\207" [gnus-home-directory getenv "SAVEDIR" nnheader-concat "News/"] 3] "Directory variable from which all other Gnus file variables are derived.\n\nNote that Gnus is mostly loaded when the `.gnus.el' file is read.\nThis means that other directory variables that are initialized from\nthis variable won't be set properly if you set this variable in `.gnus.el'.\nSet this variable in `.emacs' instead." gnus-default-directory #[0 "\300\207" [nil] 1] "Default directory for all Gnus buffers." (choice (const :tag "current" nil) directory) gnus-default-nntp-server #[0 "\300\207" [nil] 1] "The hostname of the default NNTP server.\nThe empty string, or nil, means to use the local host.\nYou may wish to set this on a site-wide basis.\n\nIf you want to change servers, you should use `gnus-select-method'." gnus-server (choice (const :tag "local host" nil) (string :tag "host name")) gnus-nntpserver-file #[0 "\300\207" [#2="/etc/nntpserver"] 1 #2#] "A file with only the name of the nntp server in it." file] 10)
#@106 Find default nntp server.
Check the NNTPSERVER environment variable and the
`gnus-nntpserver-file' file.
(defalias 'gnus-getenv-nntpserver #[0 "\301\302!\2061 \303!\2051 \304\305!r\211q\210\306\307\310\311\312!\313\"\314$\216\315!\210\316\317\320\321#\205. \322\307!*\262\207" [gnus-nntpserver-file getenv "NNTPSERVER" file-readable-p generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents re-search-forward "[^ \n
]+" nil t match-string] 7 (#$ . 27185)])
(byte-code "\300\301\302\303\304DD\305\306\307\306\310\311\312\313\301& \210\300\314\302\303\315DD\316\306\307\306\317\313\320& \210\300\321\302\303\322DD\323\324\325\306\307\306\317\313\326& \210\300\327\302\303\330DD\331\324\332\306\317\313\333& \210\300\334\302\303\335DD\336\306\307\313\337&\210\340\334\301\332#\210\300\341\302\303\342DD\343\306\307\313\344&\210\300\345\302\303\346DD\347\306\317\313\350&\210\340\345\351\352#\210\300\353\302\303\354DD\355\324\332\306\307\313\356& \210\300\357\302\303\360DD\361\306\307\313\362&\210\300\363\302\303\364DD\365\306\366\306\367\313\370& \210\300\371\302\303\372DD\373\306\374\313\375&\210\300\376\302\303\377DD\201@ \306\310\313\201A &\210\300\201B \302\303\201C DD\201D \306\201E \306\201F \313\201G & \210\300\201H \302\303\201I DD\201J \306\201K \306\310\313\326& \210\300\201L \302\303\201M DD\201N \306\201O \313\326&\210\300\201P \302\303\201Q DD\201R \306\201O \306\201S \313\201T & \210\300\201U \302\303\201V DD\201W \306\201O \306\201X \313\201Y & \210\300\201Z \302\303\201[ DD\201\\ \306\201O \313\326&\210\300\201] \302\303\201^ DD\201_ \306\201O \313\201` &\210\300\201a \302\303\201b DD\201c \306\201O \313\326&\210\300\201d \302\303\201e DD\201f \306\201O \313\326&\210\300\201g \302\303\201h DD\201i \306\201j \313\201k &\210\300\201l \302\303\201m DD\201n \306\201O \313\326&\210\300\201o \302\303\201p DD\201q \306\201O \313\326&\210\300\201r \302\303\201s DD\201t \306\374\313\326&\210\300\201u \302\303\201v DD\201w \306\201x \313\201y &\210\300\201z \302\303\201{ DD\201| \306\201} \313\201~ &\210\300\201 \302\303\201\200 DD\201\201 \306\201\202 \313\201\203 &\210\300\201\204 \302\303\201\205 DD\201\206 \306\307\313\201\207 \324\332& \207" [custom-declare-variable gnus-select-method funcall function #[0 "\301\302 \206 \203 \303\230\204 \206 \304D\207" [gnus-default-nntp-server nntp gnus-getenv-nntpserver "" "news"] 3] "Default method for selecting a newsgroup.\nThis variable should be a list, where the first element is how the\nnews is to be fetched, the second is the address.\n\nFor instance, if you want to get your news via \"flab.flab.edu\" using\nNNTP, you could say:\n\n(setq gnus-select-method \\='(nntp \"flab.flab.edu\"))\n\nIf you want to use your local spool, say:\n\n(setq gnus-select-method (list \\='nnspool (system-name)))\n\nIf you use this variable, you must set `gnus-nntp-server' to nil.\n\nThere is a lot more to know about select methods and virtual servers -\nsee the manual for details." :group gnus-server gnus-start :initialize custom-initialize-default :type gnus-message-archive-method #[0 "\300\207" [#1="archive"] 1 #1#] "Method used for archiving messages you've sent.\nThis should be a mail method.\n\nSee also `gnus-update-message-archive-method'." gnus-message (choice (const :tag "Default archive method" "archive") gnus-select-method) gnus-update-message-archive-method #[0 "\300\207" [nil] 1] "Non-nil means always update the saved \"archive\" method.\n\nThe archive method is initially set according to the value of\n`gnus-message-archive-method' and is saved in the \"~/.newsrc.eld\" file\nso that it may be used as a real method of the server which is named\n\"archive\" ever since. If it once has been saved, it will never be\nupdated if the value of this variable is nil, even if you change the\nvalue of `gnus-message-archive-method' afterward. If you want the\nsaved \"archive\" method to be updated whenever you change the value of\n`gnus-message-archive-method', set this variable to a non-nil value." :version "23.1" boolean gnus-message-archive-group #[0 "\300\207" [((format-time-string "sent.%Y-%m"))] 1] "Name of the group in which to save the messages you've written.\nThis can either be a string; a list of strings; or an alist\nof regexps/functions/forms to be evaluated to return a string (or a list\nof strings). The functions are called with the name of the current\ngroup (or nil) as a parameter.\n\nIf you want to save your mail in one group and the news articles you\nwrite in another group, you could say something like:\n\n (setq gnus-message-archive-group\n \\='((if (message-news-p)\n \"misc-news\"\n \"misc-mail\")))\n\nNormally the group names returned by this variable should be\nunprefixed -- which implicitly means \"store on the archive server\".\nHowever, you may wish to store the message on some other server. In\nthat case, just return a fully prefixed name of the group --\n\"nnml+private:mail.misc\", for instance." "24.1" (choice (const :tag "none" nil) (const :tag "Weekly" ((format-time-string "sent.%Yw%U"))) (const :tag "Monthly" ((format-time-string "sent.%Y-%m"))) (const :tag "Yearly" ((format-time-string "sent.%Y"))) function sexp string) gnus-secondary-servers #[0 "\300\207" [nil] 1] "List of NNTP servers that the user can choose between interactively.\nTo make Gnus query you for a server, you have to give `gnus' a\nnon-numeric prefix - `C-u M-x gnus', in short." (repeat string) make-obsolete-variable gnus-secondary-select-methods #[0 "\300\207" [nil] 1] "A list of secondary methods that will be used for reading news.\nThis is a list where each element is a complete select method (see\n`gnus-select-method').\n\nIf, for instance, you want to read your mail with the nnml back end,\nyou could set this variable:\n\n(setq gnus-secondary-select-methods \\='((nnml \"\")))" (repeat gnus-select-method) gnus-local-domain #[0 "\300\207" [nil] 1] "Local domain name without a host name.\nThe DOMAINNAME environment variable is used instead if it is defined.\nIf the function `system-name' returns the full Internet name, there is\nno need to set this variable." (choice (const :tag "default" nil) string) nil "Emacs 24.1" gnus-refer-article-method #[0 "\300\207" [current] 1] "Preferred method for fetching an article by Message-ID.\nThe value of this variable must be a valid select method as discussed\nin the documentation of `gnus-select-method'.\n\nIt can also be a list of select methods, as well as the special symbol\n`current', which means to use the current select method. If it is a\nlist, Gnus will try all the methods in the list until it finds a match." (choice (const :tag "default" nil) (const current) (const :tag "Google" (nnweb "refer" (nnweb-type google))) gnus-select-method sexp (repeat :menu-tag "Try multiple" :tag "Multiple" :value (current (nnweb "refer" (nnweb-type google))) (choice :tag "Method" (const current) (const :tag "Google" (nnweb "refer" (nnweb-type google))) gnus-select-method))) gnus-use-cross-reference #[0 "\300\207" [t] 1] "Non-nil means that cross referenced articles will be marked as read.\nIf nil, ignore cross references. If t, mark articles as read in\nsubscribed newsgroups. If neither t nor nil, mark as read in all\nnewsgroups." (choice (const :tag "off" nil) (const :tag "subscribed" t) (sexp :format "all" :value always)) gnus-process-mark #[0 "\300\207" [35] 1] "Process mark." gnus-group-visual gnus-summary-marks character gnus-large-newsgroup #[0 "\300\207" [200] 1] "The number of articles which indicates a large newsgroup.\nIf the number of articles in a newsgroup is greater than this value,\nconfirmation is required for selecting the newsgroup.\nIf it is nil, no confirmation is required.\n\nAlso see `gnus-large-ephemeral-newsgroup'." gnus-group-select (choice (const :tag "No limit" nil) integer) gnus-use-long-file-name #[0 "\301=\205 \302?\207" [system-type usg-unix-v (usg-unix-v)] 2] "Non-nil means that the default name of a file to save articles in is the group name.\nIf it's nil, the directory form of the group name is used instead.\n\nIf this variable is a list, and the list contains the element\n`not-score', long file names will not be used for score files; if it\ncontains the element `not-save', long file names will not be used for\nsaving; and if it contains the element `not-kill', long file names\nwill not be used for kill files.\n\nNote that the default for this variable varies according to what system\ntype you're using. On `usg-unix-v' this variable defaults to nil while\non all other systems it defaults to t." (radio (sexp :format "Non-nil\n" :match (lambda (widget value) (and value (not (listp value)))) :value t) (const nil) (checklist (const :format "%v " not-score) (const :format "%v " not-save) (const not-kill))) gnus-kill-files-directory #[0 "\207" [gnus-directory] 1] "Name of the directory where kill files will be stored (default \"~/News\")." gnus-score-files gnus-score-kill directory gnus-save-score #[0 "\300\207" [nil] 1] "If non-nil, save group scoring info." gnus-score-various gnus-use-undo #[0 "\300\207" [t] 1] "If non-nil, allow undoing in Gnus group mode buffers." gnus-meta gnus-use-adaptive-scoring #[0 "\300\207" [nil] 1] "If non-nil, use some adaptive scoring scheme.\nIf a list, then the values `word' and `line' are meaningful. The\nformer will perform adaption on individual words in the subject\nheader while `line' will perform adaption on several headers." gnus-score-adapt (set (const word) (const line)) gnus-use-cache #[0 "\300\207" [passive] 1] "If nil, Gnus will ignore the article cache.\nIf `passive', it will allow entering (and reading) articles\nexplicitly entered into the cache. If anything else, use the\ncache to the full extent of the law." gnus-cache (choice (const :tag "off" nil) (const :tag "passive" passive) (const :tag "active" t)) gnus-use-trees #[0 "\300\207" [nil] 1] "If non-nil, display a thread tree buffer." gnus-keep-backlog #[0 "\300\207" [20] 1] "If non-nil, Gnus will keep read articles for later re-retrieval.\nIf it is a number N, then Gnus will only keep the last N articles\nread. If it is neither nil nor a number, Gnus will keep all read\narticles. This is not a good idea." (choice (const :tag "off" nil) integer (sexp :format "all" :value t)) gnus-suppress-duplicates #[0 "\300\207" [nil] 1] "If non-nil, Gnus will mark duplicate copies of the same article as read." gnus-use-scoring #[0 "\300\207" [t] 1] "If non-nil, enable scoring." gnus-summary-prepare-exit-hook #[0 "\300\207" [(gnus-summary-expire-articles)] 1] "A hook called when preparing to exit from the summary buffer.\nIt calls `gnus-summary-expire-articles' by default." gnus-summary-exit hook gnus-novice-user #[0 "\300\207" [t] 1] "Non-nil means that you are a Usenet novice.\nIf non-nil, verbose messages may be displayed and confirmations may be\nrequired." gnus-expert-user #[0 "\300\207" [nil] 1] "Non-nil means that you will never be asked for confirmation about anything.\nThat doesn't mean *anything* anything; particularly destructive\ncommands will still require prompting." gnus-interactive-catchup #[0 "\300\207" [t] 1] "If non-nil, require your confirmation when catching up a group." gnus-interactive-exit #[0 "\300\207" [t] 1] "If non-nil, require your confirmation when exiting Gnus.\nIf `quiet', update any active summary buffers automatically\nfirst before exiting." gnus-exit (choice boolean (const quiet)) gnus-extract-address-components #[0 "\300\207" [gnus-extract-address-components] 1] "Function for extracting address components from a From header.\nTwo pre-defined function exist: `gnus-extract-address-components',\nwhich is the default, quite fast, and too simplistic solution, and\n`mail-extract-address-components', which works much better, but is\nslower." gnus-summary-format (radio (function-item gnus-extract-address-components) (function-item mail-extract-address-components) (function :tag "Other")) gnus-shell-command-separator #[0 "\300\207" [#2=";"] 1 #2#] "String used to separate shell commands." gnus-files string gnus-valid-select-methods #[0 "\300\207" [(("nntp" post address prompt-address physical-address cloud) ("nnspool" post address) ("nnvirtual" post-mail virtual prompt-address) ("nnmbox" mail respool address) ("nnml" post-mail respool address) ("nnmh" mail respool address) ("nndir" post-mail prompt-address physical-address) ("nneething" none address prompt-address physical-address) ("nndoc" none address prompt-address) ("nnbabyl" mail address respool) ("nndraft" post-mail) ("nnfolder" mail respool address) ("nngateway" post-mail address prompt-address physical-address) ("nnweb" none) ("nnrss" none global) ("nnagent" post-mail) ("nnimap" post-mail address prompt-address physical-address respool server-marks cloud) ("nnmaildir" mail respool address server-marks) ("nnnil" none))] 1] "An alist of valid select methods.\nThe first element of each list lists should be a string with the name\nof the select method. The other elements may be the category of\nthis method (i. e., `post', `mail', `none' or whatever) or other\nproperties that this method has (like being respoolable).\nIf you implement a new select method, all you should have to change is\nthis variable. I think." (repeat (group (string :tag "Name") (radio-button-choice (const :format "%v " post) (const :format "%v " mail) (const :format "%v " none) (const post-mail)) (checklist :inline t :greedy t (const :format "%v " address) (const cloud) (const global) (const :format "%v " prompt-address) (const :format "%v " physical-address) (const virtual) (const :format "%v " respool) (const server-marks))))] 12)
#@88 Recomputes the select-method widget based on the value of
`gnus-valid-select-methods'.
(defalias 'gnus-redefine-select-method-widget #[0 "\301\302\303\304\305\306\307\310\311\312\307\313\314\315\316\"\317\"BBB\320B& \207" [gnus-valid-select-methods define-widget gnus-select-method list "Widget for entering a select method." :value (nntp "") :tag "Select Method" :args choice "Method" append mapcar #[257 "\300\301\302\303@!F\207" [const :format "%v\n" intern] 6 "\n\n(fn ENTRY)"] ((symbol :tag "other")) ((string :tag "Address") (repeat :tag "Options" :inline t (list :format "%v" variable (sexp :tag "Value"))))] 16 (#$ . 40939)])
(byte-code "\301 \210\302\303\304\305\306DD\307\310\311\312\313&\210\302\314\304\305\315DD\316\317\320\310\311\312\321& \210\322\323\324\325#\210\302\326\304\305\327DD\330\310\331\310\331\312\332& \210\333\334\236\"\334\335\336E\211\235\203N \210\207\211B\207" [gnus-group-parameters-more gnus-redefine-select-method-widget custom-declare-variable gnus-updated-mode-lines funcall function #[0 "\300\207" [(group article summary tree)] 1] "List of buffers that should update their mode lines.\nThe list may contain the symbols `group', `article', `tree' and\n`summary'. If the corresponding symbol is present, Gnus will keep\nthat mode line updated with information that may be pertinent.\nIf this variable is nil, screen refresh may be quicker." :group gnus-various :type (set (const group) (const article) (const summary) (const tree)) gnus-mode-non-string-length #[0 "\300\207" [30] 1] "Max length of mode-line non-string contents.\nIf this is nil, Gnus will take space as is needed, leaving the rest\nof the mode line intact." :version "24.1" (choice (const nil) integer) define-widget gnus-email-address string "An email address." gnus-parameter-to-address-alist #[0 "\300\207" [nil] 1] "Alist of group regexps and correspondent to-addresses." gnus-group-parameter (repeat (list (regexp :tag "Group") #1=(gnus-email-address :tag "To Address"))) delq to-address #1# "This will be used when doing followups and posts.\n\nThis is primarily useful in mail groups that represent closed\nmailing lists--mailing lists where it's expected that everybody that\nwrites to the mailing list is subscribed to it. Since using this\nparameter ensures that the mail only goes to the mailing list itself,\nit means that members won't receive two copies of your followups.\n\nUsing `to-address' will actually work whether the group is foreign or\nnot. Let's say there's a group on the server that is called\n`fa.4ad-l'. This is a real newsgroup, but the server has gotten the\narticles from a mail-to-news gateway. Posting directly to this group\nis therefore impossible--you have to send mail to the mailing list\naddress instead.\n\nThe gnus-group-split mail splitting mechanism will behave as if this\naddress was listed in gnus-group-split Addresses (see below)."] 10)
#@39 Return GROUP's to-address.
(fn NAME)
(defalias 'gnus-parameter-to-address #[257 "\211\205> \301\302\303#\206> \303\211\211A\262\242\211\262\2031 \203 \304@\"\203 \303\262A\262\202 \211:\203; \211@\202< \211\266\203\207" [gnus-parameter-to-address-alist gnus-group-find-parameter to-address nil string-match] 7 (#$ . 43853)])
(byte-code "\301\302\303\304\305DD\306\307\310\307\310\311\312& \210\313\314\236\"\314\315\316E\211\235\203% \210\207\211B\207" [gnus-group-parameters-more custom-declare-variable gnus-parameter-to-list-alist funcall function #[0 "\300\207" [nil] 1] "Alist of group regexps and correspondent to-lists." :group gnus-group-parameter :type (repeat (list (regexp :tag "Group") #1=(gnus-email-address :tag "To List"))) delq to-list #1# "This address will be used when doing a `a' in the group.\n\nIt is totally ignored when doing a followup--except that if it is\npresent in a news group, you'll get mail group semantics when doing\n`f'.\n\nThe gnus-group-split mail splitting mechanism will behave as if this\naddress was listed in gnus-group-split Addresses (see below)."] 10)
#@36 Return GROUP's to-list.
(fn NAME)
(defalias 'gnus-parameter-to-list #[257 "\211\205> \301\302\303#\206> \303\211\211A\262\242\211\262\2031 \203 \304@\"\203 \303\262A\262\202 \211:\203; \211@\202< \211\266\203\207" [gnus-parameter-to-list-alist gnus-group-find-parameter to-list nil string-match] 7 (#$ . 44980)])
(byte-code "\301\302\303\304\305DD\306\307\310\307\310\311\312& \210\313\314\236\"\314\315\316E\211\235\203% \210\207\211B\207" [gnus-group-parameters-more custom-declare-variable gnus-parameter-subscribed-alist funcall function #[0 "\300\207" [nil] 1] "Groups which are automatically considered subscribed." :group gnus-group-parameter :type (repeat (list (regexp :tag "Group") #1=(const :tag "Subscribed" t))) delq subscribed #1# "Gnus assumed that you are subscribed to the To/List address.\n\nWhen constructing a list of subscribed groups using\n`gnus-find-subscribed-addresses', Gnus includes the To address given\nabove, or the list address (if the To address has not been set)."] 10)
#@48 Return GROUP's subscription status.
(fn NAME)
(defalias 'gnus-parameter-subscribed #[257 "\301!\302\303>\203 \304\202_ \303\236\211\262\203 \211A\202_ ;\203( \305\"\202_ \205_ \302\211\211A\262\242\211\262\203R \203/ \305@\"\203/ \302\262A\262\202/ \211:\203\\ \211@\202] \211\266\203\207" [gnus-parameter-subscribed-alist gnus-group-find-parameter nil subscribed t string-match] 9 (#$ . 46012)])
(byte-code "\301\302\303\304\305DD\306\307\310\307\311\312\313& \210\314\315\236\"\315\316\317E\211\235\203% \210\207\211B\207" [gnus-group-parameters-more custom-declare-variable gnus-auto-expirable-newsgroups funcall function #[0 "\300\207" [nil] 1] "Groups in which to automatically mark read articles as expirable.\nIf non-nil, this should be a regexp that should match all groups in\nwhich to perform auto-expiry. This only makes sense for mail groups." :group gnus-group-parameter nnmail-expire :type (choice (const nil) regexp) delq auto-expire (const :tag "Automatic Expire" t) "All articles that are read will be marked as expirable."] 10)
#@58 Check whether GROUP is auto-expirable or not.
(fn NAME)
(defalias 'gnus-group-auto-expirable-p #[257 "\301!\302\303>\203 \304\202_ \303\236\211\262\203 \211A\202_ ;\203( \305\"\202_ \205_ \302\211\211A\262\242\211\262\203R \203/ \305@\"\203/ \302\262A\262\202/ \211:\203\\ \211@\202] \211\266\203\207" [gnus-auto-expirable-newsgroups gnus-group-find-parameter nil auto-expire t string-match] 9 (#$ . 47094)])
(byte-code "\301\302\303\304\305DD\306\307\310\307\311\312\313& \210\314\315\236\"\315\316\317E\211\235\203% \210\207\211B\207" [gnus-group-parameters-more custom-declare-variable gnus-total-expirable-newsgroups funcall function #[0 "\300\207" [nil] 1] "Groups in which to perform expiry of all read articles.\nUse with extreme caution. All groups that match this regexp will be\nexpiring - which means that all read articles will be deleted after\n(say) one week. (This only goes for mail groups and the like, of\ncourse.)" :group gnus-group-parameter nnmail-expire :type (choice (const nil) regexp) delq total-expire (const :tag "Total Expire" t) "All read articles will be put through the expiry process\n\nThis happens even if they are not marked as expirable.\nUse with caution."] 10)
#@59 Check whether GROUP is total-expirable or not.
(fn NAME)
(defalias 'gnus-group-total-expirable-p #[257 "\301!\302\303>\203 \304\202_ \303\236\211\262\203 \211A\202_ ;\203( \305\"\202_ \205_ \302\211\211A\262\242\211\262\203R \203/ \305@\"\203/ \302\262A\262\202/ \211:\203\\ \211@\202] \211\266\203\207" [gnus-total-expirable-newsgroups gnus-group-find-parameter nil total-expire t string-match] 9 (#$ . 48330)])
(byte-code "\301\302\303\304\305DD\306\307\310\307\311\312\313& \210\314\315\236\"\315\316\317E\211\235\203% \210\207\211B\207" [gnus-group-parameters-more custom-declare-variable gnus-group-charset-alist funcall function #[0 "\300\207" [(("\\(^\\|:\\)hk\\>\\|\\(^\\|:\\)tw\\>\\|\\<big5\\>" cn-big5) ("\\(^\\|:\\)cn\\>\\|\\<chinese\\>" cn-gb-2312) ("\\(^\\|:\\)fj\\>\\|\\(^\\|:\\)japan\\>" iso-2022-jp-2) ("\\(^\\|:\\)tnn\\>\\|\\(^\\|:\\)pin\\>\\|\\(^\\|:\\)sci.lang.japan" iso-2022-7bit) ("\\(^\\|:\\)relcom\\>" koi8-r) ("\\(^\\|:\\)fido7\\>" koi8-r) ("\\(^\\|:\\)\\(cz\\|hun\\|pl\\|sk\\|hr\\)\\>" iso-8859-2) ("\\(^\\|:\\)israel\\>" iso-8859-1) ("\\(^\\|:\\)han\\>" euc-kr) ("\\(^\\|:\\)alt.chinese.text.big5\\>" chinese-big5) ("\\(^\\|:\\)soc.culture.vietnamese\\>" vietnamese-viqr) ("\\(^\\|:\\)\\(comp\\|rec\\|alt\\|sci\\|soc\\|news\\|gnu\\|bofh\\)\\>" iso-8859-1))] 1] "Alist of regexps (to match group names) and default charsets to be used when reading." :group gnus-group-parameter gnus-charset :type (repeat (list (regexp :tag "Group") (symbol :tag "Charset"))) delq charset (symbol :tag "Charset") "The default charset to use in the group."] 10)
#@49 Return the default charset of GROUP.
(fn NAME)
(defalias 'gnus-parameter-charset #[257 "\211\205> \301\302\303#\206> \303\211\211A\262\242\211\262\2031 \203 \304@\"\203 \303\262A\262\202 \211:\203; \211@\202< \211\266\203\207" [gnus-group-charset-alist gnus-group-find-parameter charset nil string-match] 7 (#$ . 49935)])
(byte-code "\301\302\303\304\305DD\306\307\310\307\311\312\313& \210\314\315\236\"\315\316\317E\211\235\203% \210\207\211B\207" [gnus-group-parameters-more custom-declare-variable gnus-post-method-alist funcall function #[0 "\300\207" [nil] 1] "Alist of regexps (to match group names) and method to be used when\nposting an article." :group gnus-group-parameter gnus-group-foreign :type (repeat (list (regexp :tag "Group") #1=(choice :tag "Posting Method" (const :tag "Use native server" native) (const :tag "Use current server" current) (list :convert-widget (lambda (widget) (list 'sexp :tag "Methods" :value gnus-select-method)))))) delq post-method #1# "Posting method for this group."] 10)
#@47 Return a posting method for GROUP.
(fn NAME)
(defalias 'gnus-parameter-post-method #[257 "\211\2053 \301\302\303#\2063 \304\211\211A\262\242\211\262\2031 \203 \305@\"\203 \304\262A\262\202 \266\202\207" [gnus-post-method-alist gnus-group-find-parameter post-method t nil string-match] 7 (#$ . 50980)])
(byte-code "\301\302\303\304\305DD\306\307\310\307\310\311\312& \210\313\314\236\"\314\315\316E\211\235\203% \210\207\211B\207" [gnus-group-parameters-more custom-declare-variable gnus-parameter-large-newsgroup-initial-alist funcall function #[0 "\300\207" [nil] 1] "Alist of group regexps and its initial input of the number of articles." :group gnus-group-parameter :type (repeat (list (regexp :tag "Group") #1=(choice :tag "Initial Input for Large Newsgroup" (const :tag "All" nil) (integer)))) delq large-newsgroup-initial #1# "\nThis number will be prompted as the initial value of the number of\narticles to list when the group is a large newsgroup (see\n`gnus-large-newsgroup'). If it is nil, the default value is the\ntotal number of articles in the group."] 10)
#@68 Return GROUP's initial input of the number of articles.
(fn NAME)
(defalias 'gnus-parameter-large-newsgroup-initial #[257 "\211\2053 \301\302\303#\2063 \304\211\211A\262\242\211\262\2031 \203 \305@\"\203 \304\262A\262\202 \266\202\207" [gnus-parameter-large-newsgroup-initial-alist gnus-group-find-parameter large-newsgroup-initial t nil string-match] 7 (#$ . 52082)])
(byte-code "\301\302\303\304\305DD\306\307\310\307\311\312\313& \210\314\315\236\"\315\316\317E\211\235\203% \210\207\211B\207" [gnus-group-parameters-more custom-declare-variable gnus-registry-ignored-groups funcall function #[0 "\300\301\302\"\207" [mapcar #[257 "\211\300D\207" [t] 3 "\n\n(fn G)"] ("delayed$" "drafts$" "queue$" "INBOX$" "^nnmairix:" "^nnir:" "archive")] 3] "Groups in which the registry should be turned off." :group gnus-group-parameter gnus-registry :type (repeat (list (regexp :tag "Group Name Regular Expression") (boolean :tag "Ignored"))) delq registry-ignore (boolean :tag "Group Ignored by the Registry") "Whether the Gnus Registry should ignore this group."] 10)
#@66 Whether this group should be ignored by the registry.
(fn NAME)
(defalias 'gnus-parameter-registry-ignore #[257 "\211\2053 \301\302\303#\2063 \304\211\211A\262\242\211\262\2031 \203 \305@\"\203 \304\262A\262\202 \266\202\207" [gnus-registry-ignored-groups gnus-group-find-parameter registry-ignore t nil string-match] 7 (#$ . 53172)])
(byte-code "\302\300\303\304\305DD\306\307\310\311\312\313\314& \210\203\325\315\316!\210\317\320!\210\302\321\303\304\322DD\323\313\324\313\325\311\326& \210\327\330 \236 \"\330\331\332E\211 \235\203D \210\202H \211 B\210\333\334\335\"\210\302\336\303\304\337DD\340\313\324\313\325\311\341& \210\327\342 \236 \"\342\343\340E\211 \235\203u \210\202y \211 B\210\333\344\345\"\210\302\346\303\304\347DD\350\313\324\313\325\311\351& \210\327\352 \236 \"\352\343\350E\211 \235\203\246 \210\202\252 \211 B\210\333\353\354\"\210\355\356!\210\357\360!\210\361\362!\210\363\364!\210\365\366!\210\367\370!\210\371\372!\210\373\374!\210\375\376!\210\377\201@ !\210\201A \201B !\210\201C \201D !\210\201E \201F !\210\302\201G \303\304\201H DD\201I \313\324\313\325\311\201J & \210\327\201K \236 \"\201K \201L \201M E\211 \235\203) \210\202-\211 B\210\333\201N \201O \"\210\302\201P \303\304\201Q DD\201R \313\324\313\325\311\201S & \210\327\201T \236 \"\201T \201U \201V E\211 \235\203n \210\202r\211 B\210\333\201W \201X \"\210\302\201Y \303\304\201Z DD\201[ \313\324\313\325\311\201\\ & \210\327\201] \236 \"\201] \201^ \201_ E\211 \235\203\263 \210\202\267\211 B\210\333\201` \201a \"\210\302\201b \303\304\201c DD\201d \313\324\313\325\311\201e & \210\327\201f \236 \"\201f \201g \201h E\211 \235\203\370 \210\202\374\211 B\210\333\201i \201j \"\210\302\201k \303\304\201l DD\201m \313\324\313\325\311\201n & \210\327\201o \236 \"\201o \201p \201q E\211 \235\203= \210\202A\211 B\210\333\201r \201s \"\210\302\201t \303\304\201u DD\201v \313\324\313\325\311\201w & \210\327\201x \236 \"\201x \201y \201z E\211 \235\203\202 \210\202\206\211 B\210\333\201{ \201| \"\210\302\201} \303\304\201~ DD\201 \313\324\313\325\311\201\200 & \210\327\201\201 \236 \"\201\201 \201\202 \201\203 E\211 \235\203\307 \210\202\313\211 B\210\333\201\204 \201\205 \"\210\302\201\206 \303\304\201\207 DD\201\210 \313\201\211 \311\201\212 &\210\302\201\213 \303\304\201\214 DD\201\215 \313\201\216 \311\312&\210\302\201\217 \303\304\201\220 DD\201\221 \313\314\311\201\222 &\210\302\201\223 \303\304\201\224 DD\201\225 \313\201\226 \201\227 \201\230 \311\201\222 & \210\302\201\231 \303\304\201\232 DD\201\233 \313\201\216 \311\201\234 &\210\302\201\235 \303\304\201\236 DD\201\237 \313\201\240 \313\201\235 \311\201\241 & \207" [gnus-install-group-spam-parameters gnus-group-parameters-more custom-declare-variable funcall function #[0 "\300\207" [t] 1] "Disable the group parameters for spam detection.\nEnable if `G c' in XEmacs is giving you trouble, and make sure to submit a bug report." :version "22.1" :type boolean :group gnus-start (lambda (#1=#:def-tmp-var) (defvar gnus-group-spam-classification-spam #1# "Spam group classification (requires spam.el).\nThis group contains spam messages. On summary entry, unread messages\nwill be marked as spam. On summary exit, the specified spam\nprocessors will be invoked on spam-marked messages, then those\nmessages will be expired, so the spam processor will only see a\nspam-marked message once.")) t (lambda (#1#) (defvar gnus-group-spam-classification-ham #1# "The ham value for the spam group parameter (requires spam.el).\nOn summary exit, the specified ham processors will be invoked on\nham-marked messages. Exercise caution, since the ham processor will\nsee the same message more than once because there is no ham message\nregistry.")) ask gnus-spam-newsgroup-contents #[0 "\300\207" [nil] 1] "Group classification (spam, ham, or neither). Only\nmeaningful when spam.el is loaded. If non-nil, this should be a\nlist of group name regexps associated with a classification for\neach one. In spam groups, new articles are marked as spam on\nsummary entry. There is other behavior associated with ham and\nno classification when spam.el is loaded - see the manual." gnus-group-parameter spam (repeat (list :tag "Group contents spam/ham classification" (regexp :tag "Group") (choice (variable-item gnus-group-spam-classification-spam) (variable-item gnus-group-spam-classification-ham) (const :tag "Unclassified" nil)))) delq spam-contents (list :tag "Group contents spam/ham classification" (choice :tag "Group contents classification for spam sorting" (variable-item gnus-group-spam-classification-spam) (variable-item gnus-group-spam-classification-ham) (const :tag "Unclassified" nil))) "The spam classification (spam, ham, or neither) of this group.\nWhen a spam group is entered, all unread articles are marked as\nspam. There is other behavior associated with ham and no\nclassification when spam.el is loaded - see the manual." defalias gnus-parameter-spam-contents #[257 "\211\2053 \301\302\303#\2063 \304\211\211A\262\242\211\262\2031 \203 \305@\"\203 \304\262A\262\202 \266\202\207" [gnus-spam-newsgroup-contents gnus-group-find-parameter spam-contents t nil string-match] 7 "The spam type (spam, ham, or neither) of the group.\n\n(fn NAME)"] gnus-spam-resend-to #[0 "\300\207" [nil] 1] "The address to get spam resent (through spam-report-resend)." (repeat (list :tag "Group address for resending spam" (regexp :tag "Group") (string :tag "E-mail address for resending spam (requires the spam-use-resend exit processor)"))) spam-resend-to string gnus-parameter-spam-resend-to #[257 "\211\2053 \301\302\303#\2063 \304\211\211A\262\242\211\262\2031 \203 \305@\"\203 \304\262A\262\202 \266\202\207" [gnus-spam-resend-to gnus-group-find-parameter spam-resend-to t nil string-match] 7 "The address to get spam resent (through spam-report-resend).\n\n(fn NAME)"] gnus-ham-resend-to #[0 "\300\207" [nil] 1] "The address to get ham resent (through spam-report-resend)." (repeat (list :tag "Group address for resending ham" (regexp :tag "Group") (string :tag "E-mail address for resending ham (requires the spam-use-resend exit processor)"))) ham-resend-to gnus-parameter-ham-resend-to #[257 "\211\2053 \301\302\303#\2063 \304\211\211A\262\242\211\262\2031 \203 \305@\"\203 \304\262A\262\202 \266\202\207" [gnus-ham-resend-to gnus-group-find-parameter ham-resend-to t nil string-match] 7 "The address to get ham resent (through spam-report-resend).\n\n(fn NAME)"] (lambda (#1#) (defvar gnus-group-spam-exit-processor-ifile #1# "OBSOLETE: The ifile summary exit spam processor.")) "ifile" (lambda (#1#) (defvar gnus-group-spam-exit-processor-stat #1# "OBSOLETE: The spam-stat summary exit spam processor.")) "stat" (lambda (#1#) (defvar gnus-group-spam-exit-processor-bogofilter #1# "OBSOLETE: The Bogofilter summary exit spam processor.")) "bogofilter" (lambda (#1#) (defvar gnus-group-spam-exit-processor-blacklist #1# "OBSOLETE: The Blacklist summary exit spam processor.")) "blacklist" (lambda (#1#) (defvar gnus-group-spam-exit-processor-report-gmane #1# "OBSOLETE: The Gmane reporting summary exit spam processor.\nOnly applicable to NNTP groups with articles from Gmane. See spam-report.el")) "report-gmane" (lambda (#1#) (defvar gnus-group-spam-exit-processor-spamoracle #1# "OBSOLETE: The spamoracle summary exit spam processor.")) "spamoracle-spam" (lambda (#1#) (defvar gnus-group-ham-exit-processor-ifile #1# "OBSOLETE: The ifile summary exit ham processor.\nOnly applicable to non-spam (unclassified and ham) groups.")) "ifile-ham" (lambda (#1#) (defvar gnus-group-ham-exit-processor-bogofilter #1# "OBSOLETE: The Bogofilter summary exit ham processor.\nOnly applicable to non-spam (unclassified and ham) groups.")) "bogofilter-ham" (lambda (#1#) (defvar gnus-group-ham-exit-processor-stat #1# "OBSOLETE: The spam-stat summary exit ham processor.\nOnly applicable to non-spam (unclassified and ham) groups.")) "stat-ham" (lambda (#1#) (defvar gnus-group-ham-exit-processor-whitelist #1# "OBSOLETE: The whitelist summary exit ham processor.\nOnly applicable to non-spam (unclassified and ham) groups.")) "whitelist" (lambda (#1#) (defvar gnus-group-ham-exit-processor-BBDB #1# "OBSOLETE: The BBDB summary exit ham processor.\nOnly applicable to non-spam (unclassified and ham) groups.")) "bbdb" (lambda (#1#) (defvar gnus-group-ham-exit-processor-copy #1# "OBSOLETE: The ham copy exit ham processor.\nOnly applicable to non-spam (unclassified and ham) groups.")) "copy" (lambda (#1#) (defvar gnus-group-ham-exit-processor-spamoracle #1# "OBSOLETE: The spamoracle summary exit ham processor.\nOnly applicable to non-spam (unclassified and ham) groups.")) "spamoracle-ham" gnus-spam-process-newsgroups #[0 "\300\207" [nil] 1] "Groups in which to automatically process spam or ham articles with\na backend on summary exit. If non-nil, this should be a list of group\nname regexps that should match all groups in which to do automatic\nspam processing, associated with the appropriate processor." (repeat :tag "Spam/Ham Processors" (list :tag "Spam Summary Exit Processor Choices" (regexp :tag "Group Regexp") (set :tag "Spam/Ham Summary Exit Processor" (const :tag "Spam: Bogofilter" (spam spam-use-bogofilter)) (const :tag "Spam: Blacklist" (spam spam-use-blacklist)) (const :tag "Spam: Bsfilter" (spam spam-use-bsfilter)) (const :tag "Spam: Gmane Report" (spam spam-use-gmane)) (const :tag "Spam: Resend Message" (spam spam-use-resend)) (const :tag "Spam: ifile" (spam spam-use-ifile)) (const :tag "Spam: Spam-stat" (spam spam-use-stat)) (const :tag "Spam: Spam Oracle" (spam spam-use-spamoracle)) (const :tag "Spam: SpamAssassin" (spam spam-use-spamassassin)) (const :tag "Spam: CRM114" (spam spam-use-crm114)) (const :tag "Ham: BBDB" (ham spam-use-BBDB)) (const :tag "Ham: Bogofilter" (ham spam-use-bogofilter)) (const :tag "Ham: Bsfilter" (ham spam-use-bsfilter)) (const :tag "Ham: Copy" (ham spam-use-ham-copy)) (const :tag "Ham: Resend Message" (ham spam-use-resend)) (const :tag "Ham: ifile" (ham spam-use-ifile)) (const :tag "Ham: Spam-stat" (ham spam-use-stat)) (const :tag "Ham: Spam Oracle" (ham spam-use-spamoracle)) (const :tag "Ham: SpamAssassin" (ham spam-use-spamassassin)) (const :tag "Ham: CRM114" (ham spam-use-crm114)) (const :tag "Ham: Whitelist" (ham spam-use-whitelist)) (variable-item gnus-group-spam-exit-processor-ifile) (variable-item gnus-group-spam-exit-processor-stat) (variable-item gnus-group-spam-exit-processor-bogofilter) (variable-item gnus-group-spam-exit-processor-blacklist) (variable-item gnus-group-spam-exit-processor-spamoracle) (variable-item gnus-group-spam-exit-processor-report-gmane) (variable-item gnus-group-ham-exit-processor-bogofilter) (variable-item gnus-group-ham-exit-processor-ifile) (variable-item gnus-group-ham-exit-processor-stat) (variable-item gnus-group-ham-exit-processor-whitelist) (variable-item gnus-group-ham-exit-processor-BBDB) (variable-item gnus-group-ham-exit-processor-spamoracle) (variable-item gnus-group-ham-exit-processor-copy)))) spam-process (choice :tag "Spam Summary Exit Processor" :value nil (list :tag "Spam Summary Exit Processor Choices" (set (const :tag "Spam: Bogofilter" (spam spam-use-bogofilter)) (const :tag "Spam: Blacklist" (spam spam-use-blacklist)) (const :tag "Spam: Bsfilter" (spam spam-use-bsfilter)) (const :tag "Spam: Gmane Report" (spam spam-use-gmane)) (const :tag "Spam: Resend Message" (spam spam-use-resend)) (const :tag "Spam: ifile" (spam spam-use-ifile)) (const :tag "Spam: Spam Oracle" (spam spam-use-spamoracle)) (const :tag "Spam: Spam-stat" (spam spam-use-stat)) (const :tag "Spam: SpamAssassin" (spam spam-use-spamassassin)) (const :tag "Spam: CRM114" (spam spam-use-crm114)) (const :tag "Ham: BBDB" (ham spam-use-BBDB)) (const :tag "Ham: Bogofilter" (ham spam-use-bogofilter)) (const :tag "Ham: Bsfilter" (ham spam-use-bsfilter)) (const :tag "Ham: Copy" (ham spam-use-ham-copy)) (const :tag "Ham: Resend Message" (ham spam-use-resend)) (const :tag "Ham: ifile" (ham spam-use-ifile)) (const :tag "Ham: Spam Oracle" (ham spam-use-spamoracle)) (const :tag "Ham: Spam-stat" (ham spam-use-stat)) (const :tag "Ham: SpamAssassin" (ham spam-use-spamassassin)) (const :tag "Ham: CRM114" (ham spam-use-crm114)) (const :tag "Ham: Whitelist" (ham spam-use-whitelist)) (variable-item gnus-group-spam-exit-processor-ifile) (variable-item gnus-group-spam-exit-processor-stat) (variable-item gnus-group-spam-exit-processor-bogofilter) (variable-item gnus-group-spam-exit-processor-blacklist) (variable-item gnus-group-spam-exit-processor-spamoracle) (variable-item gnus-group-spam-exit-processor-report-gmane) (variable-item gnus-group-ham-exit-processor-bogofilter) (variable-item gnus-group-ham-exit-processor-ifile) (variable-item gnus-group-ham-exit-processor-stat) (variable-item gnus-group-ham-exit-processor-whitelist) (variable-item gnus-group-ham-exit-processor-BBDB) (variable-item gnus-group-ham-exit-processor-spamoracle) (variable-item gnus-group-ham-exit-processor-copy)))) "Which spam or ham processors will be applied when the summary is exited." gnus-parameter-spam-process #[257 "\211\2053 \301\302\303#\2063 \304\211\211A\262\242\211\262\2031 \203 \305@\"\203 \304\262A\262\202 \266\202\207" [gnus-spam-process-newsgroups gnus-group-find-parameter spam-process t nil string-match] 7 "Which spam or ham processors will be applied when the summary is exited.\n\n(fn NAME)"] gnus-spam-autodetect #[0 "\300\207" [nil] 1] "Groups in which spam should be autodetected when they are entered.\n Only unseen articles will be examined, unless\n spam-autodetect-recheck-messages is set." (repeat :tag "Autodetection setting" (list (regexp :tag "Group Regexp") boolean)) spam-autodetect (boolean :tag "Spam autodetection") "Spam autodetection.\nOnly unseen articles will be examined, unless\nspam-autodetect-recheck-messages is set." gnus-parameter-spam-autodetect #[257 "\211\2053 \301\302\303#\2063 \304\211\211A\262\242\211\262\2031 \203 \305@\"\203 \304\262A\262\202 \266\202\207" [gnus-spam-autodetect gnus-group-find-parameter spam-autodetect t nil string-match] 7 "Should spam be autodetected (with spam-split) in this group?\n\n(fn NAME)"] gnus-spam-autodetect-methods #[0 "\300\207" [nil] 1] "Methods for autodetecting spam per group.\nRequires the spam-autodetect parameter. Only unseen articles\nwill be examined, unless spam-autodetect-recheck-messages is\nset." (repeat :tag "Autodetection methods" (list (regexp :tag "Group Regexp") (choice (const none) (const default) (set :tag "Use specific methods" (variable-item spam-use-blacklist) (variable-item spam-use-gmane-xref) (variable-item spam-use-regex-headers) (variable-item spam-use-regex-body) (variable-item spam-use-whitelist) (variable-item spam-use-BBDB) (variable-item spam-use-ifile) (variable-item spam-use-spamoracle) (variable-item spam-use-crm114) (variable-item spam-use-stat) (variable-item spam-use-blackholes) (variable-item spam-use-hashcash) (variable-item spam-use-spamassassin) (variable-item spam-use-spamassassin-headers) (variable-item spam-use-bsfilter) (variable-item spam-use-bsfilter-headers) (variable-item spam-use-bogofilter-headers) (variable-item spam-use-bogofilter))))) spam-autodetect-methods (choice :tag "Spam autodetection-specific methods" (const none) (const default) (set :tag "Use specific methods" (variable-item spam-use-blacklist) (variable-item spam-use-gmane-xref) (variable-item spam-use-regex-headers) (variable-item spam-use-regex-body) (variable-item spam-use-whitelist) (variable-item spam-use-BBDB) (variable-item spam-use-ifile) (variable-item spam-use-spamoracle) (variable-item spam-use-crm114) (variable-item spam-use-spamassassin) (variable-item spam-use-spamassassin-headers) (variable-item spam-use-bsfilter) (variable-item spam-use-bsfilter-headers) (variable-item spam-use-stat) (variable-item spam-use-blackholes) (variable-item spam-use-hashcash) (variable-item spam-use-bogofilter-headers) (variable-item spam-use-bogofilter))) "Spam autodetection methods.\nRequires the spam-autodetect parameter. Only unseen articles\nwill be examined, unless spam-autodetect-recheck-messages is\nset." gnus-parameter-spam-autodetect-methods #[257 "\211\2053 \301\302\303#\2063 \304\211\211A\262\242\211\262\2031 \203 \305@\"\203 \304\262A\262\202 \266\202\207" [gnus-spam-autodetect-methods gnus-group-find-parameter spam-autodetect-methods t nil string-match] 7 "Methods to be used for autodetection in each group\n\n(fn NAME)"] gnus-spam-process-destinations #[0 "\300\207" [nil] 1] "Groups in which to explicitly send spam-processed articles to\nanother group, or expire them (the default). If non-nil, this should\nbe a list of group name regexps that should match all groups in which\nto do spam-processed article moving, associated with the destination\ngroup or nil for explicit expiration. This only makes sense for\nmail groups." (repeat :tag "Spam-processed articles destination" (list (regexp :tag "Group Regexp") (choice :tag "Destination for spam-processed articles at summary exit" (string :tag "Move to a group") (repeat :tag "Move to multiple groups" (string :tag "Destination group")) (const :tag "Expire" nil)))) spam-process-destination (choice :tag "Destination for spam-processed articles at summary exit" (string :tag "Move to a group") (repeat :tag "Move to multiple groups" (string :tag "Destination group")) (const :tag "Expire" nil)) "Where spam-processed articles will go at summary exit." gnus-parameter-spam-process-destination #[257 "\211\2053 \301\302\303#\2063 \304\211\211A\262\242\211\262\2031 \203 \305@\"\203 \304\262A\262\202 \266\202\207" [gnus-spam-process-destinations gnus-group-find-parameter spam-process-destination t nil string-match] 7 "Where spam-processed articles will go at summary exit.\n\n(fn NAME)"] gnus-ham-process-destinations #[0 "\300\207" [nil] 1] "Groups in which to explicitly send ham articles to\nanother group, or do nothing (the default). If non-nil, this should\nbe a list of group name regexps that should match all groups in which\nto do ham article moving, associated with the destination\ngroup or nil for explicit ignoring. This only makes sense for\nmail groups, and only works in spam groups." (repeat :tag "Ham articles destination" (list (regexp :tag "Group Regexp") (choice :tag "Destination for ham articles at summary exit from spam group" (string :tag "Move to a group") (repeat :tag "Move to multiple groups" (string :tag "Destination group")) (const :tag "Respool" respool) (const :tag "Expire" nil)))) ham-process-destination (choice :tag "Destination for ham articles at summary exit from a spam group" (string :tag "Move to a group") (repeat :tag "Move to multiple groups" (string :tag "Destination group")) (const :tag "Respool" respool) (const :tag "Do nothing" nil)) "Where ham articles will go at summary exit from a spam group." gnus-parameter-ham-process-destination #[257 "\211\2053 \301\302\303#\2063 \304\211\211A\262\242\211\262\2031 \203 \305@\"\203 \304\262A\262\202 \266\202\207" [gnus-ham-process-destinations gnus-group-find-parameter ham-process-destination t nil string-match] 7 "Where ham articles will go at summary exit from a spam group.\n\n(fn NAME)"] gnus-parameter-ham-marks-alist #[0 "\300\207" [((".*" ((gnus-del-mark gnus-read-mark gnus-killed-mark gnus-kill-file-mark gnus-low-score-mark))))] 1] "Groups in which to explicitly set the ham marks to some value." (repeat (list #3=(regexp :tag "Group") #2=(list :tag "Ham mark choices" (set (variable-item gnus-del-mark) (variable-item gnus-read-mark) (variable-item gnus-ticked-mark) (variable-item gnus-killed-mark) (variable-item gnus-kill-file-mark) (variable-item gnus-low-score-mark))))) ham-marks #2# "Marks considered ham (positively not spam). Such articles will be\nprocessed as ham (non-spam) on group exit. When nil, the global\nspam-ham-marks variable takes precedence." gnus-parameter-ham-marks #[257 "\211\2053 \301\302\303#\2063 \304\211\211A\262\242\211\262\2031 \203 \305@\"\203 \304\262A\262\202 \266\202\207" [gnus-parameter-ham-marks-alist gnus-group-find-parameter ham-marks t nil string-match] 7 "\n\n(fn NAME)"] gnus-parameter-spam-marks-alist #[0 "\300\207" [((".*" ((gnus-spam-mark))))] 1] "Groups in which to explicitly set the spam marks to some value." (repeat (list #3# #4=(list :tag "Spam mark choices" (set (variable-item gnus-spam-mark) (variable-item gnus-killed-mark) (variable-item gnus-kill-file-mark) (variable-item gnus-low-score-mark))))) spam-marks #4# "Marks considered spam.\nSuch articles will be processed as spam on group exit. When nil, the global\nspam-spam-marks variable takes precedence." gnus-parameter-spam-marks #[257 "\211\2053 \301\302\303#\2063 \304\211\211A\262\242\211\262\2031 \203 \305@\"\203 \304\262A\262\202 \266\202\207" [gnus-parameter-spam-marks-alist gnus-group-find-parameter spam-marks t nil string-match] 7 "\n\n(fn NAME)"] gnus-group-uncollapsed-levels #[0 "\300\207" [1] 1] "Number of group name elements to leave alone when making a short group name." gnus-group-visual integer gnus-group-use-permanent-levels #[0 "\300\207" [nil] 1] "If non-nil, once you set a level, Gnus will use this level." gnus-group-levels gnus-load-hook #[0 "\300\207" [nil] 1] "A hook run while Gnus is loaded." hook gnus-apply-kill-hook #[0 "\300\207" [(gnus-apply-kill-file)] 1] "A hook called to apply kill files to a group.\nThis hook is intended to apply a kill file to the selected newsgroup.\nThe function `gnus-apply-kill-file' is called by default.\n\nSince a general kill file is too heavy to use only for a few\nnewsgroups, I recommend you to use a lighter hook function. For\nexample, if you'd like to apply a kill file to articles which contains\na string `rmgroup' in subject in newsgroup `control', you can use the\nfollowing hook:\n\n (setq gnus-apply-kill-hook\n (list\n (lambda ()\n (cond ((string-match \"control\" gnus-newsgroup-name)\n (gnus-kill \"Subject\" \"rmgroup\")\n (gnus-expunge \"X\"))))))" gnus-score-kill :options (gnus-apply-kill-file) gnus-group-change-level-function #[0 "\300\207" [nil] 1] "Function run when a group level is changed.\nIt is called with three parameters -- GROUP, LEVEL and OLDLEVEL." (choice (const nil) function) gnus-visual #[0 "\300\207" [(summary-highlight group-highlight article-highlight mouse-face summary-menu group-menu article-menu tree-highlight menu highlight browse-menu server-menu page-marker tree-menu binary-menu pick-menu)] 1] "Enable visual features.\nIf `visual' is disabled, there will be no menus and few faces. Most of\nthe visual customization options below will be ignored. Gnus will use\nless space and be faster as a result.\n\nThis variable can also be a list of visual elements to switch on. For\ninstance, to switch off all visual things except menus, you can say:\n\n (setq gnus-visual \\='(menu))\n\nValid elements include `summary-highlight', `group-highlight',\n`article-highlight', `mouse-face', `summary-menu', `group-menu',\n`article-menu', `tree-highlight', `menu', `highlight', `browse-menu',\n`server-menu', `page-marker', `tree-menu', `binary-menu', and`pick-menu'." gnus-meta (set (const summary-highlight) (const group-highlight) (const article-highlight) (const mouse-face) (const summary-menu) (const group-menu) (const article-menu) (const tree-highlight) (const menu) (const highlight) (const browse-menu) (const server-menu) (const page-marker) (const tree-menu) (const binary-menu) (const pick-menu))] 10)
#@29
(fn &optional TYPE CLASS)
(defalias 'gnus-visual-p #[512 "\205 \204\n \207<\203 >\206 \211>\207\301\207" [gnus-visual t] 4 (#$ . 76844)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\315\310\316&\207" [custom-declare-variable gnus-mouse-face funcall function #[0 "\3011 \302\303\304\"\203 \305\300!\203 \206 \304\202 \304\202 \3060\207\210\304\207" [gnus-mouse-face (error) gnus-visual-p mouse-face highlight boundp default] 3] "Face used for group or summary buffer mouse highlighting.\nThe line beneath the mouse pointer will be highlighted with this\nface." :group gnus-visual :type face gnus-article-save-directory #[0 "\207" [gnus-directory] 1] "Name of the directory articles will be saved in (default \"~/News\")." gnus-article-saving directory] 8)
#@33 Whether Gnus is plugged or not.
(defvar gnus-plugged t (#$ . 77673))
(byte-code "\301\302\303\304\305DD\306\307\310\311\312\313\314& \210\301\315\303\304\316DD\317\313\320\311\321&\210\301\312\303\304\322DD\323\307\310\311\312\313\314& \210\301\324\303\304\325DD\326\311\327\313\330&\210\301\331\303\304\332DD\333\307\334\311\327\313\335& \210\301\336\303\304\337DD\340\311\327\313\341&\210\301\300\303\304\342DD\343\307\310\311\344\313\345& \2109\203\257 \346\267\202\214 \347\202\215 \350\202\215 \351\202\215 \352\202\215 \344\353\354#\210\355\353!\210\300\356N\203\246 \357\300\"\210\202\257 \344\353\360\"\210\355\361!\210\301\207" [gnus-user-agent custom-declare-variable gnus-agent-cache funcall function #[0 "\300\207" [t] 1] "Controls use of the agent cache while plugged.\nWhen set, Gnus will prefer using the locally stored content rather\nthan re-fetching it from the server. You also need to enable\n`gnus-agent' for this to have any affect." :version "22.1" :group gnus-agent :type boolean gnus-default-charset #[0 "\300\207" [undecided] 1] "Default charset assumed to be used when viewing non-ASCII characters.\nThis variable is overridden on a group-to-group basis by the\n`gnus-group-charset-alist' variable and is only used on groups not\ncovered by that variable." symbol gnus-charset #[0 "\300\207" [t] 1] "Whether we want to use the Gnus agent or not.\n\nYou may customize gnus-agent to disable its use. However, some\nback ends have started to use the agent as a client-side cache.\nDisabling the agent may result in noticeable loss of performance." gnus-other-frame-function #[0 "\300\207" [gnus] 1] "Function called by the command `gnus-other-frame' when starting Gnus." gnus-start (choice (function-item gnus) (function-item gnus-no-server) (function-item gnus-slave) (function-item gnus-slave-no-server)) gnus-other-frame-resume-function #[0 "\300\207" [gnus-group-get-new-news] 1] "Function called by the command `gnus-other-frame' when resuming Gnus." "24.4" (choice (function-item gnus) (function-item gnus-group-get-new-news) (function-item gnus-no-server) (function-item gnus-slave) (function-item gnus-slave-no-server)) gnus-other-frame-parameters #[0 "\300\207" [nil] 1] "Frame parameters used by `gnus-other-frame' to create a Gnus frame." (repeat (cons :format "%v" (symbol :tag "Parameter") (sexp :tag "Value"))) #[0 "\300\207" [(emacs gnus type)] 1] "Which information should be exposed in the User-Agent header.\n\nCan be a list of symbols or a string. Valid symbols are `gnus'\n(show Gnus version) and `emacs' (show Emacs version). In\naddition to the Emacs version, you can add `codename' (show\n(S)XEmacs codename) or either `config' (show system\nconfiguration) or `type' (show system type). If you set it to\na string, be sure to use a valid format, see RFC 2616." gnus-message (choice (list (set :inline t (const gnus :tag "Gnus version") (const emacs :tag "Emacs version") (choice :tag "system" (const type :tag "system type") (const config :tag "system configuration")) (const codename :tag "Emacs codename"))) (string)) #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (emacs-gnus-config 124 emacs-gnus-type 128 emacs-gnus 132 gnus 136)) (emacs gnus config) (emacs gnus type) (emacs gnus) (gnus) 1 "Converted `gnus-user-agent' to `%s'." sit-for saved-value customize-save-variable "Edit your init file to make this change permanent." 2] 10)
(defvar gnus-agent-gcc-header "X-Gnus-Agent-Gcc")
(defvar gnus-agent-meta-information-header "X-Gnus-Agent-Meta-Information")
(defvar gnus-agent-method-p-cache nil)
(defvar gnus-agent-target-move-group-header "X-Gnus-Agent-Move-To")
(defvar gnus-draft-meta-information-header "X-Draft-From")
(defvar gnus-group-get-parameter-function 'gnus-group-get-parameter)
(defvar gnus-original-article-buffer " *Original Article*")
(defvar gnus-newsgroup-name nil)
(defvar gnus-ephemeral-servers nil)
(defvar gnus-server-method-cache nil)
(defvar gnus-extended-servers nil)
(defvar gnus-carpal nil)
(make-obsolete-variable 'gnus-carpal nil "Emacs 24.1")
#@41 Whether Gnus agent is in fetching mode.
(defvar gnus-agent-fetching nil (#$ . 81760))
#@81 A list of servers, NOT methods, showing which servers are covered by the agent.
(defvar gnus-agent-covered-methods nil (#$ . 81852))
#@68 Dynamically bound variable that says what the current back end is.
(defvar gnus-command-method nil (#$ . 81991))
#@47 The current method for selecting a newsgroup.
(defvar gnus-current-select-method nil (#$ . 82110))
#@47 Buffer where Gnus thread trees are displayed.
(defvar gnus-tree-buffer "*Tree*" (#$ . 82215))
(defvar gnus-method-history nil)
(defvar gnus-mail-method-history nil)
(defvar gnus-group-history nil)
#@174 Servers created by Gnus, or via the server buffer.
Servers defined in the user's config files do not appear here.
This variable is persisted in the user's .newsrc.eld file.
(defvar gnus-server-alist nil (#$ . 82419))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable gnus-cache-directory funcall function #[0 "\301\302\"\207" [gnus-directory nnheader-concat "cache/"] 3] "The directory where cached articles will be stored." :group gnus-cache :type directory] 8)
#@43 List of predefined (convenience) servers.
(defvar gnus-predefined-server-alist (byte-code "\301\302\301\303D\304D\305\306\307\"D\257C\207" [gnus-cache-directory "cache" nnspool nnspool-spool-directory nnspool-nov-directory nnspool-active-file nnheader-concat "active"] 9) (#$ . 82926))
(defconst gnus-article-mark-lists '((marked . tick) (replied . reply) (expirable . expire) (killed . killed) (bookmarks . bookmark) (dormant . dormant) (scored . score) (saved . save) (cached . cache) (downloadable . download) (unsendable . unsend) (forwarded . forward) (seen . seen) (unexist . unexist)))
(defconst gnus-article-special-mark-lists '((seen range) (unexist range) (killed range) (bookmark tuple) (uid tuple) (active tuple) (score tuple)))
#@239 Marks that shouldn't be propagated to back ends.
Typical marks are those that make no sense in a standalone back end,
such as a mark that says whether an article is stored in the cache
(which doesn't make sense in a standalone back end).
(defconst gnus-article-unpropagated-mark-lists '(seen cache download unsend score bookmark unexist) (#$ . 83678))
(defvar gnus-headers-retrieved-by nil)
(defvar gnus-article-reply nil)
(defvar gnus-override-method nil)
(defvar gnus-opened-servers nil)
(defvar gnus-current-kill-article nil)
(defvar gnus-have-read-active-file nil)
#@43 The mail address of the Gnus maintainers.
(defconst gnus-maintainer "submit@debbugs.gnu.org (The Gnus Bugfixing Girls + Boys)" (#$ . 84253))
#@43 The package to use in the bug submission.
(defconst gnus-bug-package "emacs,gnus" (#$ . 84400))
#@46 Alist of major modes and related Info nodes.
(defvar gnus-info-nodes '((gnus-group-mode "(gnus)Group Buffer") (gnus-summary-mode "(gnus)Summary Buffer") (gnus-article-mode "(gnus)Article Buffer") (gnus-server-mode "(gnus)Server Buffer") (gnus-browse-mode "(gnus)Browse Foreign Server") (gnus-tree-mode "(gnus)Tree Display")) (#$ . 84502))
(defvar gnus-summary-buffer "*Summary*")
(defvar gnus-article-buffer "*Article*")
(defvar gnus-server-buffer "*Server*")
#@38 Whether this Gnus is a slave or not.
(defvar gnus-slave nil (#$ . 84968))
#@52 Whether this Gnus is running in batch mode or not.
(defvar gnus-batch-mode nil (#$ . 85048))
#@49 Gnus variables saved in the quick startup file.
(defvar gnus-variable-list '(gnus-newsrc-options gnus-newsrc-options-n gnus-newsrc-last-checked-date gnus-newsrc-alist gnus-server-alist gnus-killed-list gnus-zombie-list gnus-topic-topology gnus-topic-alist gnus-cloud-sequence gnus-cloud-covered-servers gnus-cloud-file-timestamps) (#$ . 85147))
#@106 Assoc list of read articles.
`gnus-newsrc-hashtb' should be kept so that both hold the same information.
(defvar gnus-newsrc-alist nil (#$ . 85499))
#@82 Assoc list of registry data.
gnus-registry.el will populate this if it's loaded.
(defvar gnus-registry-alist nil (#$ . 85654))
#@36 Hash table of `gnus-newsrc-alist'.
(defvar gnus-newsrc-hashtb nil (#$ . 85787))
#@130 Ordered list of group names as strings.
This variable only exists to provide easy access to the ordering
of `gnus-newsrc-alist'.
(defvar gnus-group-list nil (#$ . 85874))
#@28 List of killed newsgroups.
(defvar gnus-killed-list nil (#$ . 86051))
#@125 Hash table equivalent of `gnus-killed-list'.
This is a hash table purely for the fast membership test: values
are always t.
(defvar gnus-killed-hashtb nil (#$ . 86128))
#@33 List of almost dead newsgroups.
(defvar gnus-zombie-list nil (#$ . 86303))
#@55 Hash table mapping group names to their descriptions.
(defvar gnus-description-hashtb nil (#$ . 86384))
#@64 List of newsgroups that have recently been killed by the user.
(defvar gnus-list-of-killed-groups nil (#$ . 86494))
#@55 Hash table mapping group names to their active entry.
(defvar gnus-active-hashtb nil (#$ . 86616))
#@112 Hash table of moderated groups.
This is a hash table purely for the fast membership test: values
are always t.
(defvar gnus-moderated-hashtb nil (#$ . 86722))
(defvar gnus-prev-winconf nil)
(defvar gnus-reffed-article-number nil)
(defvar gnus-dead-summary nil)
#@33 Regexp matching invalid groups.
(defvar gnus-invalid-group-regexp "[: `'\"/]\\|^$" (#$ . 86989))
#@61 A frame object which will be created by `gnus-other-frame'.
(defvar gnus-other-frame-object nil (#$ . 87092))
(byte-code "\300\301\302\"\210\303\304\305\306\307DD\310\311\312\313\314\315\316& \207" [mapc #[257 "\300>A@\301\302\303\304\305\306\"\307\"\310\311%A@\300=\203# \312\233\202% A\"\207" [:interactive mapcar make-byte-code 257 "\302:\203 A@\262@\262\303!?\205 \304\300@\302\301%\207" vconcat vector [nil fboundp autoload] 8 "\n\n(fn FUNCTION)" 3] 10 "\n\n(fn PACKAGE)"] (("info" :interactive t Info-goto-node) ("qp" quoted-printable-decode-region quoted-printable-decode-string) ("ps-print" ps-print-preprint) ("message" :interactive t message-send-and-exit message-yank-original) ("babel" babel-as-string) ("nnmail" nnmail-split-fancy nnmail-article-group) ("nnvirtual" nnvirtual-catchup-group nnvirtual-convert-headers) ("rmailout" rmail-output) ("rmail" rmail-count-new-messages rmail-show-message rmail-summary-exists rmail-select-summary) ("rmailsum" rmail-update-summary) ("gnus-xmas" gnus-xmas-splash) ("score-mode" :interactive t gnus-score-mode) ("gnus-mh" gnus-summary-save-article-folder gnus-Folder-save-name gnus-folder-save-name) ("gnus-mh" :interactive t gnus-summary-save-in-folder) ("gnus-demon" gnus-demon-add-scanmail gnus-demon-add-rescan gnus-demon-add-scan-timestamps gnus-demon-add-disconnection gnus-demon-add-handler gnus-demon-remove-handler) ("gnus-demon" :interactive t gnus-demon-init gnus-demon-cancel) ("gnus-fun" gnus-convert-gray-x-face-to-xpm gnus-display-x-face-in-from gnus-convert-image-to-gray-x-face gnus-convert-face-to-png gnus-face-from-file) ("gnus-salt" gnus-highlight-selected-tree gnus-possibly-generate-tree gnus-tree-open gnus-tree-close) ("gnus-srvr" gnus-enter-server-buffer gnus-server-set-info gnus-server-server-name) ("gnus-srvr" gnus-browse-foreign-server) ("gnus-cite" :interactive t gnus-article-highlight-citation gnus-article-hide-citation-maybe gnus-article-hide-citation gnus-article-fill-cited-article gnus-article-hide-citation-in-followups gnus-article-fill-cited-long-lines) ("gnus-kill" gnus-kill gnus-apply-kill-file-internal gnus-kill-file-edit-file gnus-kill-file-raise-followups-to-author gnus-execute gnus-expunge gnus-batch-kill gnus-batch-score) ("gnus-registry" gnus-try-warping-via-registry gnus-registry-handle-action) ("gnus-cache" gnus-cache-possibly-enter-article gnus-cache-save-buffers gnus-cache-possibly-remove-articles gnus-cache-request-article gnus-cache-retrieve-headers gnus-cache-possibly-alter-active gnus-cache-enter-remove-article gnus-cached-article-p gnus-cache-open gnus-cache-close gnus-cache-update-article gnus-cache-articles-in-group) ("gnus-cache" :interactive t gnus-jog-cache gnus-cache-enter-article gnus-cache-remove-article gnus-summary-insert-cached-articles) ("gnus-score" :interactive t gnus-summary-increase-score gnus-summary-set-score gnus-summary-raise-thread gnus-summary-raise-same-subject gnus-summary-raise-score gnus-summary-raise-same-subject-and-select gnus-summary-lower-thread gnus-summary-lower-same-subject gnus-summary-lower-score gnus-summary-lower-same-subject-and-select gnus-summary-current-score gnus-score-delta-default gnus-score-flush-cache gnus-score-close gnus-possibly-score-headers gnus-score-followup-article gnus-score-followup-thread) ("gnus-score" (gnus-summary-score-map keymap) gnus-score-save gnus-score-headers gnus-current-score-file-nondirectory gnus-score-adaptive gnus-score-find-trace gnus-score-file-name) ("gnus-cus" :interactive t gnus-group-customize gnus-score-customize) ("gnus-topic" :interactive t gnus-topic-mode) ("gnus-topic" gnus-topic-remove-group gnus-topic-set-parameters gnus-subscribe-topics) ("gnus-salt" :interactive t gnus-pick-mode gnus-binary-mode) ("gnus-uu" (gnus-uu-extract-map keymap) (gnus-uu-mark-map keymap)) ("gnus-uu" :interactive t gnus-uu-digest-mail-forward gnus-uu-digest-post-forward gnus-uu-mark-series gnus-uu-mark-region gnus-uu-mark-buffer gnus-uu-mark-by-regexp gnus-uu-mark-all gnus-uu-mark-sparse gnus-uu-mark-thread gnus-uu-decode-uu gnus-uu-decode-uu-and-save gnus-uu-decode-unshar gnus-uu-decode-unshar-and-save gnus-uu-decode-save gnus-uu-decode-binhex gnus-uu-decode-uu-view gnus-uu-decode-uu-and-save-view gnus-uu-decode-unshar-view gnus-uu-decode-unshar-and-save-view gnus-uu-decode-save-view gnus-uu-decode-binhex-view gnus-uu-unmark-thread gnus-uu-mark-over gnus-uu-post-news gnus-uu-invert-processable) ("gnus-uu" gnus-uu-delete-work-dir gnus-uu-unmark-thread) ("gnus-msg" (gnus-summary-send-map keymap) gnus-article-mail gnus-copy-article-buffer gnus-extended-version) ("gnus-msg" :interactive t gnus-group-post-news gnus-group-mail gnus-group-news gnus-summary-post-news gnus-summary-news-other-window gnus-summary-followup gnus-summary-followup-with-original gnus-summary-cancel-article gnus-summary-supersede-article gnus-post-news gnus-summary-reply gnus-summary-reply-with-original gnus-summary-mail-forward gnus-summary-mail-other-window gnus-summary-resend-message gnus-summary-resend-bounced-mail gnus-summary-wide-reply gnus-summary-followup-to-mail gnus-summary-followup-to-mail-with-original gnus-bug gnus-summary-wide-reply-with-original gnus-summary-post-forward gnus-summary-wide-reply-with-original gnus-summary-post-forward) ("gnus-picon" :interactive t gnus-treat-from-picon) ("smiley" :interactive t smiley-region) ("gnus-win" gnus-configure-windows gnus-add-configuration) ("gnus-sum" gnus-summary-insert-line gnus-summary-read-group gnus-list-of-unread-articles gnus-list-of-read-articles gnus-offer-save-summaries gnus-make-thread-indent-array gnus-summary-exit gnus-update-read-articles gnus-summary-last-subject gnus-summary-skip-intangible gnus-summary-article-number gnus-data-header gnus-data-find) ("gnus-group" gnus-group-insert-group-line gnus-group-quit gnus-group-list-groups gnus-group-first-unread-group gnus-group-set-mode-line gnus-group-set-info gnus-group-save-newsrc gnus-group-setup-buffer gnus-group-get-new-news gnus-group-make-help-group gnus-group-update-group gnus-group-iterate gnus-group-group-name) ("gnus-bcklg" gnus-backlog-request-article gnus-backlog-enter-article gnus-backlog-remove-article) ("gnus-art" gnus-article-read-summary-keys gnus-article-save gnus-article-prepare gnus-article-set-window-start gnus-article-next-page gnus-article-prev-page gnus-request-article-this-buffer gnus-article-mode gnus-article-setup-buffer gnus-narrow-to-page gnus-article-delete-invisible-text gnus-treat-article) ("gnus-art" :interactive t gnus-article-hide-headers gnus-article-hide-boring-headers gnus-article-treat-overstrike gnus-article-remove-cr gnus-article-remove-trailing-blank-lines gnus-article-display-x-face gnus-article-de-quoted-unreadable gnus-article-de-base64-unreadable gnus-article-decode-HZ gnus-article-wash-html gnus-article-unsplit-urls gnus-article-hide-pem gnus-article-hide-signature gnus-article-strip-leading-blank-lines gnus-article-date-local gnus-article-date-original gnus-article-date-lapsed gnus-article-edit-mode gnus-article-edit-article gnus-article-edit-done gnus-article-decode-encoded-words gnus-start-date-timer gnus-stop-date-timer gnus-mime-view-all-parts) ("gnus-int" gnus-request-type) ("gnus-start" gnus-newsrc-parse-options gnus-1 gnus-no-server-1 gnus-dribble-enter gnus-read-init-file gnus-dribble-touch gnus-check-reasonable-setup) ("gnus-dup" gnus-dup-suppress-articles gnus-dup-unsuppress-article gnus-dup-enter-articles) ("gnus-eform" gnus-edit-form) ("gnus-logic" gnus-score-advanced) ("gnus-undo" gnus-undo-mode gnus-undo-register) ("gnus-async" gnus-async-request-fetched-article gnus-async-prefetch-next gnus-async-prefetch-article gnus-async-prefetch-remove-group gnus-async-halt-prefetch) ("gnus-agent" gnus-open-agent gnus-agent-get-function gnus-agent-save-active gnus-agent-method-p gnus-agent-get-undownloaded-list gnus-agent-fetch-session gnus-summary-set-agent-mark gnus-agent-save-group-info gnus-agent-request-article gnus-agent-retrieve-headers gnus-agent-store-article gnus-agent-group-covered-p) ("gnus-agent" :interactive t gnus-unplugged gnus-agentize gnus-agent-batch) ("gnus-vm" :interactive t gnus-summary-save-in-vm gnus-summary-save-article-vm) ("compface" uncompface) ("gnus-draft" :interactive t gnus-draft-mode gnus-group-send-queue) ("gnus-mlspl" gnus-group-split gnus-group-split-fancy) ("gnus-mlspl" :interactive t gnus-group-split-setup gnus-group-split-update) ("gnus-delay" gnus-delay-initialize)) custom-declare-variable gnus-summary-line-format funcall function #[0 "\300\207" [#1="%U%R%z%I%(%[%4L: %-23,23f%]%) %s\n"] 1 #1#] "The format specification of the lines in the summary buffer.\n\nIt works along the same lines as a normal formatting string,\nwith some simple extensions.\n\n%N Article number, left padded with spaces (string)\n%S Subject (string)\n%s Subject if it is at the root of a thread, and \"\"\n otherwise (string)\n%n Name of the poster (string)\n%a Extracted name of the poster (string)\n%A Extracted address of the poster (string)\n%F Contents of the From: header (string)\n%f Contents of the From: or To: headers (string)\n%x Contents of the Xref: header (string)\n%D Date of the article (string)\n%d Date of the article (string) in DD-MMM format\n%o Date of the article (string) in YYYYMMDD`T'HHMMSS\n format\n%M Message-id of the article (string)\n%r References of the article (string)\n%c Number of characters in the article (integer)\n%k Pretty-printed version of the above (string)\n For example, \"1.2k\" or \"0.4M\".\n%L Number of lines in the article (integer)\n%I Indentation based on thread level (a string of\n spaces)\n%B A complex trn-style thread tree (string)\n The variables `gnus-sum-thread-*' can be used for\n customization.\n%T A string with two possible values: 80 spaces if the\n article is on thread level two or larger and 0 spaces\n on level one\n%R \"A\" if this article has been replied to, \" \"\n otherwise (character)\n%U \"Read\" status of this article.\n See Info node `(gnus)Marking Articles'\n%[ Opening bracket (character, \"[\" or \"<\")\n%] Closing bracket (character, \"]\" or \">\")\n%> Spaces of length thread-level (string)\n%< Spaces of length (- 20 thread-level) (string)\n%i Article score (number)\n%z Article zcore (character)\n%t Number of articles under the current thread (number).\n%e Whether the thread is empty or not (character).\n%V Total thread score (number).\n%P The line number (number).\n%O Download mark (character).\n%* If present, indicates desired cursor position\n (instead of after first colon).\n%u User defined specifier. The next character in the\n format string should be a letter. Gnus will call the\n function gnus-user-format-function-X, where X is the\n letter following %u. The function will be passed the\n current header as argument. The function should\n return a string, which will be inserted into the\n summary just like information from any other summary\n specifier.\n&user-date; Age sensitive date format. Various date format is\n defined in `gnus-user-date-format-alist'.\n\n\nThe %U (status), %R (replied) and %z (zcore) specs have to be handled\nwith care. For reasons of efficiency, Gnus will compute what column\nthese characters will end up in, and \"hard-code\" that. This means that\nit is invalid to have these specs after a variable-length spec. Well,\nyou might not be arrested, but your summary buffer will look strange,\nwhich is bad enough.\n\nThe smart choice is to have these specs as far to the left as\npossible.\n\nThis restriction may disappear in later versions of Gnus.\n\nGeneral format specifiers can also be used.\nSee Info node `(gnus)Formatting Variables'." :link (custom-manual "(gnus)Formatting Variables") :type string :group gnus-summary-format] 10)
#@15
(fn KEYMAP)
(defalias 'gnus-suppress-keymap #[257 "\300!\210\301\211\205 \302\211A\262\242\303#\210\202 \207" [suppress-keymap ([delete] "" "\365") define-key undefined] 6 (#$ . 99376)])
(defvar gnus-article-mode-map (byte-code "\300 \301!\210\211\207" [make-sparse-keymap gnus-suppress-keymap] 3))
(defvar gnus-summary-mode-map (byte-code "\300 \301!\210\211\207" [make-keymap gnus-suppress-keymap] 3))
(defvar gnus-group-mode-map (byte-code "\300 \301!\210\211\207" [make-keymap gnus-suppress-keymap] 3))
(byte-code "\300\301\302\"\210\300\303\302\"\207" [defalias gnus-summary-position-point gnus-goto-colon gnus-group-position-point] 3)
#@15
(fn HEADER)
(defalias 'gnus-header-from #[257 "\211\300H\207" [2] 3 (#$ . 100035)])
#@76 Get the currently computed number of unread articles in GROUP.
(fn GROUP)
(defalias 'gnus-group-unread '(macro . #[257 "\300\301\302BBD\207" [car gethash (gnus-newsrc-hashtb)] 5 (#$ . 100127)]))
#@45 Get the newsrc entry for GROUP.
(fn GROUP)
(defalias 'gnus-group-entry '(macro . #[257 "\300\301BB\207" [gethash (gnus-newsrc-hashtb)] 4 (#$ . 100330)]))
#@39 Get active info on GROUP.
(fn GROUP)
(defalias 'gnus-active '(macro . #[257 "\300\301BB\207" [gethash (gnus-active-hashtb)] 4 (#$ . 100492)]))
#@45 Set GROUP's active info.
(fn GROUP ACTIVE)
(defalias 'gnus-set-active '(macro . #[514 "\300\301BBB\207" [puthash (gnus-active-hashtb)] 6 (#$ . 100643)]))
#@72 compiler-macro for inlining `gnus-info-group'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'gnus-info-group--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block gnus-info-group (progn (car cl-x))) nil] 9 (#$ . 100806)])
(put 'gnus-info-group 'compiler-macro 'gnus-info-group--cmacro)
#@60 Access slot "group" of `gnus-info' struct CL-X.
(fn CL-X)
(defalias 'gnus-info-group #[257 "\211@\207" [] 2 (#$ . 101120)])
(byte-code "\300\301\302\303#\300\207" [function-put gnus-info-group side-effect-free t] 4)
#@71 compiler-macro for inlining `gnus-info-rank'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'gnus-info-rank--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block gnus-info-rank (progn (nth 1 cl-x))) nil] 9 (#$ . 101343)])
(put 'gnus-info-rank 'compiler-macro 'gnus-info-rank--cmacro)
#@59 Access slot "rank" of `gnus-info' struct CL-X.
(fn CL-X)
(defalias 'gnus-info-rank #[257 "\211A@\207" [] 2 (#$ . 101654)])
(byte-code "\300\301\302\303#\300\207" [function-put gnus-info-rank side-effect-free t] 4)
#@71 compiler-macro for inlining `gnus-info-read'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'gnus-info-read--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block gnus-info-read (progn (nth 2 cl-x))) nil] 9 (#$ . 101875)])
(put 'gnus-info-read 'compiler-macro 'gnus-info-read--cmacro)
#@59 Access slot "read" of `gnus-info' struct CL-X.
(fn CL-X)
(defalias 'gnus-info-read #[257 "\3008\207" [2] 3 (#$ . 102186)])
(byte-code "\300\301\302\303#\300\207" [function-put gnus-info-read side-effect-free t] 4)
#@72 compiler-macro for inlining `gnus-info-marks'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'gnus-info-marks--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block gnus-info-marks (progn (nth 3 cl-x))) nil] 9 (#$ . 102408)])
(put 'gnus-info-marks 'compiler-macro 'gnus-info-marks--cmacro)
#@60 Access slot "marks" of `gnus-info' struct CL-X.
(fn CL-X)
(defalias 'gnus-info-marks #[257 "\3008\207" [3] 3 (#$ . 102724)])
(byte-code "\300\301\302\303#\300\207" [function-put gnus-info-marks side-effect-free t] 4)
#@73 compiler-macro for inlining `gnus-info-method'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'gnus-info-method--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block gnus-info-method (progn (nth 4 cl-x))) nil] 9 (#$ . 102949)])
(put 'gnus-info-method 'compiler-macro 'gnus-info-method--cmacro)
#@61 Access slot "method" of `gnus-info' struct CL-X.
(fn CL-X)
(defalias 'gnus-info-method #[257 "\3008\207" [4] 3 (#$ . 103270)])
(byte-code "\300\301\302\303#\300\207" [function-put gnus-info-method side-effect-free t] 4)
#@73 compiler-macro for inlining `gnus-info-params'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'gnus-info-params--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block gnus-info-params (progn (nth 5 cl-x))) nil] 9 (#$ . 103498)])
(put 'gnus-info-params 'compiler-macro 'gnus-info-params--cmacro)
#@61 Access slot "params" of `gnus-info' struct CL-X.
(fn CL-X)
(defalias 'gnus-info-params #[257 "\3008\207" [5] 3 (#$ . 103819)])
(byte-code "\300\301\302\303#\304\305\306\"\207" [function-put gnus-info-params side-effect-free t defalias copy-gnus-info copy-sequence] 4)
#@112 compiler-macro for inlining `gnus-info-make'.
(fn CL-WHOLE-ARG GROUP RANK READ &optional MARKS METHOD PARAMS)
(defalias 'gnus-info-make--cmacro #[1796 "\300\301\302\303\211\211 & \207" [cl--defsubst-expand (group rank read marks method params) (cl-block gnus-info-make (list group rank read marks method params)) nil] 19 (#$ . 104096)])
(put 'gnus-info-make 'compiler-macro 'gnus-info-make--cmacro)
#@98 Constructor for objects of type `gnus-info'.
(fn GROUP RANK READ &optional MARKS METHOD PARAMS)
(defalias 'gnus-info-make #[1539 "\257\207" [] 12 (#$ . 104513)])
(byte-code "\300\301\302\303#\304\305\306\211\307\306\310\311\305\306& \207" [function-put gnus-info-make side-effect-free t cl-struct-define gnus-info nil list ((group) (rank) (read) (marks) (method) (params)) cl-struct-gnus-info-tags] 11)
#@13
(fn INFO)
(defalias 'gnus-info-level #[257 "\211A@\211:\203
\211@\202 \211\207" [] 3 (#$ . 104930)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put gnus-info-level gv-expander #[385 "\300\301\302$\207" [gv--defsetter gnus-info-level #[385 "\300\301C\"B\207" [gnus-info--set-level append] 6 "\n\n(fn VAL &rest ARGS)"]] 7 "\n\n(fn DO &rest ARGS)"] put byte-optimizer byte-compile-inline-expand] 5)
#@13
(fn INFO)
(defalias 'gnus-info-score #[257 "\211A@\211:\203
\211A\206 \300\207" [0] 3 (#$ . 105359)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put gnus-info-score gv-expander #[385 "\300\301\302$\207" [gv--defsetter gnus-info-score #[385 "\300\301C\"B\207" [gnus-info--set-score append] 6 "\n\n(fn VAL &rest ARGS)"]] 7 "\n\n(fn DO &rest ARGS)"] put byte-optimizer byte-compile-inline-expand] 5)
#@36
(fn INFO MARKS &optional EXTEND)
(defalias 'gnus-info-set-marks #[770 "\211\203 \300\301\"\210\301\233\211\240\207" [gnus-info--grow-entry 3] 6 (#$ . 105789)])
(put 'gnus-info-set-marks 'byte-optimizer 'byte-compile-inline-expand)
#@37
(fn INFO METHOD &optional EXTEND)
(defalias 'gnus-info-set-method #[770 "\211\203 \300\301\"\210\301\233\211\240\207" [gnus-info--grow-entry 4] 6 (#$ . 106032)])
(put 'gnus-info-set-method 'byte-optimizer 'byte-compile-inline-expand)
#@37
(fn INFO PARAMS &optional EXTEND)
(defalias 'gnus-info-set-params #[770 "\211\203 \300\301\"\210\301\233\211\240\207" [gnus-info--grow-entry 5] 6 (#$ . 106278)])
(put 'gnus-info-set-params 'byte-optimizer 'byte-compile-inline-expand)
#@20
(fn INFO NUMBER)
(defalias 'gnus-info--grow-entry #[514 "GX\205 \300C\244\210\202 \207" [nil] 4 (#$ . 106524)])
#@19
(fn INFO LEVEL)
(defalias 'gnus-info--set-level #[514 "A@\211:\203 \211\240\202 A\211\240\262\207" [] 6 (#$ . 106649)])
(put 'gnus-info--set-level 'byte-optimizer 'byte-compile-inline-expand)
#@19
(fn INFO SCORE)
(defalias 'gnus-info--set-score #[514 "A@\211:\203 \211\241\202 A\211B\240\262\207" [] 7 (#$ . 106856)])
(put 'gnus-info--set-score 'byte-optimizer 'byte-compile-inline-expand)
#@14
(fn GROUP)
(defalias 'gnus-get-info #[257 "\301\"A@\207" [gnus-newsrc-hashtb gethash] 4 (#$ . 107065)])
(put 'gnus-get-info 'byte-optimizer 'byte-compile-inline-expand)
#@19
(fn GROUP INFO)
(defalias 'gnus-set-info #[514 "\301\"C\241\207" [gnus-newsrc-hashtb gethash] 5 (#$ . 107244)])
(defvar gnus-shutdown-alist nil)
#@81 Run FUNCTION whenever one of SYMBOLS is shut down.
(fn FUNCTION &rest SYMBOLS)
(defalias 'gnus-add-shutdown #[385 "BB\211\207" [gnus-shutdown-alist] 4 (#$ . 107400)])
#@58 Shut down everything that waits for SYMBOL.
(fn SYMBOL)
(defalias 'gnus-shutdown #[257 "\211\205 \211@A>\203 \211@ \210A\266\202\202 \207" [gnus-shutdown-alist] 5 (#$ . 107578)])
#@171 Return a regexp matching the addresses of all subscribed mail groups.
It consists of the `to-address' or `to-list' parameter of all groups
with a `subscribed' parameter.
(defalias 'gnus-find-subscribed-addresses #[0 "\301\211\211A\211\203@ \211@\211@\262\302!\2039 \303\304\305\"\206# \304\306\"!\262\2039 \235\2034 \2027 B\262A\266\202\202 \210\211\205K \307\310\311#C\207" [gnus-newsrc-alist nil gnus-parameter-subscribed mail-strip-quoted-names gnus-group-fast-parameter to-address to-list mapconcat regexp-quote "\\|"] 9 (#$ . 107772)])
#@133 Return the first element of STRINGS that is a non-blank string.
STRINGS will be evaluated in normal `or' order.
(fn &rest STRINGS)
(defalias 'gnus-string-or '(macro . #[128 "\300\301BD\207" [gnus-string-or-1 list] 4 (#$ . 108338)]))
#@16
(fn STRINGS)
(defalias 'gnus-string-or-1 #[257 "\300\203 \211A\262\242\262\301\302\"\203 \300\262\202 \300\262\202 \211\207" [nil string-match "^[ ]*$"] 5 (#$ . 108579)])
#@93 Version number of this version of Gnus.
If ARG, insert string at point.
(fn &optional ARG)
(defalias 'gnus-version #[256 "\211\203 \301!c\207\301!\207" [gnus-version message] 3 (#$ . 108770) "P"])
#@68 Return VERSION as a floating point number.
(fn &optional VERSION)
(defalias 'gnus-continuum-version #[256 "\211\204 \262\301\302\"\204 \301\303\"\205\210 \304\224\205 \305\304\"\305\306\"\307\211\211\301\310\"\2042 \311\312\"\210\313\305\304\"!\262\313\305\306\"!\262\314\224\203S \313\305\314\"!\202T \315\262\313\315U\203 \316\317\320\235\203j \321\202y \322\323\324\325 \227\315H\326Z!_\327#$\202\205 \316\330$!\266\205\207" [gnus-version string-match "^\\([^ ]+\\)? ?Gnus v?\\([0-9.]+\\)$" "^\\(.?\\)gnus-\\([0-9.]+\\)$" 1 match-string 2 nil "\\([0-9]\\)\\.\\([0-9]+\\)\\.?\\([0-9]+\\)?" error "Invalid version string: %s" string-to-number 3 0 format "%1.2f00%02d%02d" ("(ding)" "d") 4.99 + 5 0.02 abs 116 -0.01 "%d.%02d%02d"] 15 (#$ . 108977)])
#@59 Find Info documentation of Gnus.
(fn &optional NODENAME)
(defalias 'gnus-info-find-node #[256 "\303\304\206\f \n\236A@!\210p\305\306!)\207" [gnus-info-buffer major-mode gnus-info-nodes nil Info-goto-node gnus-configure-windows info] 4 (#$ . 109765) nil])
#@24 Current prefix symbol.
(defvar gnus-current-prefix-symbol nil (#$ . 110031))
#@33 List of current prefix symbols.
(defvar gnus-current-prefix-symbols nil (#$ . 110114))
#@273 Return a list that can be fed to `interactive'.
See `interactive' for full documentation.
Adds the following specs:
y -- The current symbolic prefix.
Y -- A list of the current symbolic prefix(es).
A -- Article number.
H -- Article header.
g -- Group name.
(fn STRING)
(defalias 'gnus-interactive #[257 "\305\306\211\211GW\203\312\307\310#\210H\262\311\225\203$ \312\311\"\262\305\225\262\313U\2037 \314\315\316$\202\233\317U\203E \320p\316#\202\233\321U\203T \320\322p!\"\202\233\323U\203_ \324 \202\233\325U\203n \314\326\316$\202\233\327U\203x `\202\233\330U\203\207 \331\306 \332$\202\233\333U\203\226 \334\306\211\332$\202\233\335U\203\242 \334!\202\233\336U\203\256 \337!\202\233\340U\203\272 \341\342!\202\233\343U\203\306 \341\342!\202\233\344U\203\321 \345 \202\233\346U\203\335 \341\342!\202\233\347U\203\353 \350\351!!\202\233\352U\203\367 \353\n!\202\233\354U\203\n\202\233\355U\203 \356\202\233\357U\203\360!\202\233\361U\203%\362\360!!\202\233\363U\2031\364!\202\233\365U\203=\366!\202\233\365U\203I\367!\202\233\370U\203S \202\233\371U\203]\f\202\233\372U\203h\373 \202\233\374U\203\375 \210\376`\377\"\206\233\201@ \202\233\201A U\203\226\201B \201C \201D !!\202\233\341\201E !B\262\355U\203 `\345 W\203\260`\202\262\345 B\262`\345 V\203\301`\202\303\345 B\262\202 \201F \356\"\262\237\207" [obarray default-directory current-prefix-arg gnus-current-prefix-symbol gnus-current-prefix-symbols 0 nil string-match ".\\([^\n]*\\)\n?" 1 match-string 97 completing-read fboundp t 98 read-buffer 66 other-buffer 99 read-char 67 commandp 100 68 read-directory-name lambda 102 read-file-name 70 107 read-key-sequence 75 error "Not implemented spec" 101 109 mark 78 110 string-to-number read-from-minibuffer 112 prefix-numeric-value 80 114 gnus-prefix-nil 115 read-string 83 intern 118 read-variable 120 read-minibuffer eval-minibuffer 121 89 103 gnus-group-group-name 65 gnus-summary-skip-intangible get-text-property gnus-number gnus-summary-last-subject 72 gnus-data-header gnus-data-find gnus-summary-article-number "Non-implemented spec" delq] 10 (#$ . 110208)])
#@67 Read a symbolic argument and a command, and then execute command.
(defalias 'gnus-symbolic-argument #[0 "\302 \211\303\211\303\232\203) \304\305\306\302 !\"\210\307\310\311 !!B\262\312\303\313\"\262\202 \211\237\211@\314\315\313\"!*\207" [gnus-current-prefix-symbols gnus-current-prefix-symbol this-command-keys nil message "%s-" key-description intern char-to-string read-char read-key-sequence t call-interactively key-binding] 8 (#$ . 112411) nil])
#@126 Check whether GROUP supports function FUNC.
GROUP can either be a string (a group name) or a select method.
(fn FUNC GROUP)
(defalias 'gnus-check-backend-function #[514 "\3001) \211;\203 \301!@\202 \211\302!\204 \303!\210\304\305\306\307#!!\2620\207\210\310\207" [(error) gnus-find-method-for-group featurep require fboundp intern format "%s-%s" nil] 9 (#$ . 112881)])
(put 'gnus-check-backend-function 'byte-optimizer 'byte-compile-inline-expand)
#@197 Check whether GROUP supports editing or not.
If GROUP is nil, `gnus-newsgroup-name' will be checked instead. Note
that that variable is buffer-local to the summary buffers.
(fn &optional GROUP)
(defalias 'gnus-group-read-only-p #[256 "\211\206 \301\30214 \211;\203 \303!@\202 \211\304!\204\" \305!\210\306\307\310\311#!!\2620\266\202\2028 \210\312\266\202?\207" [gnus-newsgroup-name request-replace-article (error) gnus-find-method-for-group featurep require fboundp intern format "%s-%s" nil] 11 (#$ . 113347)])
#@50 Say whether GROUP is virtual or not.
(fn GROUP)
(defalias 'gnus-virtual-group-p #[257 "\301\302\303\304!@!\">\207" [gnus-valid-select-methods virtual assoc symbol-name gnus-find-method-for-group] 6 (#$ . 113880)])
#@94 Return non-nil if GROUP (and ARTICLE) come from a news server.
(fn GROUP &optional ARTICLE)
(defalias 'gnus-news-group-p #[513 "\300\301\"\203 \302\207\300\303\"\204 \304\207\305!\203! \306\307H\"\310=\207\211\204+ \306!\310=\207\211\311W\2033 \304\207\306\"\310=\207" [gnus-member-of-valid post t post-mail nil mail-header-p gnus-request-type 4 news 0] 6 (#$ . 114103)])
#@15
(fn SYMBOL)
(defalias 'gnus-use-long-file-name #[257 "\205 <?\206 \211>?\207" [gnus-use-long-file-name] 3 (#$ . 114492)])
#@13
(fn LEAF)
(defalias 'gnus-generate-new-group-name #[257 "\211\301\302\"\203 \303\304T\211\262!\305R\262\202 \207" [gnus-newsrc-hashtb 0 gethash "<" int-to-string ">"] 8 (#$ . 114627)])
#@52 Say whether GROUP is ephemeral or not.
(fn GROUP)
(defalias 'gnus-ephemeral-group-p #[257 "\300\301\302#\207" [gnus-group-get-parameter quit-config t] 5 (#$ . 114829)])
#@46 Return the quit-config of GROUP.
(fn GROUP)
(defalias 'gnus-group-quit-config #[257 "\300\301\302#\207" [gnus-group-get-parameter quit-config t] 5 (#$ . 115006)])
#@62 Remove ephemeral GROUP from relevant structures.
(fn GROUP)
(defalias 'gnus-kill-ephemeral-group #[257 "\301\"\207" [gnus-newsrc-hashtb remhash] 4 (#$ . 115177)])
#@32 Make mode lines a bit simpler.
(defalias 'gnus-simplify-mode-line #[0 "\302 <\205 \303\301!\210\304 !\305 8\306\232\205 \305 \233\307\240\207" [mode-line-modified mode-line-format "--" make-local-variable copy-sequence 3 " " " "] 2 (#$ . 115349)])
#@15
(fn METHOD)
(defalias 'gnus-server-add-address #[257 "\301@!\302\303\">\2030 \304\305P!\236\2040 \306@\236>\2030 \307\304\305P!A@DC\"\2021 \207" [gnus-valid-select-methods symbol-name address assoc intern "-address" physical-address append] 7 (#$ . 115609)])
(put 'gnus-server-add-address 'byte-optimizer 'byte-compile-inline-expand)
#@48
(fn METHOD &optional NOCACHE NO-ENTER-CACHE)
(defalias 'gnus-method-to-server #[769 "C\3042\200 \211\242\206
\240\210\204$ \305\306\307\310\311\312!\313\"\314\315% \"\210\n D\211\203E \211@\305\306\307\316\311\312!\317\"\314\315%\"\210A\266\202\202' \210\211\242A@\320\235\203X \321\322\242@\"\202b \321\323\242@\242A@#\211\242B\211 \235\204| \204| \324@ \"\204| \211 B\266\2020\207" [gnus-select-method gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] 4 "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") format "%s" "%s:%s" assoc] 13 (#$ . 115962)])
(put 'gnus-method-to-server 'byte-optimizer 'byte-compile-inline-expand)
#@58 Map virtual server names to select methods.
(fn SERVER)
(defalias 'gnus-server-to-method #[257 "\211\203
\211<\203
\211\206<\306\"A\206<\211\307\232\203 \206(\306\n\"A\206(\306 \"A\206(\f\211\203M \310\311@@@@@A@#\232\204M \211A\266\202\2020 \211@@\262\206(
\211\203q \310\311@@@A@#\232\204q \211A\266\202\202V \211@\262\206(A\312\211\203&\211A\262\242\3138\262\262;\204} \312\314C\3152\211\242\206\244 \240\210\204\273 \316\317\320\321\322\323!\324\"\313\325%\"\210\n D\211\203\334 \211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202\276 \210\211\242A@\330\235\203\357 \310\331\242@\"\202\371 \310\311\242@\242A@#\211\242B\211\235\204\204\306@\"\204\211B\266\2020\266\204\232\203} \262\312\262\202} \266\202\211\2039\306\"\2049BB\211\262\207" [gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods assoc "native" format "%s:%s" nil 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" gnus-newsrc-alist] 18 (#$ . 116860)])
(put 'gnus-server-to-method 'byte-optimizer 'byte-compile-inline-expand)
#@21
(fn GROUP METHOD)
(defalias 'gnus-server-get-method #[514 "\211;\203C\211\211\203 \211<\203 \211\206B\306\"A\206B\211\307\232\203% \206.\306\n\"A\206.\306 \"A\206.\f\211\203S \310\311@@@@@A@#\232\204S \211A\266\202\2026 \211@@\262\206.
\211\203w \310\311@@@A@#\232\204w \211A\266\202\202\\ \211@\262\206.\"A\312\211\203,\211A\262\242\3138\262\262;\204\203 \312\314C\3152 \211\242\206\252 \240\210\204\301 \316\317\320\321\322\323!\324\"\313\325%\"\210\n D\211\203\342 \211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202\304 \210\211\242A@\330\235\203\365 \310\331\242@\"\202\377 \310\311\242@\242A@#\211\242B\211\235\204\204\306@\"\204\211B\266\2020\266\204\232\203\203 \262\312\262\202\203 \266\202\211\203?\306\"\204?BB\211\262\207\211 \232\203K \207\211@;\203Z\203Z\332\"\207\211\203k\204k\211A@\333\232\203k\207\211\334@!\335\306#\">\203\236\336\337P!\236\204\236\340@#\236>\203\236\341\336\337P!A@DC\"\202\237\207" [gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods assoc "native" format "%s:%s" nil 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1="") "%s" gnus-server-extend-method #1# symbol-name address intern "-address" physical-address append gnus-newsrc-alist gnus-valid-select-methods] 20 (#$ . 118273)])
(put 'gnus-server-get-method 'byte-optimizer 'byte-compile-inline-expand)
#@50 Say whether two servers are equal.
(fn SS1 SS2)
(defalias 'gnus-method-equal '(macro . #[514 "\300\301D\302DD\303BB\207" [let s1 s2 ((or (equal s1 s2) (and (= (length s1) (length s2)) (progn (while (and s1 (member (car s1) s2)) (setq s1 (cdr s1))) (null s1)))))] 6 (#$ . 120008)]))
#@14
(fn M1 M2)
(defalias 'gnus-methods-equal-p #[514 "\206 \206\n \232\206, @@=\205, \302\303\304@! \">?\206, A@A@\232\207" [gnus-select-method gnus-valid-select-methods address assoc symbol-name] 8 (#$ . 120299)])
#@14
(fn M1 M2)
(defalias 'gnus-sloppily-equal-method-parameters #[514 "\300AA!\300AA!\301\211\3022~ \211A\262\242\211\262\203{ @\236\211\262\204+ \303\302\301\"\210\304\"\262\232\204 A@;\203E \211A@;\204M \303\302\301\"\210\202 A@A@\305\306\"\203_ \307!\262\305\306\"\203k \307!\262\232\204v \303\302\301\"\210\266\202 ?0\207" [copy-sequence nil --cl-block-nil-- throw delq string-match "/\\'" directory-file-name] 11 (#$ . 120530)])
(put 'gnus-sloppily-equal-method-parameters 'byte-optimizer 'byte-compile-inline-expand)
#@15
(fn METHOD)
(defalias 'gnus-method-ephemeral-p #[257 "\301\211\203\227 \211@\302AA!\302AA!\301\211\3032\210 \211A\262\242\211\262\203\205 @\236\211\262\2045 \304\303\301\"\210\305\"\262\232\204 A@;\203O \211A@;\204W \304\303\301\"\210\202 A@A@\306\307\"\203i \310!\262\306\307\"\203u \310!\262\232\204\200 \304\303\301\"\210\266\202 ?0\266\206\203\220 \311\262A\266\202\202 \210\211\207" [gnus-ephemeral-servers nil copy-sequence --cl-block-nil-- throw delq string-match "/\\'" directory-file-name t] 15 (#$ . 121086)])
#@14
(fn M1 M2)
(defalias 'gnus-methods-sloppily-equal #[514 "=\206\232 @@=\205\232 A@A@\232\205\232 \300AA!\300AA!\301\211\3022\230 \211A\262\242\211\262\203\225 @\236\211\262\204E \303\302\301\"\210\304\"\262\232\204* A@;\203_ \211A@;\204g \303\302\301\"\210\202* A@A@\305\306\"\203y \307!\262\305\306\"\203\205 \307!\262\232\204\220 \303\302\301\"\210\266\202* ?0\266\206\207" [copy-sequence nil --cl-block-nil-- throw delq string-match "/\\'" directory-file-name] 13 (#$ . 121649)])
#@48 Say whether two methods are equal.
(fn M1 M2)
(defalias 'gnus-server-equal #[514 "\204 \202P;\203O\211\203 \211<\203 \211\206J\306 \"A\206J\211\307\232\203- \2066\306\n\"A\2066\306 \"A\2066\f\211\203[ \310\311@@@@@A@#\232\204[ \211A\266\202\202> \211@@\262\2066
\211\203 \310\311@@@A@#\232\204 \211A\266\202\202d \211@\262\2066A\312\211\2034\211A\262\242\3138\262\262;\204\213 \312\314C\3152%\211\242\206\262 \240\210\204\311 \316\317\320\321\322\323!\324\"\313\325% \"\210\n D\211\203\352 \211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202\314 \210\211\242A@\330\235\203\375 \310\331\242@\"\202\310\311\242@\242A@#\211\242B\211 \235\204!\204!\306@ \"\204!\211 B\266\2020\266\204\232\203\213 \262\312\262\202\213 \266\202\211\203G\306 \"\204GB B\211\262\262\202P\204X\202\240;\203\237\211\203k\211<\203k\211\206\232\306 \"A\206\232\211\307\232\203}\206\206\306\n\"A\206\206\306 \"A\206\206\f\211\203\253\310\311@@@@@A@#\232\204\253\211A\266\202\202\216\211@@\262\206\206
\211\203\317\310\311@@@A@#\232\204\317\211A\266\202\202\264\211@\262\206\206A\312\211\203\204\211A\262\242\3138\262\262;\204\333\312\314C\3152u\211\242\206\240\210\204\316\317\320\321\322\323!\324\"\313\325% \"\210\n D\211\203:\211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202 \210\211\242A@\330\235\203M\310\331\242@\"\202W\310\311\242@\242A@#\211\242B\211 \235\204q\204q\306@ \"\204q\211 B\266\2020\266\204\232\203\333\262\312\262\202\333\266\202\211\203\227\306 \"\204\227B B\211\262\262\202\240\232\206\304GGU\205\304\203\302@\235\203\302A\262\202\260?\266\202\207" [gnus-select-method gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods assoc "native" format "%s:%s" nil 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" gnus-newsrc-alist] 21 (#$ . 122173)])
#@61 Return a list of known servers using BACKEND.
(fn BACKEND)
(defalias 'gnus-servers-using-backend #[257 "\301\203 @@@=\203 @@B\262\211A\262\210\202 \207" [gnus-opened-servers nil] 5 (#$ . 124440)])
#@55 Say whether the user wants to use the archive server.
(defalias 'gnus-archive-server-wanted-p #[0 "\203 \204\n \302\207\203 \203 \303\207\304\236A@\211\205 \305!\207" [gnus-message-archive-method gnus-message-archive-group nil t nnfolder-active-file file-exists-p] 3 (#$ . 124656)])
#@15
(fn METHOD)
(defalias 'gnus-method-to-server-name #[257 "\301\302@\"\303\301\302@\"\304\305!\"\204 \306\"\205- A@\205- A@\307\230?\205- \310A@PP\207" [gnus-message-archive-method format "%s" assoc gnus-methods-using address gnus-server-equal "" "+"] 6 (#$ . 124955)])
(put 'gnus-method-to-server-name 'byte-optimizer 'byte-compile-inline-expand)
#@15
(fn METHOD)
(defalias 'gnus-method-to-full-server-name #[257 "\300\301@A@#\207" [format "%s+%s"] 5 (#$ . 125317)])
(put 'gnus-method-to-full-server-name 'byte-optimizer 'byte-compile-inline-expand)
#@169 Return the whole name from GROUP and METHOD.
Call with full set to get the fully qualified group name (even if the
server is native).
(fn GROUP METHOD &optional FULL)
(defalias 'gnus-group-prefixed-name #[770 ";\203F\211\203 \211<\203 \211\206B\306\"A\206B\211\307\232\203% \206.\306\n\"A\206.\306 \"A\206.\f\211\203S \310\311@@@@@A@#\232\204S \211A\266\202\2026 \211@@\262\206.
\211\203w \310\311@@@A@#\232\204w \211A\266\202\202\\ \211@\262\206. A\312\211\203,\211A\262\242\3138\262\262;\204\203 \312\314C\3152 \211\242\206\252 \240\210\204\301 \316\317\320\321\322\323!\324\"\313\325%\"\210\n D\211\203\342 \211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202\304 \210\211\242A@\330\235\203\365 \310\331\242@\"\202\377 \310\311\242@\242A@#\211\242B\211\235\204\204\306@\"\204\211B\266\2020\266\204\232\203\203 \262\312\262\202\203 \266\202\211\203?\306\"\204?BB\211\262\262\262\203U\211\204W\332\307\"\203W\207\310\331@\"\306\310\331@\"\333\334!\"\204r\332!\"\205\206A@\205\206A@\335\230?\205\206\336A@PP\262\337Q\207" [gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods assoc "native" format "%s:%s" nil 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1="") "%s" gnus-server-equal gnus-methods-using address #1# "+" ":" gnus-newsrc-alist gnus-message-archive-method] 21 (#$ . 125526)])
#@94 Return the full name from GROUP and METHOD, even if the method is native.
(fn GROUP METHOD)
(defalias 'gnus-group-full-name #[514 "\300\301#\207" [gnus-group-prefixed-name t] 6 (#$ . 127253)])
#@75 Guess the full name from GROUP, even if the method is native.
(fn GROUP)
(defalias 'gnus-group-guess-full-name-from-command-method #[257 "\301!\203 \207\302\"\207" [gnus-command-method gnus-group-prefixed-p gnus-group-full-name] 4 (#$ . 127455)])
#@58 Return the prefix of the current group name.
(fn GROUP)
(defalias 'gnus-group-real-prefix #[257 "\211;\205 \300\301\"\203 \302\303\211\225#\207\304\207" [string-match "^[^:]+:" substring 0 ""] 5 (#$ . 127713)])
#@42 Return the short group name.
(fn GROUP)
(defalias 'gnus-group-short-name #[257 "\300!\301GW\203 \302G\303#\202 \207" [gnus-group-real-prefix 0 substring nil] 6 (#$ . 127935)])
#@58 Return the prefix of the current group name.
(fn GROUP)
(defalias 'gnus-group-prefixed-p #[257 "\300\301!GW\207" [0 gnus-group-real-prefix] 4 (#$ . 128125)])
#@54 Return the summary buffer name of GROUP.
(fn GROUP)
(defalias 'gnus-summary-buffer-name #[257 "\300\301Q\207" ["*Summary " "*"] 4 (#$ . 128291)])
#@129 Return the server or method used for selecting GROUP.
You should probably use `gnus-find-method-for-group' instead.
(fn GROUP)
(defalias 'gnus-group-method #[257 "\303!\211\304\232\203
\202\211 \304\305\211\211\306\307\"\2035 \310\311\312\211\225S#!\262\311\312\225GS#\262\202B \310\311\312 GS#!\262\203l @@@=\203c @@\262@@A@\232\203c @@\262\211A\262\210\202B \313\n\"@\206\207 \211\206\207 \313\n\"@\206\207 \206\207 D\266\205\207" [gnus-select-method gnus-opened-servers gnus-server-alist gnus-group-real-prefix "" nil string-match "^[^\\+]+\\+" intern substring 0 rassoc] 12 (#$ . 128446)])
#@65 Return whether METHOD is the native select method.
(fn METHOD)
(defalias 'gnus-native-method-p #[257 "\211\232\206$ GGU\205$ \203\" @\235\203\" A\262\202 ?\207" [gnus-select-method] 5 (#$ . 129081)])
(put 'gnus-native-method-p 'byte-optimizer 'byte-compile-inline-expand)
#@66 Return whether METHOD is a secondary select method.
(fn METHOD)
(defalias 'gnus-secondary-method-p #[257 "\306\211;\203J\211\211\203 \211<\203 \211\206E\307 \"A\206E\211\310\232\203( \n\2061\307 \"A\2061\307\f\"A\2061
\211\203V \311\312@@@@@A@#\232\204V \211A\266\202\2029 \211@@\262\2061\211\203z \311\312@@@A@#\232\204z \211A\266\202\202_ \211@\262\2061\"A\306\211\203/\211A\262\242\3138\262\262;\204\206 \306\314C\3152 \211\242\206\255 \n\240\210\204\304 \316\317\320\321\322\323!\324\"\313\325% \"\210 \fD\211\203\345 \211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202\307 \210\211\242A@\330\235\203\370 \311\331\242@\"\202\311\312\242@\242A@#\211\242B\211 \235\204 \204 \307@ \"\204 \211 B\266\2020\266\204\232\203\206 \262\306\262\202\206 \266\202\211\203B\307 \"\204BB B\211\262\266\203\202\264\211\n\232\203V\n\266\202\202\264\211@;\203i\203i\332\"\266\202\202\264\211\203~\204~\211A@\333\232\203~\262\202\264\211\334@!\335\307#\">\203\261\336\337P!\236\204\261\340@#\236>\203\261\341\336\337P!A@DC\"\202\262\266\204\203\233\306@\211;\203\211\211\203\316\211<\203\316\211\206\375\307 \"A\206\375\211\310\232\203\340\n\206\351\307 \"A\206\351\307\f\"A\206\351
\211\203\311\312@@@@@A@#\232\204\211A\266\202\202\361\211@@\262\206\351\211\2032\311\312@@@A@#\232\2042\211A\266\202\202\211@\262\206\351\"A\306\211\203\347\211A\262\242\3138\262\262;\204>\306\314C\3152\330\211\242\206e\n\240\210\204|\316\317\320\321\322\323!\324\"\313\325% \"\210 \fD\211\203\235\211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202\210\211\242A@\330\235\203\260\311\331\242@\"\202\272\311\312\242@\242A@#\211\242B\211 \235\204\324\204\324\307@ \"\204\324\211 B\266\2020\266\204\232\203>\262\306\262\202>\266\202\211\203\372\307 \"\204\372B B\211\262\266\203\202l\211\n\232\203\n\266\202\202l\211@;\203!\203!\332\"\266\202\202l\211\2036\2046\211A@\333\232\2036\262\202l\211\334@!\335\307#\">\203i\336\337P!\236\204i\340@#\236>\203i\341\336\337P!A@DC\"\202j\266\204\232\206\217GGU\205\217\203\215@\235\203\215A\262\202{?\266\202\204\233A\262\202\264\207" [gnus-secondary-select-methods gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers nil assoc "native" format "%s:%s" 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1="") "%s" gnus-server-extend-method #1# symbol-name address intern "-address" physical-address append gnus-newsrc-alist gnus-valid-select-methods] 23 (#$ . 129372)])
(put 'gnus-secondary-method-p 'byte-optimizer 'byte-compile-inline-expand)
#@84 Return the shortest uniquely identifying string or method for METHOD.
(fn METHOD)
(defalias 'gnus-method-simplify #[257 "\211;\203 \207\211\211\232\206+ GGU\205+ \203) @\235\203) A\262\202 ?\266\203\2032 \306\207\211 \306\211;\203}\211\211\203I \211<\203I \211\206x\307\n\"A\206x\211\310\232\203[ \206d\307 \"A\206d\307\f\"A\206d
\211\203\211 \311\312@@@@@A@#\232\204\211 \211A\266\202\202l \211@@\262\206d \211\203\255 \311\312@@@A@#\232\204\255 \211A\266\202\202\222 \211@\262\206d\"A\306\211\203b\211A\262\242\3138\262\262;\204\271 \306\314C\3152S\211\242\206\340 \240\210\204\367 \316\317\320\321\322\323!\324\"\313\325%\n\"\210 \fD\211\203\211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202\372 \210\211\242A@\330\235\203+\311\331\242@\"\2025\311\312\242@\242A@#\211\242B\211\n\235\204O\204O\307@\n\"\204O\211\nB\266\2020\266\204\232\203\271 \262\306\262\202\271 \266\202\211\203u\307\n\"\204uB\nB\211\262\266\203\202\347\211\232\203\211\266\202\202\347\211@;\203\234\203\234\332\"\266\202\202\347\211\203\261\204\261\211A@\333\232\203\261\262\202\347\211\334@!\335\307#\">\203\344\336\337P!\236\204\344\340@#\236>\203\344\341\336\337P!A@DC\"\202\345\266\204\203\316\306@\211;\2035\211\211\203\211<\203\211\2060\307\n\"A\2060\211\310\232\203\206 \307 \"A\206 \307\f\"A\206
\211\203A\311\312@@@@@A@#\232\204A\211A\266\202\202$\211@@\262\206 \211\203e\311\312@@@A@#\232\204e\211A\266\202\202J\211@\262\206 \"A\306\211\203\211A\262\242\3138\262\262;\204q\306\314C\3152 \211\242\206\230\240\210\204\257\316\317\320\321\322\323!\324\"\313\325%\n\"\210 \fD\211\203\320\211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202\262\210\211\242A@\330\235\203\343\311\331\242@\"\202\355\311\312\242@\242A@#\211\242B\211\n\235\204\204\307@\n\"\204\211\nB\266\2020\266\204\232\203q\262\306\262\202q\266\202\211\203-\307\n\"\204-B\nB\211\262\266\203\202\237\211\232\203A\266\202\202\237\211@;\203T\203T\332\"\266\202\202\237\211\203i\204i\211A@\333\232\203i\262\202\237\211\334@!\335\307#\">\203\234\336\337P!\236\204\234\340@#\236>\203\234\341\336\337P!A@DC\"\202\235\266\204\232\206\302GGU\205\302\203\300@\235\203\300A\262\202\256?\266\202\204\316A\262\202\347\266\203\203\335\311\312@A@#\207\207" [gnus-select-method gnus-secondary-select-methods gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist gnus-opened-servers nil assoc "native" format "%s:%s" 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1="") "%s" gnus-server-extend-method #1# symbol-name address intern "-address" physical-address append gnus-newsrc-alist gnus-valid-select-methods] 24 (#$ . 132378)])
#@72 Return a list of all groups that are fetched from SERVER.
(fn SERVER)
(defalias 'gnus-groups-from-server #[257 "A\301\211\211A\262\242\211\262\203\" \302\3038\"\203 @B\262\202 \304\305\"\207" [gnus-newsrc-alist nil gnus-server-equal 4 sort string<] 7 (#$ . 135482)])
#@52 Say whether a group is foreign or not.
(fn GROUP)
(defalias 'gnus-group-foreign-p #[257 "\300!?\205 \301!?\207" [gnus-group-native-p gnus-group-secondary-p] 3 (#$ . 135768)])
#@53 Say whether the group is native or not.
(fn GROUP)
(defalias 'gnus-group-native-p #[257 "\300\301\"?\207" [string-match ":"] 4 (#$ . 135953)])
#@56 Say whether the group is secondary or not.
(fn GROUP)
(defalias 'gnus-group-secondary-p #[257 "\306!\307\211;\203M\211\211\203 \211<\203 \211\206H\310 \"A\206H\211\311\232\203+ \n\2064\310 \"A\2064\310\f\"A\2064
\211\203Y \312\313@@@@@A@#\232\204Y \211A\266\202\202< \211@@\262\2064\211\203} \312\313@@@A@#\232\204} \211A\266\202\202b \211@\262\2064#A\307\211\2032\211A\262\242\3148\262\262;\204\211 \307\315C\3162#\211\242\206\260 \n\240\210\204\307 \317\320\321\322\323\324!\325\"\314\326% \"\210 \fD\211\203\350 \211@\317\320\321\327\323\324!\330\"\314\326%\"\210A\266\202\202\312 \210\211\242A@\331\235\203\373 \312\332\242@\"\202\312\313\242@\242A@#\211\242B\211 \235\204 \204 \310@ \"\204 \211 B\266\2020\266\204\232\203\211 \262\307\262\202\211 \266\202\211\203E\310 \"\204EB B\211\262\266\203\202\267\211\n\232\203Y\n\266\202\202\267\211@;\203l\203l\333\"\266\202\202\267\211\203\201\204\201\211A@\334\232\203\201\262\202\267\211\335@!\336\310$\">\203\264\337\340P!\236\204\264\341@$\236>\203\264\342\337\340P!A@DC\"\202\265\266\204\203\236\307@\211;\203\211\211\203\321\211<\203\321\211\206 \310 \"A\206 \211\311\232\203\343\n\206\354\310 \"A\206\354\310\f\"A\206\354
\211\203\312\313@@@@@A@#\232\204\211A\266\202\202\364\211@@\262\206\354\211\2035\312\313@@@A@#\232\2045\211A\266\202\202\211@\262\206\354#A\307\211\203\352\211A\262\242\3148\262\262;\204A\307\315C\3162\333\211\242\206h\n\240\210\204\317\320\321\322\323\324!\325\"\314\326% \"\210 \fD\211\203\240\211@\317\320\321\327\323\324!\330\"\314\326%\"\210A\266\202\202\202\210\211\242A@\331\235\203\263\312\332\242@\"\202\275\312\313\242@\242A@#\211\242B\211 \235\204\327\204\327\310@ \"\204\327\211 B\266\2020\266\204\232\203A\262\307\262\202A\266\202\211\203\375\310 \"\204\375B B\211\262\266\203\202o\211\n\232\203\n\266\202\202o\211@;\203$\203$\333\"\266\202\202o\211\2039\2049\211A@\334\232\2039\262\202o\211\335@!\336\310$\">\203l\337\340P!\236\204l\341@$\236>\203l\342\337\340P!A@DC\"\202m\266\204\232\206\222GGU\205\222\203\220@\235\203\220A\262\202~?\266\202\204\236A\262\202\267\207" [gnus-secondary-select-methods gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-find-method-for-group nil assoc "native" format "%s:%s" 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1="") "%s" gnus-server-extend-method #1# symbol-name address intern "-address" physical-address append gnus-newsrc-alist gnus-valid-select-methods] 24 (#$ . 136104)])
#@75 Return the group parameters for GROUP from `gnus-parameters'.
(fn GROUP)
(defalias 'gnus-parameters-get-parameter #[257 "\303=\203\n \202 \304\n\211\2031 \211@\305@\"\203* \306@A#\244\262A\266\202\202 \210)\207" [gnus-parameters-case-fold-search case-fold-search gnus-parameters default nil string-match gnus-expand-group-parameters] 9 (#$ . 139061)])
#@61 Use MATCH to expand VALUE in GROUP.
(fn MATCH VALUE GROUP)
(defalias 'gnus-expand-group-parameter #[771 "\300\"\211\203 \301\302\225#\300\"\210\303\304\211$\262\202 \207" [string-match substring 0 replace-match nil] 10 (#$ . 139437)])
#@97 Go through PARAMETERS and expand them according to the match data.
(fn MATCH PARAMETERS GROUP)
(defalias 'gnus-expand-group-parameters #[771 "\300\211\203U \211@\211A;\203( \301\302A\"\203( \211@\303A#BB\262\202N \211@\304=\203I \305\306\307\310\311\312 \n\"\313\"\314\315%A\"B\262\202N \211B\262A\266\202\202 \210\211\207" [nil string-match "\\\\[0-9&]" gnus-expand-group-parameter sieve mapcar make-byte-code 257 "\211;\203 \302\303\"\203 \304\300\301#\207\207" vconcat vector [string-match "\\\\[0-9&]" gnus-expand-group-parameter] 5 "\n\n(fn SIEVE-ELEM)"] 14 (#$ . 139691)])
#@200 For GROUP, return the value of SYMBOL.
You should call this in the `gnus-group-buffer' buffer.
The function `gnus-group-find-parameter' will do that for you.
(fn GROUP SYMBOL &optional ALLOW-LIST)
(defalias 'gnus-group-fast-parameter #[770 "!\302\303$\211\203 \211@\202z \304\211C \211\203w @\240\210\211A\262\305\242@ \"\203 \302\242A\303$\211\203s \211@\262;\203X \305\306\"\203X \307\242@ #\262\202s \310=\203s \311\312\313\314\315\316 \"\317\"\320\321%\"\262\210\202 \266\203\207" [gnus-group-get-parameter-function gnus-parameters gnus-group-parameter-value t nil string-match "\\\\[0-9&]" gnus-expand-group-parameter sieve mapcar make-byte-code 257 "\211;\203
\302\301\242@\300#\207\207" vconcat vector [gnus-expand-group-parameter] 5 "\n\n(fn ELEM)"] 17 (#$ . 140300)])
#@253 Return the group parameters for GROUP.
If SYMBOL, return the value of that symbol in the group parameters.
If you call this function inside a loop, consider using the faster
`gnus-group-fast-parameter' instead.
(fn GROUP &optional SYMBOL ALLOW-LIST)
(defalias 'gnus-group-find-parameter #[769 "r\211\205 \303\304 !\211!\205 )\206 pq\210\203% \305#\202. \306\n!!\307!\244)\207" [gnus-group-buffer buffer gnus-group-get-parameter-function buffer-live-p get-buffer gnus-group-fast-parameter copy-sequence gnus-parameters-get-parameter] 8 (#$ . 141121)])
#@289 Return the group parameters for GROUP.
If SYMBOL, return the value of that symbol in the group parameters.
If ALLOW-LIST, also allow list as a result.
Most functions should use `gnus-group-find-parameter', which
also examines the topic parameters.
(fn GROUP &optional SYMBOL ALLOW-LIST)
(defalias 'gnus-group-get-parameter #[769 "\301\"A@\262\3028\262\203 \303#\202 \211\207" [gnus-newsrc-hashtb gethash 5 gnus-group-parameter-value] 8 (#$ . 141694)])
#@140 Return the value of SYMBOL in group PARAMS.
If ALLOW-LIST, also allow list as a result.
(fn PARAMS SYMBOL &optional ALLOW-LIST PRESENT-P)
(defalias 'gnus-group-parameter-value #[1026 ">@\206D \300\3012B \211A\262\242\211\262\205A \211:\203\f \211@=\203\f \204. \211A:\204\f \302\301\203: AC\202< A\"\210\202\f 0\262\207" [nil found throw] 8 (#$ . 142166)])
#@49 Add parameter PARAM to GROUP.
(fn GROUP PARAM)
(defalias 'gnus-group-add-parameter #[514 "\301\"A@\262\211\205% \302:\203 @\202 \"\210\303\3048B\305#\207" [gnus-newsrc-hashtb gethash gnus-group-remove-parameter gnus-group-set-info 5 params] 7 (#$ . 142541)])
#@99 Set parameter NAME to VALUE in GROUP.
GROUP can also be an INFO structure.
(fn GROUP NAME VALUE)
(defalias 'gnus-group-set-parameter #[771 "<\203 \202 \301\"A@\262\211\205g \302\"\210\3038BC\203C @<\2034 @@=\204< \304@C\"\262A\262\202\" <\203_ \305\211\203T \306\303\"\210\303\233\211\240\266\204\202e \307@\310#\266\202\207" [gnus-newsrc-hashtb gethash gnus-group-remove-parameter 5 append t gnus-info--grow-entry gnus-group-set-info params] 12 (#$ . 142820)])
#@89 Remove parameter NAME from GROUP.
GROUP can also be an INFO structure.
(fn GROUP NAME)
(defalias 'gnus-group-remove-parameter #[514 "<\203 \202 \301\"A@\262\211\205> \3028\211\205< \303\"\262\236\2034 \303\236\"\262\202# \302\233\211\240\262\262\207" [gnus-newsrc-hashtb gethash 5 delq] 7 (#$ . 143319)])
#@105 Add SCORE to the GROUP score.
If SCORE is nil, add 1 to the score of GROUP.
(fn GROUP &optional SCORE)
(defalias 'gnus-group-add-score #[513 "\301\"A@\262\211\205A \211\211\211A@\211:\203 \211A\206 \302\266\202\206% \303\\A@\211:\2034 \211\241\202= A\211B\240\262\266\203\262\207" [gnus-newsrc-hashtb gethash 0 1] 11 (#$ . 143654)])
#@151 Collapse GROUP name LEVELS.
Select methods are stripped and any remote host name is stripped down to
just the host name.
(fn GROUP &optional LEVELS)
(defalias 'gnus-short-group-name #[513 "\301\302\303\206 \206 \304\305#\203 \302\225\262T\262\202 \304\306\"\211\205/ \307\302#\211\2057 \304\310\"\203g \211\203V \307T\304\305\"#\262\307 T\"\262 \202a \262\307 T\"\262 \306P\262\311 \312\"\211G\311 \305\"\211G\313\211\211\211V\203\216 \262\262\312\262\202\227 \262\262\314\262\fZ\262\f\211\203\316 \211@
S\211\262\302Y\203\302 \211G\302U\203\272 \301\202\303 \307\302\303#\202\303 \211B\262A\266\202\202\236 \210\315\316\237#P\266\210\266\203\207" [gnus-group-uncollapsed-levels "" 0 1 string-match "\\." ":" substring "\\+" split-string "/" nil "." mapconcat identity] 23 (#$ . 144010)])
#@35 Narrow to the body of an article.
(defalias 'gnus-narrow-to-body #[0 "eb\210\300\301\302\303#\206\f dd}\207" [search-forward "\n\n" nil t] 4 (#$ . 144870)])
#@92 Apply a kill file to the current newsgroup.
Returns the number of articles marked as read.
(defalias 'gnus-apply-kill-file #[0 "\301\302\303!!\204 \301\302!!\203 \304 \207\305\207" [gnus-newsgroup-name file-exists-p gnus-newsgroup-kill-file nil gnus-apply-kill-file-internal 0] 3 (#$ . 145033)])
(defalias 'gnus-kill-save-kill-buffer #[0 "\301!\302!\205 r\302!q\210\303 \203 \304 \210\305p!)\207" [gnus-newsgroup-name gnus-newsgroup-kill-file get-file-buffer buffer-modified-p save-buffer kill-buffer] 3])
(byte-code "\300\301\302\303\304DD\305\306\307\306\310\311\312& \207" [custom-declare-variable gnus-kill-file-name funcall function #[0 "\300\207" [#1="KILL"] 1 #1#] "Suffix of the kill files." :group gnus-score-kill gnus-score-files :type string] 10)
#@131 Return the name of a kill file name for NEWSGROUP.
If NEWSGROUP is nil, return the global kill file name instead.
(fn NEWSGROUP)
(defalias 'gnus-newsgroup-kill-file #[257 "\211\203\n \211\302\230\203 \303 \"\207\304\305!\203 \303\306!\307Q \"\207\303\310!\311Q \"\207" [gnus-kill-file-name gnus-kill-files-directory "" expand-file-name gnus-use-long-file-name not-kill gnus-newsgroup-savable-name "." gnus-newsgroup-directory-form "/"] 5 (#$ . 145806)])
#@78 Find out if GROUP has SYMBOL as part of its "valid" spec.
(fn SYMBOL GROUP)
(defalias 'gnus-member-of-valid #[514 "\301\302\303!@!\">\207" [gnus-valid-select-methods assoc symbol-name gnus-find-method-for-group] 7 (#$ . 146274)])
#@80 Return non-nil if select METHOD has OPTION as a parameter.
(fn METHOD OPTION)
(defalias 'gnus-method-option-p #[514 ";\203F\211\203 \211<\203 \211\206B\306\"A\206B\211\307\232\203% \206.\306\n\"A\206.\306 \"A\206.\f\211\203S \310\311@@@@@A@#\232\204S \211A\266\202\2026 \211@@\262\206.
\211\203w \310\311@@@A@#\232\204w \211A\266\202\202\\ \211@\262\206.A\312\211\203,\211A\262\242\3138\262\262;\204\203 \312\314C\3152 \211\242\206\252 \240\210\204\301 \316\317\320\321\322\323!\324\"\313\325%\"\210\n D\211\203\342 \211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202\304 \210\211\242A@\330\235\203\365 \310\331\242@\"\202\377 \310\311\242@\242A@#\211\242B\211\235\204\204\306@\"\204\211B\266\2020\266\204\232\203\203 \262\312\262\202\203 \266\202\211\203?\306\"\204?BB\211\262\262\262\211\306\310\331@\"\">\207" [gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods assoc "native" format "%s:%s" nil 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" gnus-newsrc-alist gnus-valid-select-methods] 20 (#$ . 146514)])
#@139 Return non-nil if we have a similar server opened.
This is defined as a server with the same name, but different
parameters.
(fn METHOD)
(defalias 'gnus-similar-server-opened #[257 "\301\2032 \2032 \211A\262\242@\262@@\232\203 A@A@\232\203 \302\"\204 \301\262\202 ?\207" [gnus-opened-servers nil gnus-methods-sloppily-equal] 6 (#$ . 147956)])
#@21
(fn GROUP METHOD)
(defalias 'gnus-server-extend-method #[514 "\211\302\2033 \2033 \211A\262\242@\262@@\232\203 A@A@\232\203 \303\"\204 \302\262\202 ?\266\203\203@ \211AA\204A \207\304\305\306@\"!\211AA\236\203` @A@\307QAABB\202s @A@\307QA@DAABBB\262 B\207" [gnus-opened-servers gnus-extended-servers nil gnus-methods-sloppily-equal intern format "%s-address" "+"] 8 (#$ . 148324)])
#@43 Return the status of METHOD.
(fn METHOD)
(defalias 'gnus-server-status #[257 "\301\"A@\207" [gnus-opened-servers assoc] 4 (#$ . 148748)])
#@51 Guess a select method based on GROUP.
(fn GROUP)
(defalias 'gnus-group-name-to-method #[257 "\301\302\"\203+ \303\304\211\224#\301\305\"\203% \306\303\304\211\224#!\303\304\225\"D\202* \306!\307D\207\207" [gnus-select-method string-match ":" substring 0 "\\+" intern ""] 7 (#$ . 148895)])
#@62 Return a readable string that describes SERVER.
(fn SERVER)
(defalias 'gnus-server-string #[257 "\211\211\203 \211<\203 \211\206=\306\"A\206=\211\307\232\203 \206)\306\n\"A\206)\306 \"A\206)\f\211\203N \310\311@@@@@A@#\232\204N \211A\266\202\2021 \211@@\262\206)
\211\203r \310\311@@@A@#\232\204r \211A\266\202\202W \211@\262\206) A\312\211\203'\211A\262\242\3138\262\262;\204~ \312\314C\3152\211\242\206\245 \240\210\204\274 \316\317\320\321\322\323!\324\"\313\325%\"\210\n D\211\203\335 \211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202\277 \210\211\242A@\330\235\203\360 \310\331\242@\"\202\372 \310\311\242@\242A@#\211\242B\211\235\204\204\306@\"\204\211B\266\2020\266\204\232\203~ \262\312\262\202~ \266\202\211\203:\306\"\204:BB\211\262\262\211A@\211\203V\211G\332U\204V\310\333@#\202[\310\331@\"\207" [gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods assoc "native" format "%s:%s" nil 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" 0 "%s using %s" gnus-newsrc-alist] 19 (#$ . 149198)])
#@15
(fn METHOD)
(defalias 'gnus-same-method-different-name #[257 "\301\302@!\303P!\211AA\236\204 \304A@DC\"\262\210\305\211\211\204\302 \211A\262\242\211\262\203\302 @@=\203 \306AA!\306AA!\305\211\3072\267 \211A\262\242\211\262\203\264 @\236\211\262\204d \310\307\305\"\210\311\"\262\232\204I A@;\203~ \211A@;\204\206 \310\307\305\"\210\202I A@A@\312\313\"\203\230 \314!\262\312\313\"\203\244 \314!\262\232\204\257 \310\307\305\"\210\266\202I ?0\266\206\203 \262\202 \207" [gnus-extended-servers intern symbol-name "-address" append nil copy-sequence --cl-block-nil-- throw delq string-match "/\\'" directory-file-name] 15 (#$ . 150626)])
#@68 Find the select method that GROUP uses.
(fn GROUP &optional INFO)
(defalias 'gnus-find-method-for-group #[513 "\206\232\204\f \206\232\306\n\"\204\200\307\310\"\203- \311\312\313\314\"\313\315\"\206) \316#\2025 \311\312 @ A@#\262\211\203D \211<\203D \211\206u\317 \"A\206u\211\320\232\203V \206a\317\f\"A\206a\317
\"A\206a1\211\203\205 \311\312@@@@@A@#\232\204\205 \211A\266\202\202h \211@@\262\206a2\211\203\252 \311\312@@@A@#\232\204\252 \211A\266\202\202\217 \211@\262\206a3A\321\211\203_\211A\262\242\3228\262\262;\204\266 \321\323C\3242P\211\242\206\335 \240\210\204\364 \325\326\327\330\331\332!\333\"\322\334% \"\210\f
D\211\203\211@\325\326\327\335\331\332!\336\"\322\334%\"\210A\266\202\202\367 \210\211\242A@\337\235\203(\311\340\242@\"\2022\311\312\242@\242A@#\211\242B\211 \235\204L\204L\317@ \"\204L\211 B\266\2020\266\204\232\203\266 \262\321\262\202\266 \266\202\211\203r\317 \"\204rB B\211\262\262\206\232\341!\206\232\211\206\215\306\n\"A@\262\321\203\241\3228\211\262\203\241\211\320\232\203\245 \202\230\211;\203\356\211\211\203\270\211<\203\270\211\206\351\317 \"A\206\351\211\320\232\203\312 \206\325\317\f\"A\206\325\317
\"A\206\3251\211\203\371\311\312@@@@@A@#\232\204\371\211A\266\202\202\334\211@@\262\206\3252\211\203 \311\312@@@A@#\232\204 \211A\266\202\202\211@\262\206\3253A\321\211\203\323\211A\262\242\3228\262\262;\204*\321\323C\3242\304\211\242\206Q \240\210\204h\325\326\327\330\331\332!\333\"\322\334% \"\210\f
D\211\203\211\211@\325\326\327\335\331\332!\336\"\322\334%\"\210A\266\202\202k\210\211\242A@\337\235\203\234\311\340\242@\"\202\246\311\312\242@\242A@#\211\242B\211 \235\204\300\204\300\317@ \"\204\300\211 B\266\2020\266\204\232\203*\262\321\262\202*\266\202\211\203\346\317 \"\204\346B B\211\262\262\202G\211A@;\203F\211\342\343@!\344P!\211AA\236\204\345A@DC\"\262\2104\321\211\211\204\271\211A\262\242\211\262\203\271@@=\203\346AA!\346AA!\321\211\3472\256\211A\262\242\211\262\203\253@\236\211\262\204[\350\347\321\"\210\351\"\262\232\204@A@;\203u\211A@;\204}\350\347\321\"\210\202@A@A@\307\352\"\203\217\353!\262\307\352\"\203\233\353!\262\232\204\246\350\347\321\"\210\266\202@?0\266\206\203\262\202\266\203\206G\2111\321\203\364\203\364\211A\262\242@\262@@\232\203\304A@A@\232\203\304\354\"\204\304\321\262\202\304?\266\203\203\211AA\204\262\202G\342\311\355@\"!\211AA\236\203%@A@\356QAABB\2028@A@\356QA@DAABBB\2624B4\266\203\202G\211\262\211A@\316\232\203U\211\202\230\211A@\204b\211@\316D\202\230\211\343@!\357\3175\">\203\225\342\344P!\236\204\225\360@5\236>\203\225\345\342\344P!A@DC\"\202\226\266\202\266\202\207" [gnus-override-method gnus-select-method gnus-newsrc-hashtb gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist gethash string-match "^\\([^:+]+\\)\\(?:\\+\\([^:]*\\)\\)?:" format "%s:%s" match-string 1 2 #1="" assoc "native" nil 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1#) "%s" gnus-group-name-to-method intern symbol-name "-address" append copy-sequence --cl-block-nil-- throw delq "/\\'" directory-file-name gnus-methods-sloppily-equal "%s-address" "+" address physical-address gnus-opened-servers gnus-secondary-select-methods gnus-newsrc-alist gnus-extended-servers gnus-valid-select-methods] 22 (#$ . 151315)])
#@51 Find all methods that have FEATURE.
(fn FEATURE)
(defalias 'gnus-methods-using #[257 "\301\203 @>\203 @B\262A\262\202 \207" [gnus-valid-select-methods nil] 5 (#$ . 155080)])
(byte-code "\300\301\302\303\211\304%\207" [autoload message-y-or-n-p "message" nil macro] 6)
#@96 Prompt the user for a group name.
Disallow invalid group names.
(fn PROMPT &optional DEFAULT)
(defalias 'gnus-read-group #[513 "\301\302\211\204H \303\304P\206 \301\305B\306#\211\262\"\203 \307\305\"\303\310\"\204; \311\312\313\314\315\316\317\320&\n\204D \321\322\"\262\302\262\210\202 \207" [gnus-invalid-group-regexp "" nil string-match read-string 0 gnus-group-history match-string "^$\\|:" message-talkative-question y-or-n-p "Proceed and create group anyway? " t "The group name \"" "\" contains a forbidden character: \"" "\".\n\nUsually, it's dangerous to create a group with this name, because it's not\nsupported by all back ends and servers. On IMAP servers it should work,\nthough. If you are really sure, you can proceed anyway and create the group.\n\nYou may customize the variable `gnus-invalid-group-regexp', which currently is\nset to \"" "\", if you want to get rid of this query permanently." format "Invalid group name: \"%s\". "] 16 (#$ . 155367)])
#@83 Prompt the user for a method.
Allow completion over sensible values.
(fn PROMPT)
(defalias 'gnus-read-method #[257 "\305\306\"\307 \211\203) \211@\310>\204 \311\312\313@\"\"\204\" \211B\262A\266\202\202 \210\211\262\314\n $\315\305\316\"\317\307\320%\211\321\232\203J \f\211\262\202\211 \311 \"\203y \310\311 \">\203` \322\323!\202a \321\311\312\324#\"A@\206t \325!D\262\202\211 \311\"\203\204 \211\202\211 \325!\321D\207" [gnus-opened-servers gnus-valid-select-methods gnus-predefined-server-alist gnus-server-alist gnus-select-method mapcar #[257 "\300\301@@@A@#B\207" [format "%s:%s"] 5 "\n\n(fn I)"] nil prompt-address assoc format "%s:" append gnus-completing-read car t gnus-method-history "" read-string "Address: " "%s:%s" intern] 11 (#$ . 156368)])
#@68 Say whether METHOD is covered by the agent.
(fn METHOD-OR-SERVER)
(defalias 'gnus-agent-method-p #[257 "@=\204\336\211;\203O\211\211\203 \211<\203 \211\206J\306 \"A\206J\211\307\232\203, \n\2066\306 \"A\2066\306\f\"A\2066
\211\203Z \310\311@@@@@A@#\232\204Z \211A\266\202\202= \211@@\262\2066\211\203 \310\311@@@A@#\232\204 \211A\266\202\202d \211@\262\2066A\312\211\2034\211A\262\242\3138\262\262;\204\213 \312\314C\3152%\211\242\206\262 \n\240\210\204\311 \316\317\320\321\322\323!\324\"\313\325% \"\210 \fD\211\203\352 \211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202\314 \210\211\242A@\330\235\203\375 \310\331\242@\"\202\310\311\242@\242A@#\211\242B\211 \235\204!\204!\306@ \"\204!\211 B\266\2020\266\204\232\203\213 \262\312\262\202\213 \266\202\211\203G\306 \"\204GB B\211\262\262\202P\211\211\314\312C\3152\323\211\242\206`\n\240\210\204w\316\317\320\321\322\323!\324\"\313\325% \"\210 \fD\211\203\230\211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202z\210\211\242A@\330\235\203\253\310\331\242@\"\202\265\310\311\242@\242A@#\211\242B\211 \235\204\317\204\317\306@ \"\204\317\211 B\266\2020\266\204 \235B\266A\207" [gnus-agent-method-p-cache gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers assoc "native" format "%s:%s" nil 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" gnus-secondary-select-methods gnus-newsrc-alist gnus-agent-covered-methods] 19 (#$ . 157163)])
#@15
(fn METHOD)
(defalias 'gnus-online #[257 "\203 \302 \"A@\303=\202 \304!?\207" [gnus-plugged gnus-opened-servers assoc offline gnus-agent-method-p] 4 (#$ . 158983)])
#@91 Read network news as a slave, without connecting to the local server.
(fn &optional ARG)
(defalias 'gnus-slave-no-server #[256 "\300\301\"\207" [gnus-no-server t] 4 (#$ . 159161) "P"])
#@348 Read network news.
If ARG is a positive number, Gnus will use that as the startup level.
If ARG is nil, Gnus will be started at level 2. If ARG is non-nil
and not a positive number, Gnus will prompt the user for the name of
an NNTP server to use.
As opposed to `gnus', this command will not connect to the local
server.
(fn &optional ARG SLAVE)
(defalias 'gnus-no-server #[512 "\300\"\207" [gnus-no-server-1] 5 (#$ . 159355) "P"])
#@43 Read news as a slave.
(fn &optional ARG)
(defalias 'gnus-slave #[256 "\300\301\302#\207" [gnus nil slave] 5 (#$ . 159796) "P"])
#@100 Delete gnus frame unless it is the only one.
Used for `gnus-exit-gnus-hook' in `gnus-other-frame'.
(defalias 'gnus-delete-gnus-frame #[0 "\301!\203 \302 A\203 \303!\210\304\211\207" [gnus-other-frame-object frame-live-p frame-list delete-frame nil] 2 (#$ . 159933)])
#@562 Pop up a frame to read news.
This will call one of the Gnus commands which is specified by the user
option `gnus-other-frame-function' (default `gnus') with the argument
ARG if Gnus is not running, otherwise pop up a Gnus frame and run the
command specified by `gnus-other-frame-resume-function'.
The optional second argument DISPLAY should be a standard display string
such as "unix:0" to specify where to pop up a frame. If DISPLAY is
omitted or the function `make-frame-on-display' is not available, the
current display is used.
(fn &optional ARG DISPLAY)
(defalias 'gnus-other-frame #[512 "\211C\305\306!\203 \211\242\204 \211\307\310 !\240\210\202 \211\311\240\210\312 \211\2057 \31327 \314\315\316\317\320\321!\322\"\323\324%\325\326#0?\205k \327\242\203I \306\242\"\202L \330!\211!\210\211\203^ \331\n!\210 !\202k \f!\210\332\333\334\"\210\332\335\334\"\262\207" [gnus-other-frame-parameters gnus-other-frame-object gnus-group-buffer gnus-other-frame-resume-function gnus-other-frame-function fboundp make-frame-on-display gnus-frame-or-window-display-name selected-frame nil gnus-alive-p found walk-windows make-byte-code 257 "\300\242\203 \300\242\303!\232\205. r\304!q\210\305\306\307 !\")\205. \310\311!\211!\210\312!\210\313\314\315\"\207" vconcat vector [major-mode gnus-other-frame-object gnus-frame-or-window-display-name window-buffer string-match "\\`gnus-" symbol-name select-frame-set-input-focus window-frame select-window throw found t] 5 "\n\n(fn WINDOW)" ignore t select-frame-set-input-focus make-frame switch-to-buffer add-hook gnus-exit-gnus-hook gnus-delete-gnus-frame gnus-suspend-gnus-hook] 11 (#$ . 160212) "P"])
#@252 Read network news.
If ARG is non-nil and a positive number, Gnus will use that as the
startup level. If ARG is non-nil and not a positive number, Gnus will
prompt the user for the name of an NNTP server to use.
(fn &optional ARG DONT-CONNECT SLAVE)
(defalias 'gnus #[768 "\302\303\"\204
\304\305\306\307#\210\310\311K!\204 \312\313!\210\314\315!\210\306C\316#\210\317 )\207" [gnus-version gnus-action-message-log string-match "^Gnus" load "gnus-load" nil t byte-code-function-p gnus message "You should byte-compile Gnus" sit-for 2 gnus-1 gnus-final-warning] 7 (#$ . 161883) "P"])
#@33 List all open Gnus bug reports.
(defalias 'gnus-list-debbugs #[0 "\300\301!\210\301\302\303\"\207" [require debbugs-gnu nil "gnus"] 3 (#$ . 162479) nil])
(provide 'gnus)
Mini Shell