| Current Path : /usr/share/emacs/24.3/lisp/gnus/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/gnus/gnus.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:11 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/gnus.el
;;; in Emacs version 24.3.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(run-hooks 'gnus-load-hook)
(byte-code "\300\301!\204
\302\301\303\304B\"\210\305\306!\210\305\307!\210\305\310!\210\311\312\313\314\315\316\315\317&\210\311\320\313\321\315\312%\210\311\322\313\323\315\312%\210\311\324\313\325\326\327\330\331\315\312& \210\311\332\313\333\326\334\315\312&\210\311\335\313\336\315\312%\210\311\337\313\340\315\320%\210\311\341\313\342\326\343\315\312&\210\311\344\313\345\326\346\315\341&\210\311\347\313\350\315\341%\210\311\351\313\352\326\353\315\341&\210\311\354\313\355\326\356\315\341&\210\311\357\313\360\326\361\315\341&\210\311\362\313\363\326\364\315\341\315\365& \210\311\366\313\367\326\370\315\341&\210\311\371\313\372\326\373\315\312&\210\311\374\313\375\326\376\315\371&\210\311\377\313\201@ \326\201A \315\371&\210\311\201B \313\201C \326\201D \315\371&\210\311\201E \313\201F \326\201G \315\371&\210\311\201H \313\201I \326\201J \315\371&\210\311\201K \313\201L \326\201M \315\371&\210\311\201N \313\201O \315\365%\210\311\201P \313\201Q \326\201R \315\371&\210\311\201S \313\201T \326\201U \315\371&\210\311\201V \313\201W \326\201X \315\365\315\371& \210\311\201Y \313\201Z \326\201[ \315\371&\210\311\201\\ \313\201] \326\201^ \201_ \201` \315\371& \210\311\201a \313\201b \326\201c \201_ \201d \315\371& \210\311\201e \313\201f \326\201g \315\201h &\210\311\201i \313\201j \315\312%\210\311\201k \313\201l \315\201i %\210\311\201m \313\201n \315\201i %\210\311\201o \313\201p \315\201i %\210\311\201q \313\201r \315\201i %\210\311\201s \313\201t \315\201i %\210\311\201u \313\201v \315\201i \315\201w &\210\311\201x \313\201y \315\201i %\210\311\365\313\201z \315\312\315\201{ &\210\311\201| \313\201} \315\312%\210\311\201w \313\201~ \315\312%\210\311\201 \313\201\200 \326\201\201 \315\201w &\210\311\201\202 \313\201\203 \315\201w %\210\311\201\204 \313\201\205 \315\312%\210\311\201\206 \313\201\207 \315\365\315\201\204 &\210\311\201\210 \201\211 \201\212 \315\312%\210\311\201\213 \313\201\214 \315\312%\210\311\201\215 \313\201\216 \326\201\217 \315\312&\210\311\201\220 \313\201\221 \326\201\222 \315\312&\210\311\201\223 \313\201\224 \326\201\225 \315\312&\207" [fboundp declare-function defalias macro #[(&rest r) "\300\207" [nil] 1] require wid-edit mm-util nnheader 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" (#$ . 6518))
#@42 Version string for this version of Gnus.
(defconst gnus-version (format "Gnus v%s" gnus-version-number) (#$ . 6615))
(byte-code "\300\301\302\303\304\305\306\307&\210\310\311!\204\207 \312\313\314\"\210\312\315\316\"\210\312\317\320\"\210\312\321\322\"\210\312\323\324\"\210\312\325\326\"\210\312\327\330\"\210\312\331\332\"\210\312\333\334\"\210\312\335\336\"\210\312\337\336\"\210\312\340\341\"\210\312\342\343\"\210\312\344\345\"\210\312\346\347\"\210\312\350\351\"\210\352\353!\210\354\355!\203s \312\356\357\"\210\202x \312\356\343\"\210\312\360\361\"\210\312\362\363\"\210\312\364\365\"\210\366\367\370\371\304\372%\210\373\374\375\367#\210\373\374\376\377#\210\366\201@ \201A \201B \304\372%\210\373\201C \375\201@ #\210\373\201C \376\377#\210\366\201D \201E \201F \304\372%\210\373\201G \375\201D #\210\373\201G \376\377#\210\366\201H \201I \201J \304\372%\210\373\201K \375\201H #\210\373\201K \376\377#\210\366\201L \201M \201N \304\372%\210\373\201O \375\201L #\210\373\201O \376\377#\210\366\201P \201Q \201R \304\372%\210\373\201S \375\201P #\210\373\201S \376\377#\210\366\201T \201U \201V \304\372%\210\373\201W \375\201T #\210\373\201W \376\377#\210\366\201X \201Y \201Z \304\372%\210\373\201[ \375\201X #\210\373\201[ \376\377#\210\366\201\\ \201] \201^ \304\372%\210\373\201_ \375\201\\ #\210\373\201_ \376\377#\210\366\201` \201a \201b \304\372%\210\373\201c \375\201` #\210\373\201c \376\377#\210\366\201d \201e \201f \304\372%\210\373\201g \375\201d #\210\373\201g \376\377#\210\366\201h \201i \201j \304\372%\210\373\201k \375\201h #\210\373\201k \376\377#\210\366\201l \201m \201n \304\372%\210\373\201o \375\201l #\210\373\201o \376\377#\210\366\201p \201q \201r \304\372%\210\373\201s \375\201p #\210\373\201s \376\377#\210\366\201t \201u \201v \304\372%\210\373\201w \375\201t #\210\373\201w \376\377#\210\366\201x \201y \201z \304\372%\210\373\201{ \375\201x #\210\373\201{ \376\377#\210\366\201| \201} \201~ \304\372%\210\373\201 \375\201| #\210\373\201 \376\377#\210\366\201\200 \201\201 \201\202 \304\372%\210\373\201\203 \375\201\200 #\210\373\201\203 \376\377#\210\366\201\204 \201\205 \201\206 \304\372%\210\373\201\207 \375\201\204 #\210\373\201\207 \376\377#\210\366\201\210 \201\211 \201\212 \304\372%\210\373\201\213 \375\201\210 #\210\373\201\213 \376\377#\210\366\201\214 \201\215 \201\216 \304\372%\210\373\201\217 \375\201\214 #\210\373\201\217 \376\377#\210\366\201\220 \201\221 \201\222 \304\372%\210\373\201\223 \375\201\220 #\210\373\201\223 \376\377#\210\366\201\224 \201\225 \201\226 \304\201\227 %\210\373\201\230 \375\201\224 #\210\373\201\230 \376\377#\210\366\201\231 \201\232 \201\233 \304\201\227 %\210\373\201\234 \375\201\231 #\210\373\201\234 \376\377#\210\366\201\235 \201\236 \201\237 \304\201\227 %\210\373\201\240 \375\201\235 #\210\373\201\240 \376\377#\210\366\201\241 \201\242 \201\243 \304\201\227 %\210\373\201\244 \375\201\241 #\210\373\201\244 \376\377#\210\366\201\245 \201\246 \201\247 \304\201\227 %\210\373\201\250 \375\201\245 #\210\373\201\250 \376\377#\210\366\201\251 \201\252 \201\253 \304\201\227 %\210\373\201\254 \375\201\251 #\210\373\201\254 \376\377#\210\366\201\255 \201\256 \201\257 \304\201\227 %\210\373\201\260 \375\201\255 #\210\373\201\260 \376\377#\210\366\201\261 \201\262 \201\263 \304\201\227 %\210\373\201\264 \375\201\261 #\210\373\201\264 \376\377#\210\366\201\265 \201\266 \201\267 \304\201\227 %\210\373\201\270 \375\201\265 #\210\373\201\270 \376\377#\210\366\201\271 \201\272 \201\273 \304\201\227 %\210\373\201\274 \375\201\271 #\210\373\201\274 \376\377#\210\366\201\275 \201\276 \201\277 \304\201\227 %\210\373\201\300 \375\201\275 #\210\373\201\300 \376\377#\210\366\201\301 \201\302 \201\303 \304\201\227 %\210\373\201\304 \375\201\301 #\210\373\201\304 \376\377#\210\366\201\305 \201\306 \201\307 \304\201\227 %\210\373\201\310 \375\201\305 #\210\373\201\310 \376\377#\210\366\201\311 \201\312 \201\313 \304\201\227 %\210\373\201\314 \375\201\311 #\210\373\201\314 \376\377#\210\366\201\315 \201\316 \201\317 \304\201\227 %\210\373\201\320 \375\201\315 #\210\373\201\320 \376\377#\210\366\201\321 \201\322 \201\323 \304\201\227 %\210\373\201\324 \375\201\321 #\210\373\201\324 \376\377#\210\366\201\325 \201\326 \201\327 \304\201\227 %\210\373\201\330 \375\201\325 #\210\373\201\330 \376\377#\207" [custom-declare-variable gnus-inhibit-startup-message nil "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 featurep gnus-xmas defalias gnus-make-overlay make-overlay gnus-delete-overlay delete-overlay gnus-overlay-get overlay-get gnus-overlay-put overlay-put gnus-move-overlay move-overlay gnus-overlay-buffer overlay-buffer gnus-overlay-start overlay-start gnus-overlay-end overlay-end gnus-overlays-in overlays-in gnus-extent-detached-p ignore gnus-extent-start-open gnus-mail-strip-quoted-names mail-strip-quoted-names gnus-character-to-event identity gnus-assq-delete-all assq-delete-all gnus-add-text-properties add-text-properties gnus-put-text-property put-text-property (lambda (#1=#:def-tmp-var) (defvar gnus-mode-line-image-cache #1#)) t fboundp find-image gnus-mode-line-buffer-identification #[(line) "\242\305 \211;\2035 \306\307\n\"\2035 \310\311\312\313 \314=\203$ \315\316!\211\202% \317\320\321\f\322 #F\n$\210\nC\2026 *\207" [line load-path str gnus-mode-line-image-cache gnus-version mm-image-load-path 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] 11] gnus-deactivate-mark deactivate-mark gnus-window-edges window-edges gnus-key-press-event-p numberp custom-declare-face gnus-group-news-1 ((((class color) (background dark)) (:foreground "PaleTurquoise" :bold t)) (((class color) (background light)) (:foreground "ForestGreen" :bold t)) (t nil)) "Level 1 newsgroup face." gnus-group put gnus-group-news-1-face face-alias obsolete-face "22.1" gnus-group-news-1-empty ((((class color) (background dark)) (:foreground "PaleTurquoise")) (((class color) (background light)) (:foreground "ForestGreen")) (t nil)) "Level 1 empty newsgroup face." gnus-group-news-1-empty-face gnus-group-news-2 ((((class color) (background dark)) (:foreground "turquoise" :bold t)) (((class color) (background light)) (:foreground "CadetBlue4" :bold t)) (t nil)) "Level 2 newsgroup face." gnus-group-news-2-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-empty-face gnus-group-news-3 ((((class color) (background dark)) (:bold t)) (((class color) (background light)) (:bold t)) (t nil)) "Level 3 newsgroup face." gnus-group-news-3-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-empty-face gnus-group-news-4 ((((class color) (background dark)) (:bold t)) (((class color) (background light)) (:bold t)) (t nil)) "Level 4 newsgroup face." gnus-group-news-4-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-empty-face gnus-group-news-5 ((((class color) (background dark)) (:bold t)) (((class color) (background light)) (:bold t)) (t nil)) "Level 5 newsgroup face." gnus-group-news-5-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-empty-face gnus-group-news-6 ((((class color) (background dark)) (:bold t)) (((class color) (background light)) (:bold t)) (t nil)) "Level 6 newsgroup face." gnus-group-news-6-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-empty-face gnus-group-news-low ((((class color) (background dark)) (:foreground "DarkTurquoise" :bold t)) (((class color) (background light)) (:foreground "DarkGreen" :bold t)) (t nil)) "Low level newsgroup face." gnus-group-news-low-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-empty-face gnus-group-mail-1 ((((class color) (background dark)) (:foreground "#e1ffe1" :bold t)) (((class color) (background light)) (:foreground "DeepPink3" :bold t)) (t (:bold t))) "Level 1 mailgroup face." gnus-group-mail-1-face gnus-group-mail-1-empty ((((class color) (background dark)) (:foreground "#e1ffe1")) (((class color) (background light)) (:foreground "DeepPink3")) (t (:italic t :bold t))) "Level 1 empty mailgroup face." gnus-group-mail-1-empty-face gnus-group-mail-2 ((((class color) (background dark)) (:foreground "DarkSeaGreen1" :bold t)) (((class color) (background light)) (:foreground "HotPink3" :bold t)) (t (:bold t))) "Level 2 mailgroup face." gnus-group-mail-2-face gnus-group-mail-2-empty ((((class color) (background dark)) (:foreground "DarkSeaGreen1")) (((class color) (background light)) (:foreground "HotPink3")) (t (:bold t))) "Level 2 empty mailgroup face." gnus-group-mail-2-empty-face gnus-group-mail-3 ((((class color) (background dark)) (:foreground "aquamarine1" :bold t)) (((class color) (background light)) (:foreground "magenta4" :bold t)) (t (:bold t))) "Level 3 mailgroup face." gnus-group-mail-3-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-empty-face gnus-group-mail-low ((((class color) (background dark)) (:foreground "aquamarine2" :bold t)) (((class color) (background light)) (:foreground "DeepPink4" :bold t)) (t (:bold t))) "Low level mailgroup face." gnus-group-mail-low-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-empty-face gnus-summary-selected ((t (:underline t))) "Face used for selected articles." gnus-summary gnus-summary-selected-face gnus-summary-cancelled ((((class color)) (:foreground "yellow" :background "black"))) "Face used for canceled articles." gnus-summary-cancelled-face gnus-summary-high-ticked ((((class color) (background dark)) (:foreground "pink" :bold t)) (((class color) (background light)) (:foreground "firebrick" :bold t)) (t (:bold t))) "Face used for high interest ticked articles." gnus-summary-high-ticked-face gnus-summary-low-ticked ((((class color) (background dark)) (:foreground "pink" :italic t)) (((class color) (background light)) (:foreground "firebrick" :italic t)) (t (:italic t))) "Face used for low interest ticked articles." gnus-summary-low-ticked-face 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-normal-ticked-face gnus-summary-high-ancient ((((class color) (background dark)) (:foreground "SkyBlue" :bold t)) (((class color) (background light)) (:foreground "RoyalBlue" :bold t)) (t (:bold t))) "Face used for high interest ancient articles." gnus-summary-high-ancient-face gnus-summary-low-ancient ((((class color) (background dark)) (:foreground "SkyBlue" :italic t)) (((class color) (background light)) (:foreground "RoyalBlue" :italic t)) (t (:italic t))) "Face used for low interest ancient articles." gnus-summary-low-ancient-face 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-normal-ancient-face gnus-summary-high-undownloaded ((((class color) (background light)) (:bold t :foreground "cyan4")) (((class color) (background dark)) (:bold t :foreground "LightGray")) (t (:inverse-video t :bold t))) "Face used for high interest uncached articles." gnus-summary-high-undownloaded-face gnus-summary-low-undownloaded ((((class color) (background light)) (:italic t :foreground "cyan4" :bold nil)) (((class color) (background dark)) (:italic t :foreground "LightGray" :bold nil)) (t (:inverse-video t :italic t))) "Face used for low interest uncached articles." gnus-summary-low-undownloaded-face 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-normal-undownloaded-face gnus-summary-high-unread ((t (:bold t))) "Face used for high interest unread articles." gnus-summary-high-unread-face gnus-summary-low-unread ((t (:italic t))) "Face used for low interest unread articles." gnus-summary-low-unread-face gnus-summary-normal-unread ((t nil)) "Face used for normal interest unread articles." gnus-summary-normal-unread-face gnus-summary-high-read ((((class color) (background dark)) (:foreground "PaleGreen" :bold t)) (((class color) (background light)) (:foreground "DarkGreen" :bold t)) (t (:bold t))) "Face used for high interest read articles." gnus-summary-high-read-face gnus-summary-low-read ((((class color) (background dark)) (:foreground "PaleGreen" :italic t)) (((class color) (background light)) (:foreground "DarkGreen" :italic t)) (t (:italic t))) "Face used for low interest read articles." gnus-summary-low-read-face 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-normal-read-face] 8)
#@34 List of buffers handled by Gnus.
(defvar gnus-buffers nil (#$ . 20813))
#@67 Do the same as `get-buffer-create', but store the created buffer.
(defalias 'gnus-get-buffer-create #[(name) "\302!\206 \303! B\211@\207" [name gnus-buffers get-buffer get-buffer-create] 2 (#$ . 20891)])
#@53 Add the current buffer to the list of Gnus buffers.
(defalias 'gnus-add-buffer #[nil "pB\211\207" [gnus-buffers] 2 (#$ . 21105)])
#@55 Kill BUFFER and remove from the list of Gnus buffers.
(defalias 'gnus-kill-buffer '(macro . #[(buffer) "\301\302DC\303BB\207" [buffer let buf ((when (gnus-buffer-exists-p buf) (setq gnus-buffers (delete (get-buffer buf) gnus-buffers)) (kill-buffer buf)))] 3 (#$ . 21243)]))
#@37 Return a list of live Gnus buffers.
(defalias 'gnus-buffers #[nil "\203 \303@!\204 \211A@\210\202 A\203; \303 \211A@)!\203/ \211A@\210\202 \211\211AA)\241\210\202 )\207" [gnus-buffers buffers x buffer-name] 3 (#$ . 21524)])
#@32 Name of the Gnus group buffer.
(defvar gnus-group-buffer "*Group*" (#$ . 21772))
(byte-code "\300\301\302\303\304\305%\210\306\307\310\301#\210\306\307\311\312#\207" [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 put gnus-splash-face face-alias obsolete-face "22.1"] 6)
(defalias 'gnus-splash #[nil "\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])
#@47 Indent rigidly using only spaces and no tabs.
(defalias 'gnus-indent-rigidly #[(start end arg) "\212\214 }\210\304\305 #\210eb\210\306\307\310\311#\205\" \312\313\311\211#\210\202 +\207" [start end tab-width arg 8 indent-rigidly search-forward " " nil t replace-match " "] 4 (#$ . 22474)])
#@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")) (#$ . 22782))
(byte-code "\301\302\303\304\305\306\307\310\"B\311\312&\207" [gnus-logo-color-alist custom-declare-variable gnus-logo-color-style 'ma "*Color styles used for the Gnus logo." :type choice mapcar #[(elem) "\301@D\207" [elem const] 2] :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) (#$ . 23651))
#@43 Insert startup message in current buffer.
(defalias 'gnus-group-startup-message #[(&optional x y) "\306 \210\307\310!\205\264 \311 \205\264 \310\312!\210\313\314!\211\203 C\202+ \315\302!\203* \302J\202+ \316\310\317\320\321\322\323\324 @B\325 \211 A@)BD\257\317\326\321\327\323\330 @B\331 \211 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\263 \345
! =\346\347\350\351\352\353 >\206\220 =A\354#\355\"]\"\210\346\356\350\351\357 \f\206\244 =@Z\355\"]\"\210\360
!\210)eb\210\361+?\205\362\363!c\210\364ed\357 \f\206\307 \365Z\350]\355\245#\210eb\210\354y\210\366ed\" ?\353 \211 @?Z A\367\350A\370\245\355_]\347\"c\210+\371ed\372\337$\210eb\210\373BPC\374\361!\207" [data-directory load-path image-load-path gnus-logo-colors x image 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 size y pheight wheight rest gnus-version mode-line-buffer-identification] 16 (#$ . 23801)])
#@49 Do color-symbol search-and-replace in svg file.
(defalias 'gnus-splash-svg-color-symbols #[(list) "\306A\307\"\306A\310\"\306A\311\"\211\312\230\203; \313\314! r\fq\210\315\216\316\n!\210\317 + \320\321 \"\210@\307 \322
F)B\202< +\207" [list color-symbols file type #1=#:temp-buffer data plist-get :type :file :color-symbols "svg" generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents buffer-string mapc #[(rule) "\302\303@P\303AP #\211\207" [rule data replace-regexp-in-string "fill:"] 4] :data] 6 (#$ . 25655)])
(byte-code "\303\304\"\305\306 \"\203 \305\307 \"\203 \310\n!\210\202 \311 \210)\312\313!\210\312\314!\210\315\316\317\320\321\322\323\324\325\326& \210\315\327\330\331\321\322\323\324\325\332& \207" [this-command 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 nil "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 'default "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)
#@607 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.
(defalias 'gnus-define-group-parameter '(macro . #[(param &rest rest) "\306\307\"\306\310\"\306\311\"\306\312\"\206 \313\314\315\f\"! \306\316\"\206% \317 @\306\320\"\2064 \313\314\321\f\"! A\306\322\"\206> \317 B\306\323\" C\306\324\"\206W \325\326\327\330\nA@EDD D\306\331\" E\332\333AEB\334\335\334\325CD\307D\257\n\336\337\340\341\325\fD\342BB\343BBE\344\345\327\325\fD\n FE \346=\203\316 \347
\350@\351\352\353\354\325\fD\355BB\356B\336\357\341\325\fD\360BBE\361B\362AD\363A\364BBDA\351\365AD\366B\367BBD\257E\257\202\373 \347
\370@\371\372\373\374\372\325\fD \205\340 \375F\351\365AD\376B\377 \203\363 \201F \202\366 \201G FEE\257\257.\n\207" [rest type parameter-type parameter-document param function 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)))) function-document variable variable-document variable-group variable-type variable-default value (if (consp value) (car value) value)] 18 (#$ . 27516)]))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\307&\210\300\313\314\315\304\305\306\316&\210\300\317\314\320\304\321\306\322&\210\300\323\324\325\304\305\304\321\306\326& \207" [custom-declare-variable gnus-home-directory "~/" "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 (or (getenv "SAVEDIR") (nnheader-concat gnus-home-directory "News/")) "*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 nil "*Default directory for all Gnus buffers." (choice (const :tag "current" nil) directory) gnus-default-nntp-server "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 "/etc/nntpserver" "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 #[nil "\302\303!\206& \304!\205& \305\306!r q\210\307\216\310!\210\311\312\313\314#\205% \315\316!+\207" [gnus-nntpserver-file #1=#:temp-buffer getenv "NNTPSERVER" file-readable-p generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents re-search-forward "[^ \n
]+" nil t match-string 0] 4 (#$ . 31611)])
(byte-code "\300\301\302\303\304\305\304\306\307\310\311\301& \210\300\312\313\314\304\305\304\315\311\316& \210\300\317\320\321\322\323\304\305\304\315\311\324& \210\300\325\326\327\322\330\304\315\311\331& \210\300\332\320\333\304\305\311\334&\210\335\332\301\330#\210\300\336\320\337\304\305\311\340&\210\300\341\320\342\304\315\311\343&\210\335\341\320\344#\210\300\345\346\347\322\330\304\305\311\350& \210\300\351\352\353\304\305\311\354&\210\300\355\356\357\304\360\304\361\311\362& \210\300\363\364\365\304\366\311\367&\210\300\370\371\372\304\306\311\373&\210\300\374\375\376\304\377\304\201@ \311\201A & \210\300\201B \320\201C \304\201D \304\306\311\324& \210\300\201E \352\201F \304\201G \311\324&\210\300\201H \320\201I \304\201G \304\201J \311\201K & \210\300\201L \201M \201N \304\201G \304\201O \311\201P & \210\300\201Q \320\201R \304\201G \311\324&\210\300\201S \201T \201U \304\201G \311\201V &\210\300\201W \320\201X \304\201G \311\324&\210\300\201Y \352\201Z \304\201G \311\324&\210\300\201[ \201\\ \201] \304\201^ \311\201_ &\210\300\201` \352\201a \304\201G \311\324&\210\300\201b \320\201c \304\201G \311\324&\210\300\201d \352\201e \304\366\311\324&\210\300\201f \352\201g \304\201h \311\201i &\210\300\201j \201k \201l \304\201m \311\201n &\210\300\201o \201p \201q \304\201r \311\201s &\210\300\201t \201u \201v \304\305\311\201w \322\330& \207" [custom-declare-variable gnus-select-method (list 'nntp (or (gnus-getenv-nntpserver) (when (and gnus-default-nntp-server (not (string= gnus-default-nntp-server ""))) gnus-default-nntp-server) "news")) "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 "archive" "*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 nil "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 '((format-time-string "sent.%Y-%m")) "*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 "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 "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 "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) "Emacs 24.1" gnus-refer-article-method 'current "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 t "*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 35 "*Process mark." gnus-group-visual gnus-summary-marks character gnus-large-newsgroup 200 "*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 (not (memq system-type '(usg-unix-v))) "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 gnus-directory "*Name of the directory where kill files will be stored (default \"~/News\")." gnus-score-files gnus-score-kill directory gnus-save-score "*If non-nil, save group scoring info." gnus-score-various gnus-use-undo "*If non-nil, allow undoing in Gnus group mode buffers." gnus-meta gnus-use-adaptive-scoring "*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 'passive "*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 "*If non-nil, display a thread tree buffer." gnus-keep-backlog 20 "*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 "*If non-nil, Gnus will mark duplicate copies of the same article as read." gnus-use-scoring "*If non-nil, enable scoring." gnus-summary-prepare-exit-hook '(gnus-summary-expire-articles) "*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 "*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 "*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 "*If non-nil, require your confirmation when catching up a group." gnus-interactive-exit "*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 'gnus-extract-address-components "*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 ";" "String used to separate shell commands." gnus-files string gnus-valid-select-methods '(("nntp" post address prompt-address physical-address) ("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) ("nnagent" post-mail) ("nnimap" post-mail address prompt-address physical-address respool server-marks) ("nnmaildir" mail respool address server-marks) ("nnnil" none)) "*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 :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 #[nil "\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 #[(entry) "\301\302\303\304@!F\207" [entry const :format "%v\n" intern] 5] ((symbol :tag "other")) ((string :tag "Address") (repeat :tag "Options" :inline t (list :format "%v" variable (sexp :tag "Value"))))] 16 (#$ . 44344)])
(byte-code "\301 \210\302\303\304\305\306\307\310\311&\210\302\312\313\314\315\316\306\307\310\317& \210\320\321\322\323#\210\302\324\325\326\306\327\306\327\310\330& \210\331\332\236\"\333\300\332\334\335E\"\207" [gnus-group-parameters-more gnus-redefine-select-method-widget custom-declare-variable gnus-updated-mode-lines '(group article summary tree) "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 30 "*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 nil "*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 add-to-list #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)
#@28 Return GROUP's to-address.
(defalias 'gnus-parameter-to-address #[(name) "\205< \305\306\307#\206< \307\211 \f\211A@\211\2030 \203 \310 @\"\203 \307 A\202 \n:\203: \n@\202; \n+\207" [name gnus-parameter-to-address-alist value elem alist gnus-group-find-parameter to-address nil string-match] 4 (#$ . 47140)])
(byte-code "\301\302\303\304\305\306\305\306\307\310& \210\311\312\236\"\313\300\312\314\315E\"\207" [gnus-group-parameters-more custom-declare-variable gnus-parameter-to-list-alist nil "*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 add-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)
#@25 Return GROUP's to-list.
(defalias 'gnus-parameter-to-list #[(name) "\205< \305\306\307#\206< \307\211 \f\211A@\211\2030 \203 \310 @\"\203 \307 A\202 \n:\203: \n@\202; \n+\207" [name gnus-parameter-to-list-alist value elem alist gnus-group-find-parameter to-list nil string-match] 4 (#$ . 48195)])
(byte-code "\301\302\303\304\305\306\305\306\307\310& \210\311\312\236\"\313\300\312\314\315E\"\207" [gnus-group-parameters-more custom-declare-variable gnus-parameter-subscribed-alist nil "*Groups which are automatically considered subscribed." :group gnus-group-parameter :type (repeat (list (regexp :tag "Group") #1=(const :tag "Subscribed" t))) delq subscribed add-to-list #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)
#@37 Return GROUP's subscription status.
(defalias 'gnus-parameter-subscribed #[(name) "\306!\307\310\n>\203 \311\202a \310\n\236\211\203 A\202a ;\203) \312 \"\202a \205a \307\211 \211A @\211\203U \2034 \312
@\"\2034 \307
A\2024 \f:\203_ \f@\202` \f+*\207" [name val params gnus-parameter-subscribed-alist value elem gnus-group-find-parameter nil subscribed t string-match alist] 3 (#$ . 49155)])
(byte-code "\301\302\303\304\305\306\305\307\310\311& \210\312\313\236\"\314\300\313\315\316E\"\207" [gnus-group-parameters-more custom-declare-variable gnus-auto-expirable-newsgroups nil "*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 add-to-list (const :tag "Automatic Expire" t) "All articles that are read will be marked as expirable."] 10)
#@47 Check whether GROUP is auto-expirable or not.
(defalias 'gnus-group-auto-expirable-p #[(name) "\306!\307\310\n>\203 \311\202a \310\n\236\211\203 A\202a ;\203) \312 \"\202a \205a \307\211 \211A @\211\203U \2034 \312
@\"\2034 \307
A\2024 \f:\203_ \f@\202` \f+*\207" [name val params gnus-auto-expirable-newsgroups value elem gnus-group-find-parameter nil auto-expire t string-match alist] 3 (#$ . 50178)])
(byte-code "\301\302\303\304\305\306\305\307\310\311& \210\312\313\236\"\314\300\313\315\316E\"\207" [gnus-group-parameters-more custom-declare-variable gnus-total-expirable-newsgroups nil "*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 add-to-list (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)
#@48 Check whether GROUP is total-expirable or not.
(defalias 'gnus-group-total-expirable-p #[(name) "\306!\307\310\n>\203 \311\202a \310\n\236\211\203 A\202a ;\203) \312 \"\202a \205a \307\211 \211A @\211\203U \2034 \312
@\"\2034 \307
A\2024 \f:\203_ \f@\202` \f+*\207" [name val params gnus-total-expirable-newsgroups value elem gnus-group-find-parameter nil total-expire t string-match alist] 3 (#$ . 51355)])
(byte-code "\301\302\303\304\305\306\305\307\310\311& \210\312\313\236\"\314\300\313\315\316E\"\207" [gnus-group-parameters-more custom-declare-variable gnus-group-charset-alist '(("\\(^\\|:\\)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)) "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 add-to-list (symbol :tag "Charset") "The default charset to use in the group."] 10)
#@38 Return the default charset of GROUP.
(defalias 'gnus-parameter-charset #[(name) "\205< \305\306\307#\206< \307\211 \f\211A@\211\2030 \203 \310 @\"\203 \307 A\202 \n:\203: \n@\202; \n+\207" [name gnus-group-charset-alist value elem alist gnus-group-find-parameter charset nil string-match] 4 (#$ . 52901)])
(byte-code "\301\302\303\304\305\306\305\307\310\311& \210\312\313\236\"\314\300\313\315\316E\"\207" [gnus-group-parameters-more custom-declare-variable gnus-post-method-alist nil "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 add-to-list #1# "Posting method for this group."] 10)
#@36 Return a posting method for GROUP.
(defalias 'gnus-parameter-post-method #[(name) "\2052 \305\306\307#\2062 \310\211 \f\211A@\211\2030 \203 \311 @\"\203 \310 A\202 \n+\207" [name gnus-post-method-alist value elem alist gnus-group-find-parameter post-method t nil string-match] 4 (#$ . 53873)])
(byte-code "\301\302\303\304\305\306\305\306\307\310& \210\311\312\236\"\313\300\312\314\315E\"\207" [gnus-group-parameters-more custom-declare-variable gnus-parameter-large-newsgroup-initial-alist nil "*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 add-to-list #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)
#@57 Return GROUP's initial input of the number of articles.
(defalias 'gnus-parameter-large-newsgroup-initial #[(name) "\2052 \305\306\307#\2062 \310\211 \f\211A@\211\2030 \203 \311 @\"\203 \310 A\202 \n+\207" [name gnus-parameter-large-newsgroup-initial-alist value elem alist gnus-group-find-parameter large-newsgroup-initial t nil string-match] 4 (#$ . 54911)])
(byte-code "\301\302\303\304\305\306\305\307\310\311& \210\312\313\236\"\314\300\313\315\316E\"\207" [gnus-group-parameters-more custom-declare-variable gnus-registry-ignored-groups (mapcar (lambda (g) (list g t)) '("delayed$" "drafts$" "queue$" "INBOX$" "^nnmairix:" "^nnir:" "archive")) "*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 add-to-list (boolean :tag "Group Ignored by the Registry") "Whether the Gnus Registry should ignore this group."] 10)
#@55 Whether this group should be ignored by the registry.
(defalias 'gnus-parameter-registry-ignore #[(name) "\2052 \305\306\307#\2062 \310\211 \f\211A@\211\2030 \203 \311 @\"\203 \310 A\202 \n+\207" [name gnus-registry-ignored-groups value elem alist gnus-group-find-parameter registry-ignore t nil string-match] 4 (#$ . 55912)])
(byte-code "\302\300\303\304\305\306\307\310\311\312& \210\203 \313\303!\210\314\315!\210\302\316\317\320\311\321\311\322\307\323& \210\324\325 \236 \"\326\301\325\327\330E\"\210\331\332\333\"\210\302\334\317\335\311\321\311\322\307\336& \210\324\337 \236 \"\326\301\337\340\335E\"\210\331\341\342\"\210\302\343\317\344\311\321\311\322\307\345& \210\324\346 \236 \"\326\301\346\340\344E\"\210\331\347\350\"\210\351\352!\210\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\302\201C \317\201D \311\321\311\322\307\201E & \210\324\201F \236 \"\326\301\201F \201G \201H E\"\210\331\201I \201J \"\210\302\201K \317\201L \311\321\311\322\307\201M & \210\324\201N \236 \"\326\301\201N \201O \201P E\"\210\331\201Q \201R \"\210\302\201S \317\201T \311\321\311\322\307\201U & \210\324\201V \236 \"\326\301\201V \201W \201X E\"\210\331\201Y \201Z \"\210\302\201[ \317\201\\ \311\321\311\322\307\201] & \210\324\201^ \236 \"\326\301\201^ \201_ \201` E\"\210\331\201a \201b \"\210\302\201c \317\201d \311\321\311\322\307\201e & \210\324\201f \236 \"\326\301\201f \201g \201h E\"\210\331\201i \201j \"\210\302\201k \201l \201m \311\321\311\322\307\201n & \210\324\201o \236 \"\326\301\201o \201p \201q E\"\210\331\201r \201s \"\210\302\201t \201u \201v \311\321\311\322\307\201w & \210\324\201x \236 \"\326\301\201x \201y \201z E\"\210\331\201{ \201| \"\210\302\201} \201~ \201 \311\201\200 \307\201\201 &\210\302\201\202 \317\201\203 \311\201\204 \307\310&\210\302\201\205 \317\201\206 \311\312\307\201\207 &\210\302\201\210 \201\211 \201\212 \311\201\213 \201\214 \201\215 \307\201\207 & \210\302\201\216 \317\201\217 \311\201\204 \307\201\220 &\210\302\201\221 \201\222 \201\223 \311\201\224 \311\201\221 \307\201\225 & \207" [gnus-install-group-spam-parameters gnus-group-parameters-more custom-declare-variable t "*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.")) (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 nil "*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 add-to-list (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 #[#2=(name) "\2052 \305\306\307#\2062 \310\211 \f\211A@\211\2030 \203 \311 @\"\203 \310 A\202 \n+\207" [name gnus-spam-newsgroup-contents value elem alist gnus-group-find-parameter spam-contents t nil string-match] 4 "The spam type (spam, ham, or neither) of the group."] gnus-spam-resend-to "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 #[#2# "\2052 \305\306\307#\2062 \310\211 \f\211A@\211\2030 \203 \311 @\"\203 \310 A\202 \n+\207" [name gnus-spam-resend-to value elem alist gnus-group-find-parameter spam-resend-to t nil string-match] 4 "The address to get spam resent (through spam-report-resend)."] gnus-ham-resend-to "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 #[#2# "\2052 \305\306\307#\2062 \310\211 \f\211A@\211\2030 \203 \311 @\"\203 \310 A\202 \n+\207" [name gnus-ham-resend-to value elem alist gnus-group-find-parameter ham-resend-to t nil string-match] 4 "The address to get ham resent (through spam-report-resend)."] (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 "*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 #[#2# "\2052 \305\306\307#\2062 \310\211 \f\211A@\211\2030 \203 \311 @\"\203 \310 A\202 \n+\207" [name gnus-spam-process-newsgroups value elem alist gnus-group-find-parameter spam-process t nil string-match] 4 "Which spam or ham processors will be applied when the summary is exited."] gnus-spam-autodetect "*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 #[#2# "\2052 \305\306\307#\2062 \310\211 \f\211A@\211\2030 \203 \311 @\"\203 \310 A\202 \n+\207" [name gnus-spam-autodetect value elem alist gnus-group-find-parameter spam-autodetect t nil string-match] 4 "Should spam be autodetected (with spam-split) in this group?"] gnus-spam-autodetect-methods "*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 #[#2# "\2052 \305\306\307#\2062 \310\211 \f\211A@\211\2030 \203 \311 @\"\203 \310 A\202 \n+\207" [name gnus-spam-autodetect-methods value elem alist gnus-group-find-parameter spam-autodetect-methods t nil string-match] 4 "Methods to be used for autodetection in each group"] gnus-spam-process-destinations "*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 #[#2# "\2052 \305\306\307#\2062 \310\211 \f\211A@\211\2030 \203 \311 @\"\203 \310 A\202 \n+\207" [name gnus-spam-process-destinations value elem alist gnus-group-find-parameter spam-process-destination t nil string-match] 4 "Where spam-processed articles will go at summary exit."] gnus-ham-process-destinations "*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 #[#2# "\2052 \305\306\307#\2062 \310\211 \f\211A@\211\2030 \203 \311 @\"\203 \310 A\202 \n+\207" [name gnus-ham-process-destinations value elem alist gnus-group-find-parameter ham-process-destination t nil string-match] 4 "Where ham articles will go at summary exit from a spam group."] gnus-parameter-ham-marks-alist '((".*" ((gnus-del-mark gnus-read-mark gnus-killed-mark gnus-kill-file-mark gnus-low-score-mark)))) "*Groups in which to explicitly set the ham marks to some value." (repeat (list #4=(regexp :tag "Group") #3=(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 #3# "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 #[#2# "\2052 \305\306\307#\2062 \310\211 \f\211A@\211\2030 \203 \311 @\"\203 \310 A\202 \n+\207" [name gnus-parameter-ham-marks-alist value elem alist gnus-group-find-parameter ham-marks t nil string-match] 4 #6=""] gnus-parameter-spam-marks-alist '((".*" ((gnus-spam-mark)))) "*Groups in which to explicitly set the spam marks to some value." (repeat (list #4# #5=(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 #5# "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 #[#2# "\2052 \305\306\307#\2062 \310\211 \f\211A@\211\2030 \203 \311 @\"\203 \310 A\202 \n+\207" [name gnus-parameter-spam-marks-alist value elem alist gnus-group-find-parameter spam-marks t nil string-match] 4 #6#] gnus-group-uncollapsed-levels 1 "Number of group name elements to leave alone when making a short group name." gnus-group-visual integer gnus-group-use-permanent-levels "*If non-nil, once you set a level, Gnus will use this level." gnus-group-levels gnus-load-hook "A hook run while Gnus is loaded." hook gnus-apply-kill-hook '(gnus-apply-kill-file) "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 "Function run when a group level is changed.\nIt is called with three parameters -- GROUP, LEVEL and OLDLEVEL." (choice (const nil) function) gnus-visual '(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) "*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)
(defalias 'gnus-visual-p #[(&optional type class) "\205 \204\n \207<\203 >\206 \n>\207\303\207" [gnus-visual type class t] 2])
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\313\306\314&\207" [custom-declare-variable gnus-mouse-face (condition-case nil (if (gnus-visual-p 'mouse-face 'highlight) (if (boundp 'gnus-mouse-face) (or gnus-mouse-face 'highlight) 'highlight) 'default) (error 'highlight)) "*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 gnus-directory "*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 (#$ . 79323))
(byte-code "\301\302\303\304\305\306\307\310\311\312& \210\301\313\314\315\311\316\307\317&\210\301\310\303\320\305\306\307\310\311\312& \210\301\321\322\323\307\324\311\325&\210\301\326\327\330\307\324\311\331&\210\301\300\332\333\305\306\307\334\311\335& \2109\203\230 \336=\203W \337\202v \340=\203a \341\202v \342=\203k \343\202v \344=\203u \345\202v \334\346\347#\210\350\346!\210\300\351N\203\217 \352\300\"\210\202\230 \334\346\353\"\210\350\354!\210\327\207" [gnus-user-agent custom-declare-variable gnus-agent-cache t "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 'undecided "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 "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 'gnus "Function called by the command `gnus-other-frame'." gnus-start (choice (function-item gnus) (function-item gnus-no-server) (function-item gnus-slave) (function-item gnus-slave-no-server)) gnus-other-frame-parameters nil "Frame parameters used by `gnus-other-frame' to create a Gnus frame.\nThis should be an alist for Emacs, or a plist for XEmacs." (repeat (cons :format "%v" (symbol :tag "Parameter") (sexp :tag "Value"))) '(emacs gnus type) "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)) emacs-gnus-config (emacs gnus config) emacs-gnus-type (emacs gnus type) emacs-gnus (emacs gnus) 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 (#$ . 82791))
#@81 A list of servers, NOT methods, showing which servers are covered by the agent.
(defvar gnus-agent-covered-methods nil (#$ . 82883))
#@68 Dynamically bound variable that says what the current back end is.
(defvar gnus-command-method nil (#$ . 83022))
#@47 The current method for selecting a newsgroup.
(defvar gnus-current-select-method nil (#$ . 83141))
#@47 Buffer where Gnus thread trees are displayed.
(defvar gnus-tree-buffer "*Tree*" (#$ . 83246))
(defvar gnus-method-history nil)
(defvar gnus-mail-method-history nil)
(defvar gnus-group-history nil)
#@28 List of available servers.
(defvar gnus-server-alist nil (#$ . 83449))
#@54 *The directory where cached articles will be stored.
(custom-declare-variable 'gnus-cache-directory '(nnheader-concat gnus-directory "cache/") '(#$ . -83526) :group 'gnus-cache :type 'directory)
#@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) (#$ . 83727))
(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)))
(defconst gnus-article-special-mark-lists '((seen 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) (#$ . 84443))
(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)" (#$ . 85010))
#@43 The package to use in the bug submission.
(defconst gnus-bug-package "gnus" (#$ . 85157))
#@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")) (#$ . 85253))
(defvar gnus-group-buffer "*Group*")
(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 (#$ . 85756))
#@52 Whether this Gnus is running in batch mode or not.
(defvar gnus-batch-mode nil (#$ . 85836))
#@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) (#$ . 85935))
#@106 Assoc list of read articles.
`gnus-newsrc-hashtb' should be kept so that both hold the same information.
(defvar gnus-newsrc-alist nil (#$ . 86213))
#@82 Assoc list of registry data.
gnus-registry.el will populate this if it's loaded.
(defvar gnus-registry-alist nil (#$ . 86368))
#@35 Hashtable of `gnus-newsrc-alist'.
(defvar gnus-newsrc-hashtb nil (#$ . 86501))
#@28 List of killed newsgroups.
(defvar gnus-killed-list nil (#$ . 86586))
#@46 Hash table equivalent of `gnus-killed-list'.
(defvar gnus-killed-hashtb nil (#$ . 86662))
#@33 List of almost dead newsgroups.
(defvar gnus-zombie-list nil (#$ . 86758))
#@29 Descriptions of newsgroups.
(defvar gnus-description-hashtb nil (#$ . 86839))
#@64 List of newsgroups that have recently been killed by the user.
(defvar gnus-list-of-killed-groups nil (#$ . 86923))
#@31 Hashtable of active articles.
(defvar gnus-active-hashtb nil (#$ . 87045))
#@36 Hashtable of moderated newsgroups.
(defvar gnus-moderated-hashtb nil (#$ . 87126))
(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 "[: `'\"/]\\|^$" (#$ . 87317))
#@61 A frame object which will be created by `gnus-other-frame'.
(defvar gnus-other-frame-object nil (#$ . 87420))
(byte-code "\300\301\302\"\210\303\304\305\306\307\310\311\312\313\314& \207" [mapc #[(package) "\302>A@\303\304A@\302=\203 \305\233\202 A\")\207" [package interactive :interactive mapcar #[(function) "\304 :\203 \300 >@ @\305 !?\205 \306 \n@\304 %)\207" [keymap function package interactive nil fboundp autoload] 6] 3] 4] (("info" :interactive t Info-goto-node) ("pp" pp-to-string) ("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-range" gnus-copy-sequence) ("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 "%U%R%z%I%(%[%4L: %-23,23f%]%) %s\n" "*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-summary-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)
(defalias 'gnus-suppress-keymap #[(keymap) "\302!\210\303 \205 \304 \211A@\305#\210\202 )\207" [keymap keys suppress-keymap ([backspace] [delete] "" "\365") define-key undefined] 4])
(defvar gnus-article-mode-map (byte-code "\301 \302!\210)\207" [keymap make-sparse-keymap gnus-suppress-keymap] 2))
(defvar gnus-summary-mode-map (byte-code "\301 \302!\210)\207" [keymap make-keymap gnus-suppress-keymap] 2))
(defvar gnus-group-mode-map (byte-code "\301 \302!\210)\207" [keymap make-keymap gnus-suppress-keymap] 2))
(byte-code "\300\301\302\"\210\300\303\302\"\207" [defalias gnus-summary-position-point gnus-goto-colon gnus-group-position-point] 3)
(defalias 'gnus-header-from #[(header) "\301H\207" [header 2] 2])
#@40 Get hash value of STRING in HASHTABLE.
(defalias 'gnus-gethash '(macro . #[(string hashtable) "\302\303 ED\207" [string hashtable symbol-value intern-soft] 4 (#$ . 100400)]))
#@67 Get hash value of STRING in HASHTABLE.
Return nil if not defined.
(defalias 'gnus-gethash-safe '(macro . #[(string hashtable) "\302\303\304 EDC\305BB\207" [string hashtable let sym intern-soft ((and (boundp sym) (symbol-value sym)))] 5 (#$ . 100582)]))
#@62 Set hash value. Arguments are STRING, VALUE, and HASHTABLE.
(defalias 'gnus-sethash '(macro . #[(string value hashtable) "\303\304 E\nE\207" [string hashtable value set intern] 4 (#$ . 100842)]))
(put 'gnus-sethash 'edebug-form-spec '(form form form))
#@64 Get the currently computed number of unread articles in GROUP.
(defalias 'gnus-group-unread '(macro . #[(group) "\301\302\303BBD\207" [group car gnus-gethash (gnus-newsrc-hashtb)] 4 (#$ . 101102)]))
#@33 Get the newsrc entry for GROUP.
(defalias 'gnus-group-entry '(macro . #[(group) "\301\302BB\207" [group gnus-gethash (gnus-newsrc-hashtb)] 3 (#$ . 101308)]))
#@27 Get active info on GROUP.
(defalias 'gnus-active '(macro . #[(group) "\301\302BB\207" [group gnus-gethash (gnus-active-hashtb)] 3 (#$ . 101473)]))
#@26 Set GROUP's active info.
(defalias 'gnus-set-active '(macro . #[(group active) "\302 \303BBB\207" [group active gnus-sethash (gnus-active-hashtb)] 4 (#$ . 101627)]))
(defalias 'gnus-info-group '(macro . #[(info) "\301\302E\207" [info nth 0] 3]))
(defalias 'gnus-info-rank '(macro . #[(info) "\301\302E\207" [info nth 1] 3]))
(defalias 'gnus-info-read '(macro . #[(info) "\301\302E\207" [info nth 2] 3]))
(defalias 'gnus-info-marks '(macro . #[(info) "\301\302E\207" [info nth 3] 3]))
(defalias 'gnus-info-method '(macro . #[(info) "\301\302E\207" [info nth 4] 3]))
(defalias 'gnus-info-params '(macro . #[(info) "\301\302E\207" [info nth 5] 3]))
(defalias 'gnus-info-level '(macro . #[(info) "\301\302\303DDC\304BB\207" [info let rank gnus-info-rank ((if (consp rank) (car rank) rank))] 4]))
(defalias 'gnus-info-score '(macro . #[(info) "\301\302\303DDC\304BB\207" [info let rank gnus-info-rank ((or (and (consp rank) (cdr rank)) 0))] 4]))
(defalias 'gnus-info-set-group '(macro . #[(info group) "\302 E\207" [info group setcar] 3]))
(defalias 'gnus-info-set-rank '(macro . #[(info rank) "\302\303\304E E\207" [info rank setcar nthcdr 1] 4]))
(defalias 'gnus-info-set-read '(macro . #[(info read) "\302\303\304E E\207" [info read setcar nthcdr 2] 4]))
(defalias 'gnus-info-set-marks '(macro . #[(info marks &optional extend) "\203\f \303 \n\304BBB\207\305\306\307 E\nE\207" [extend info marks gnus-info-set-entry (3) setcar nthcdr 3] 4]))
(defalias 'gnus-info-set-method '(macro . #[(info method &optional extend) "\203\f \303 \n\304BBB\207\305\306\307 E\nE\207" [extend info method gnus-info-set-entry (4) setcar nthcdr 4] 4]))
(defalias 'gnus-info-set-params '(macro . #[(info params &optional extend) "\203\f \303 \n\304BBB\207\305\306\307 E\nE\207" [extend info params gnus-info-set-entry (5) setcar nthcdr 5] 4]))
(defalias 'gnus-info-set-entry #[(info entry number) "G X\203 \303C\244\210\202 \233\n\240\207" [info number entry nil] 2])
(defalias 'gnus-info-set-level '(macro . #[(info level) "\302\303\304DDC\305\306\307\310 E\307\303 EFE\207" [info level let rank cdr if (consp (car rank)) setcar (car rank)] 8]))
(defalias 'gnus-info-set-score '(macro . #[(info score) "\302\303\304DDC\305\306\307\310 E\311\303\312\313 EEFE\207" [info score let rank cdr if (consp (car rank)) setcdr (car rank) setcar cons (car rank)] 10]))
(defalias 'gnus-get-info '(macro . #[(group) "\301\302\303\304BBE\207" [group nth 2 gnus-gethash (gnus-newsrc-hashtb)] 5]))
(defalias 'gnus-set-info #[(group info) "\303 \"JAA\n\240\207" [group gnus-newsrc-hashtb info intern-soft] 3])
(require 'gnus-ems)
(defvar gnus-shutdown-alist nil)
#@52 Run FUNCTION whenever one of SYMBOLS is shut down.
(defalias 'gnus-add-shutdown #[(function &rest symbols) " B\nB\211\207" [function symbols gnus-shutdown-alist] 2 (#$ . 104281)])
#@45 Shut down everything that waits for SYMBOL.
(defalias 'gnus-shutdown #[(symbol) "\304\211\205 \n@ A>\203 @ \210\nA\211\204 \304*\207" [gnus-shutdown-alist entry --dolist-tail-- symbol nil] 3 (#$ . 104469)])
#@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 #[nil "\306\211\211 A\306 \211 \2039
@\211@\307\n!\2032 \310\311\n\312\"\206' \311\n\313\"!\211\2032 \314\300 \"\210
A\211\204 *\205D \315\316\317#C+\207" [addresses address group gnus-newsrc-alist entry --dolist-tail-- nil gnus-parameter-subscribed mail-strip-quoted-names gnus-group-fast-parameter to-address to-list add-to-list mapconcat regexp-quote "\\|"] 5 (#$ . 104693)])
#@113 Return the first element of STRINGS that is a non-blank string.
STRINGS will be evaluated in normal `or' order.
(defalias 'gnus-string-or '(macro . #[(&rest strings) "\301\302BD\207" [strings gnus-string-or-1 list] 3 (#$ . 105302)]))
(defalias 'gnus-string-or-1 #[(strings) "\302 \203 \211A@\303\304\"\203 \302\202 \302\211\204 )\207" [string strings nil string-match "^[ ]*$"] 4])
#@73 Version number of this version of Gnus.
If ARG, insert string at point.
(defalias 'gnus-version #[(&optional arg) "\203 \302 !c\207\302 !\207" [arg gnus-version message] 2 (#$ . 105704) "P"])
#@44 Return VERSION as a floating point number.
(defalias 'gnus-continuum-version #[(&optional version) "\204 \306\307\"\204 \306\310\"\205\205 \311\224\205 \312\311\"\312\313\"\314\211\211 \306\315
\"\2046 \316\317\"\210\320\312\311
\"!\320\312\313
\"!\321\224\203R \320\312\321
\"!\202S \322\320\323\f!\203} \324\325 \326\235\203h \327\202w \330\331\332\333 \227\322H\334Z!_\335# \n$\202\203 \324\336\f \n$!-\207" [version gnus-version least minor major number 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 zerop format "%s00%02d%02d" ("(ding)" "d") "4.99" + 5 0.02 abs 116 -0.01 "%d.%02d%02d" alpha] 9 (#$ . 105904)])
#@34 Find Info documentation of Gnus.
(defalias 'gnus-info-find-node #[(&optional nodename) "\305\306 \206 \n \236\211 A@)!\210p\307\310!)\207" [gnus-info-buffer nodename major-mode gnus-info-nodes x nil Info-goto-node gnus-configure-windows info] 4 (#$ . 106707) nil])
#@24 Current prefix symbol.
(defvar gnus-current-prefix-symbol nil (#$ . 106981))
#@33 List of current prefix symbols.
(defvar gnus-current-prefix-symbols nil (#$ . 107064))
#@260 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.
(defalias 'gnus-interactive #[(string &optional params) "\306\307\211\211 \fGW\203\314\310\311\f #\210\f H\312\225\203# \313\312\f\"\306\225 \314U\2035 \315
\316\317$\202\240 \320U\203C \321p\317#\202\240 \322U\203R \321\323p!\"\202\240 \324U\203] \325 \202\240 \326U\203l \315
\327\317$\202\240 \330U\203v `\202\240 \331U\203\206 \332\307@\333$\202\240 \334U\203\225 \335\307\211\333$\202\240 \336U\203\241 \335!\202\240 \337U\203\255 \340!\202\240 \341U\203\271 \342\343!\202\240 \344U\203\305 \342\343!\202\240 \345U\203\320 \346 \202\240 \347U\203\334 \342\343!\202\240 \350U\203\352 \351\352!!\202\240 \353U\203\367 \354A!\202\240 \355U\203A\202\240 \356U\203\f\357\202\240 \360U\203\361!\202\240 \362U\203&\363\361!!\202\240 \364U\2032\365!\202\240 \366U\203>\367!\202\240 \366U\203J\370!\202\240 \371U\203UB\202\240 \372U\203`C\202\240 \373U\203k\374 \202\240 \375U\203\204\376 \210\377`\201D \"\206\240\201E \202\240 \201F U\203\233\201G \201H \201I !!\202\240\342\201J !\nB \356U\203 `\346 W\203\264`\202\266\346 \nB`\346 V\203\304`\202\306\346 \nB\202 \201K \357\n\"\211\237,\207" [prompt c out i string obarray 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 default-directory current-prefix-arg gnus-current-prefix-symbol gnus-current-prefix-symbols gnus-number gnus-summary-last-subject 72 gnus-data-header gnus-data-find gnus-summary-article-number "Non-implemented spec" delq] 6 (#$ . 107158)])
#@67 Read a symbolic argument and a command, and then execute command.
(defalias 'gnus-symbolic-argument #[(&optional arg) "\305 \211\306\211\306 \232\203* \307\310\311\305 !\"\210\312\313\314 !!\fB\315\306\316\"\202 \f\237\211@\317\320 \316\"!-\207" [in-command command gnus-current-prefix-symbols gnus-current-prefix-symbol syms this-command-keys nil message "%s-" key-description intern char-to-string read-char read-key-sequence t call-interactively key-binding] 5 (#$ . 109384) "P"])
#@109 Check whether GROUP supports function FUNC.
GROUP can either be a string (a group name) or a select method.
(defalias 'gnus-check-backend-function #[(func group) "\300\301\302\217\207" [nil (byte-code ";\203\f \303!@\202
\304 !\204 \305 !\210\306\307\310\311 \n#!!)\207" [group method func gnus-find-method-for-group featurep require fboundp intern format "%s-%s"] 6) ((error))] 3 (#$ . 109886)])
(put 'gnus-check-backend-function 'byte-optimizer 'byte-compile-inline-expand)
#@175 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.
(defalias 'gnus-group-read-only-p #[(&optional group) "\206 \303\304\305\306\217+?\207" [group gnus-newsgroup-name func request-replace-article nil (byte-code ";\203\f \303!@\202
\304 !\204 \305 !\210\306\307\310\311 \n#!!)\207" [group method func gnus-find-method-for-group featurep require fboundp intern format "%s-%s"] 6) ((error))] 3 (#$ . 110375)])
#@38 Say whether GROUP is virtual or not.
(defalias 'gnus-virtual-group-p #[(group) "\302\303\304\305!@! \">\207" [group gnus-valid-select-methods virtual assoc symbol-name gnus-find-method-for-group] 5 (#$ . 110923)])
#@64 Return non-nil if GROUP (and ARTICLE) come from a news server.
(defalias 'gnus-news-group-p #[(group &optional article) "\302\303\"\203 \304\207\302\305\"\204 \306\207\307 !\203! \310 \311H\"\312=\207 \204+ \310!\312=\207 \313W\2033 \306\207\310 \"\312=\207" [group article gnus-member-of-valid post t post-mail nil vectorp gnus-request-type 4 news 0] 4 (#$ . 111144)])
(defalias 'gnus-use-long-file-name #[(symbol) "\205 <?\206 >?\207" [gnus-use-long-file-name symbol] 2])
(defalias 'gnus-generate-new-group-name #[(leaf) "\304\305\n \"J\203 \306\307 T\211!\310R\202 \n*\207" [leaf num name gnus-newsrc-hashtb 0 intern-soft "<" int-to-string ">"] 5])
#@40 Say whether GROUP is ephemeral or not.
(defalias 'gnus-ephemeral-group-p #[(group) "\301\302\303#\207" [group gnus-group-get-parameter quit-config t] 4 (#$ . 111823)])
#@34 Return the quit-config of GROUP.
(defalias 'gnus-group-quit-config #[(group) "\301\302\303#\207" [group gnus-group-get-parameter quit-config t] 4 (#$ . 111998)])
#@50 Remove ephemeral GROUP from relevant structures.
(defalias 'gnus-kill-ephemeral-group #[(group) "\302 \"\303L\207" [group gnus-newsrc-hashtb intern nil] 3 (#$ . 112167)])
#@32 Make mode lines a bit simpler.
(defalias 'gnus-simplify-mode-line #[nil "A\n<\205 \303\302!\210\304\n!\305\n8\306\232\205 \305\n\233\307\240\207" [gnus-mode-line-modified mode-line-modified mode-line-format make-local-variable copy-sequence 3 " " " "] 2 (#$ . 112345)])
(defalias 'gnus-server-add-address #[(method) "\303@!\304\305 \n\">\2031 \306 \307P!\236\2041 \310@\n\236>\2031 \311\306 \307P!A@DC\"\2022 )\207" [method method-name gnus-valid-select-methods symbol-name address assoc intern "-address" physical-address append] 5])
(put 'gnus-server-add-address 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'gnus-method-to-server #[(method &optional nocache no-enter-cache) "\300\301\215\207" [server-name (byte-code "\206 \n\204 \306\307 \"\210\306\310\f
D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204V \204V \315@ \"\204V B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5)] 2])
(put 'gnus-method-to-server 'byte-optimizer 'byte-compile-inline-expand)
#@45 Map virtual server names to select methods.
(defalias 'gnus-server-to-method #[(server) "\203
<\203
\206\350 \306 \"A\206\350 \307\232\203 \n\206\321 \306 \"A\206\321 \306\f\"A\206\321
\203U \310\311@@@@@A@#\232\204U \211A@\210\2022 \211 @@*\206\321 \203\211 \310\311\211 @@)@A@#\232\204\211 \211A@\210\202d @)\206\321 A\312\211 \203\316 \313\211A@8\211;\204\233 \312\314 \315\316\215+\232\203\233 \312\211\204\240 +\211 \203\345 \306 \"\204\345 B B)\207" [server 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 (byte-code "\206 \n\204 \306\307 \"\210\306\310\f
D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204V \204V \315@ \"\204V B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache result] 6 (#$ . 113840)])
(put 'gnus-server-to-method 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'gnus-server-get-method #[(group method) ";\203\355 \211\203 <\203 \206\353 \306 \n\"A\206\353 \307\232\203& \206\324 \306 \f\"A\206\324 \306
\"A\206\324 \203] \310\311@@@@@A@#\232\204] \211A@\210\202: \211 @@*\206\324 \203\221 \310\311\211 @@)@A@#\232\204\221 \211A@\210\202l @)\206\324 A\312\211 \203\321 \313 \211A @8\211;\204\242 \312\314 \315\316\215+\232\203\242 \312\211 \204\247 +\211 !\203\350 \306 \n\"\204\350 !B\nB!))\207 \232\203\365 \207@;\203\"\203\317\"\"\207\203 \"\204 \211 A@)\320\232\203 \207\321@! #\322\306#$\">\203V\323#\324P!\236\204V\325@$\236>\203V\326\323#\324P!A@DC\"\202W*\207" [method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 t server-name (byte-code "\206 \n\204 \306\307 \"\210\306\310\f
D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204V \204V \315@ \"\204V B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil #1="") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) gnus-server-extend-method #1# symbol-name address intern "-address" physical-address append gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match alist no-enter-cache nocache result group method-name gnus-valid-select-methods] 6])
(put 'gnus-server-get-method 'byte-optimizer 'byte-compile-inline-expand)
#@36 Say whether two servers are equal.
(defalias 'gnus-method-equal '(macro . #[(ss1 ss2) "\302\303D\304 DD\305BB\207" [ss1 ss2 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)))))] 4 (#$ . 117343)]))
(defalias 'gnus-methods-equal-p #[(m1 m2) "\206 \n\206\n \211\n\232\206. @\n@=\205. \304\305\306@! \">?\206. A@\nA@\232*\207" [m1 gnus-select-method m2 gnus-valid-select-methods address assoc symbol-name] 5])
(defalias 'gnus-sloppily-equal-method-parameters #[(m1 m2) "\306\211AA)!\306\n\211AA)!\307\211 \n\310\311\215,\207" [m1 x m2 e2 e1 p2 copy-sequence nil --cl-block-nil-- (byte-code "\211A@\211\203w @\n\236\211\204 \306\307\310\"\210\311 \n\" \232\204 \211 A@);\2037 \211 A@);\204? \306\307\310\"\210\202 \211 A@) \211 A@)
\312\313
\"\203\\ \314
!
\312\313
\"\203g \314
!
\232\204s \306\307\310\"\210*\202 \n?\207" [p1 e1 p2 e2 x s2 throw --cl-block-nil-- nil delq string-match "/$" directory-file-name s1] 4) p1] 5])
(put 'gnus-sloppily-equal-method-parameters 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'gnus-method-ephemeral-p #[(method) "\306 \306\211\203@ @\f\n \307 \211 \fAA)!\307
\211 \fAA)!\306\211
\310\311\215.\2039 \312 A\211\204\n *)\207" [equal gnus-ephemeral-servers ephemeral --dolist-tail-- method m2 nil copy-sequence --cl-block-nil-- (byte-code "\211A@\211\203w @\n\236\211\204 \306\307\310\"\210\311 \n\" \232\204 \211 A@);\2037 \211 A@);\204? \306\307\310\"\210\202 \211 A@) \211 A@)
\312\313
\"\203\\ \314
!
\312\313
\"\203g \314
!
\232\204s \306\307\310\"\210*\202 \n?\207" [p1 e1 p2 e2 x s2 throw --cl-block-nil-- nil delq string-match "/$" directory-file-name s1] 4) t m1 x e2 e1 p2 p1] 5])
(defalias 'gnus-methods-sloppily-equal #[(m1 m2) " =\206> @ @=\205> \211A@) \211A@)\232\205> \306\211AA)!\306 \211AA)!\307\211 \n\310\311\215.\207" [m1 m2 x e2 e1 p2 copy-sequence nil --cl-block-nil-- (byte-code "\211A@\211\203w @\n\236\211\204 \306\307\310\"\210\311 \n\" \232\204 \211 A@);\2037 \211 A@);\204? \306\307\310\"\210\202 \211 A@) \211 A@)
\312\313
\"\203\\ \314
!
\312\313
\"\203g \314
!
\232\204s \306\307\310\"\210*\202 \n?\207" [p1 e1 p2 e2 x s2 throw --cl-block-nil-- nil delq string-match "/$" directory-file-name s1] 4) p1] 5])
#@36 Say whether two methods are equal.
(defalias 'gnus-server-equal #[(m1 m2) "\204 \202\375 ;\203\374 \211\203 \n<\203 \n\206\370 \306\n \"A\206\370 \n\307\232\203. \206\341 \306\n\f\"A\206\341 \306\n
\"A\206\341 \203e \n\310\311@@@@@A@#\232\204e \211A@\210\202B \211 @@*\206\341 \203\231 \n\310\311\211 @@)@A@#\232\204\231 \211A@\210\202t @)\206\341 A\312\211 \203\336 \313\211A@8\211;\204\253 \n\312\314 \315\316\215+\232\203\253 \312\211\204\260 +\211 \203\365 \306\n \"\204\365 \nB B))\202\375 \204 \202\376;\203\374\211\203 \n<\203 \n\206\370\306\n \"A\206\370\n\307\232\203. \206\341\306\n\f\"A\206\341\306\n
\"A\206\341 \203e\n\310\311@@@@@A@#\232\204e\211A@\210\202B\211 @@*\206\341 \203\231\n\310\311\211 @@)@A@#\232\204\231\211A@\210\202t@)\206\341A\312\211 \203\336\313\211A@8\211;\204\253\n\312\314 \315\316\215+\232\203\253\312\211\204\260+\211 \203\365\306\n \"\204\365\nB B))\202\376 \211 \211 \232\2063 G GU\2053 \2030 @ \235\2030 A\211 \204 ?,\207" [m1 gnus-select-method server gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 t server-name (byte-code "\206 \n\204 \306\307 \"\210\306\310\f
D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204V \204V \315@ \"\204V B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache result m2 s2 s1] 7 (#$ . 119733)])
#@47 Return a list of known servers using BACKEND.
(defalias 'gnus-servers-using-backend #[(backend) "\305\n\203# \n@@@=\203 \n\211 @@) B\n\211A@\210\202 *\207" [gnus-opened-servers out opened backend x nil] 3 (#$ . 121900)])
#@55 Say whether the user wants to use the archive server.
(defalias 'gnus-archive-server-wanted-p #[nil "\203 \204\n \304\207\203 \203 \305\207\306\236\211A@)\211\205$ \307 !)\207" [gnus-message-archive-method gnus-message-archive-group x active nil t nnfolder-active-file file-exists-p] 3 (#$ . 122136)])
(defalias 'gnus-method-to-server-name #[(method) "\302\303@\"\304\302\303@\"\305\306!\"\204 \307 \"\205- A@\205- A@\310\230?\205- \311A@PP\207" [method gnus-message-archive-method format "%s" assoc gnus-methods-using address gnus-server-equal "" "+"] 5])
(put 'gnus-method-to-server-name 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'gnus-method-to-full-server-name #[(method) "\301\302@A@#\207" [method format "%s+%s"] 4])
(put 'gnus-method-to-full-server-name 'byte-optimizer 'byte-compile-inline-expand)
#@135 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).
(defalias 'gnus-group-prefixed-name #[(group method &optional full) ";\203\355 \211\203 <\203 \206\353 \306 \n\"A\206\353 \307\232\203& \206\324 \306 \f\"A\206\324 \306
\"A\206\324 \203] \310\311@@@@@A@#\232\204] \211A@\210\202: \211 @@*\206\324 \203\221 \310\311\211 @@)@A@#\232\204\221 \211A@\210\202l @)\206\324 A\312\211 \203\321 \313 \211A @8\211;\204\242 \312\314 \315\316\215+\232\203\242 \312\211 \204\247 +\211 \203\350 \306 \n\"\204\350 B\nB ))\203\375 !\204 \317\307\"\203 \"\207\310\320@\"\306\310\320@\"\321\322!\"\204 \317#\"\2050A@\2050A@\323\230?\2050\324A@PP)\325\"Q\207" [method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 t server-name (byte-code "\206 \n\204 \306\307 \"\210\306\310\f
D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204V \204V \315@ \"\204V B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil #1="") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) gnus-server-equal "%s" gnus-methods-using address #1# "+" ":" gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match alist no-enter-cache nocache result full group gnus-message-archive-method] 6 (#$ . 122981)])
#@75 Return the full name from GROUP and METHOD, even if the method is native.
(defalias 'gnus-group-full-name #[(group method) "\302 \303#\207" [group method gnus-group-prefixed-name t] 4 (#$ . 124890)])
#@63 Guess the full name from GROUP, even if the method is native.
(defalias 'gnus-group-guess-full-name-from-command-method #[(group) "\302!\203 \207\303 \"\207" [group gnus-command-method gnus-group-prefixed-p gnus-group-full-name] 3 (#$ . 125097)])
#@46 Return the prefix of the current group name.
(defalias 'gnus-group-real-prefix #[(group) ";\205 \301\302\"\203 \303\211\225O\207\304\207" [group string-match "^[^:]+:" 0 ""] 3 (#$ . 125354)])
#@30 Return the short group name.
(defalias 'gnus-group-short-name #[(group) "\302!\303 GW\203 G\304O\202 )\207" [group prefix gnus-group-real-prefix 0 nil] 3 (#$ . 125557)])
#@46 Return the prefix of the current group name.
(defalias 'gnus-group-prefixed-p #[(group) "\301\302!GW\207" [group 0 gnus-group-real-prefix] 3 (#$ . 125740)])
#@42 Return the summary buffer name of GROUP.
(defalias 'gnus-summary-buffer-name #[(group) "\301\302!\303Q\207" [group "*Summary " gnus-group-decoded-name "*"] 3 (#$ . 125904)])
#@117 Return the server or method used for selecting GROUP.
You should probably use `gnus-find-method-for-group' instead.
(defalias 'gnus-group-method #[(group) "\306!\211\307\232\203 \n\202\233 \307\310\211\211 \311\312 \"\2038 \313 \314\211\225SO! \314\225 GSO\202B \313 \314 GSO!\203{ @@@=\203p \211 @@)@@A@\232\203p \211 @@)\211A@\210\202B \315\f\"@\206\232 \f\206\232 \315
\"@\206\232
\206\232 D-)\207" [group prefix gnus-select-method gnus-opened-servers found possible gnus-group-real-prefix "" nil string-match "^[^\\+]+\\+" intern 0 rassoc backend server servers x gnus-server-alist] 6 (#$ . 126086)])
#@52 Return whether METHOD is the native select method.
(defalias 'gnus-native-method-p #[(method) " \211\n\232\206& G\nGU\205& \203$ @\n\235\203$ A\211\204 ?*\207" [method gnus-select-method s2 s1] 3 (#$ . 126745)])
(put 'gnus-native-method-p 'byte-optimizer 'byte-compile-inline-expand)
#@53 Return whether METHOD is a secondary select method.
(defalias 'gnus-secondary-method-p #[(method) "\306 ;\203\365 \211\203 <\203 \206\361 \307 \f\"A\206\361 \310\232\203+
\206\332 \307 \"A\206\332 \307 \"A\206\332 \203d \311\312@@@@@A@#\232\204d \211A@\210\202A \211 @@*\206\332 \203\227 \311\312 \211 @@) @A@#\232\204\227 \211A @\210\202r @)\206\332 A\306\211 \203\327 \313 \211A @8\211;\204\250 \306\314 !\315\316\215+\232\203\250 \306\211 \204\255 +\211 \"\203\356 \307 \f\"\204\356 \"B\fB\"))\202c
\232\203\377
\202c @;\203\n\203\317\n \"\202c \203(\n\204( \211 A@)\320\232\203( \202c \321 @! #\322\307#$\">\203a\323#\324P! \236\204a\325 @$\236>\203a\326 \323#\324P! A@DC\"\202b ** %\211 &\203\306&@ ;\203b \211\203\206 <\203\206 \206^\307 \f\"A\206^ \310\232\203\230
\206G\307 \"A\206G\307 \"A\206G \203\321 \311\312@@@@@A@#\232\204\321\211A@\210\202\256\211 @@*\206G \203 \311\312 \211 @@) @A@#\232\204 \211A @\210\202\337 @)\206G A\306\211 \203D\313 \211A @8\211;\204 \306\314 !\315\316\215+\232\203 \306\211 \204 +\211 \"\203[\307 \f\"\204[ \"B\fB\"))\202\320
\232\203l
\202\320 @;\203}\n\203}\317\n \"\202\320 \203\225\n\204\225 \211 A@)\320\232\203\225 \202\320 \321 @! #\322\307#$\">\203\316\323#\324P! \236\204\316\325 @$\236>\203\316\326 \323#\324P! A@DC\"\202\317 **% '\211 ('\232\206(G'GU\205(\203\377(@'\235\203\377(A\211(\204\355(?*\204&A\211&\204l&*\207" [gnus-secondary-select-methods method group server gnus-server-method-cache gnus-select-method nil assoc "native" format "%s:%s" 4 t server-name (byte-code "\206 \n\204 \306\307 \"\210\306\310\f
D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204V \204V \315@ \"\204V B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil #1="") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) gnus-server-extend-method #1# symbol-name address intern "-address" physical-address append gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened x servers gnus-newsrc-alist match alist no-enter-cache nocache result method-name gnus-valid-select-methods gmethod methods s2 s1] 7 (#$ . 127045)])
(put 'gnus-secondary-method-p 'byte-optimizer 'byte-compile-inline-expand)
#@71 Return the shortest uniquely identifying string or method for METHOD.
(defalias 'gnus-method-simplify #[(method) ";\203 \207\211 \211\n\232\206/ G\nGU\205/ \203- @\n\235\203- A\211\204 ?+\2035 \306\207\f\306 ;\203<\211 \203S <\203S \2068\307\"A\2068\310\232\203h \206 \307\"A\206 \307\"A\206 \203\244 \311\312 @@@ @@A@#\232\204\244 \211A @\210\202\200 \211 @@*\206 \f \203\330 \311\312 \211 @@) @A@#\232\204\330 \211A @\210\202\262 @)\206 A\306\211 !!\203\313!\211A!@8\211;\204\351 \306\314 \" #\315\316\215+\232\203\351 \306\211!\204\356 +\211 $\2035\307\"\2045$BB$))\202\252 \232\203F \202\252@;\203W
\203W\317
\"\202\252\203o
\204o\211 A@)\320\232\203o\202\252\321@! %\322\307%&\">\203\250\323%\324P!\236\204\250\325@&\236>\203\250\326\323%\324P!A@DC\"\202\251** '\211 (\203[\306(@ ;\203\271\211 \203\320<\203\320\206\265\307\"A\206\265\310\232\203\345 \206\231\307\"A\206\231\307\"A\206\231 \203!\311\312 @@@ @@A@#\232\204! \211A @\210\202\375 \211 @@*\206\231\f \203U\311\312 \211 @@) @A@#\232\204U \211A @\210\202/ @)\206\231 A\306\211 !!\203\226\313!\211A!@8\211;\204f\306\314 \" #\315\316\215+\232\203f \306\211!\204k +\211 $\203\262\307\"\204\262$BB$))\202' \232\203\303 \202'@;\203\324
\203\324\317
\"\202'\203\354
\204\354\211 A@)\320\232\203\354\202'\321@! %\322\307%&\">\203%\323%\324P!\236\204%\325@&\236>\203%\326\323%\324P!A@DC\"\202&**'\211\n\232\206N G\nGU\205N \203L @\n\235\203L A\211\204> ?*\204[(A\211(\204\263(+\203j\311\312@A@#\207\207" [method gnus-select-method s2 s1 gnus-secondary-select-methods group nil assoc "native" format "%s:%s" 4 t server-name (byte-code "\206 \n\204 \306\307 \"\210\306\310\f
D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204V \204V \315@ \"\204V B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil #1="") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) gnus-server-extend-method #1# symbol-name address intern "-address" physical-address append server gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened x servers gnus-newsrc-alist match alist no-enter-cache nocache result method-name gnus-valid-select-methods gmethod methods] 7 (#$ . 129868)])
#@59 Return a list of all groups that are fetched from SERVER.
(defalias 'gnus-groups-from-server #[(server) "A\305\211 \211A@\211\203\" \306\307\n8\f\"\203 \n@ B\202 \310 \311\"+\207" [gnus-newsrc-alist groups info alist server nil gnus-server-equal 4 sort string<] 3 (#$ . 132773)])
#@40 Say whether a group is foreign or not.
(defalias 'gnus-group-foreign-p #[(group) "\301!?\205 \302!?\207" [group gnus-group-native-p gnus-group-secondary-p] 2 (#$ . 133068)])
#@41 Say whether the group is native or not.
(defalias 'gnus-group-native-p #[(group) "\301\302\"?\207" [group string-match ":"] 3 (#$ . 133251)])
#@44 Say whether the group is secondary or not.
(defalias 'gnus-group-secondary-p #[(group) "\306!\n\307 ;\203\371 \211\203 <\203 \206\365 \310 \f\"A\206\365 \311\232\203/
\206\336 \310 \"A\206\336 \310 \"A\206\336 \203h \312\313@@@@@A@#\232\204h \211A@\210\202E \211 @@*\206\336 \n \203\233 \312\313 \211 @@) @A@#\232\204\233 \211A @\210\202v @)\206\336 A\307\211 \203\333 \314 \211A @8\211;\204\254 \307\315 ! \"\316\317\215+\232\203\254 \307\211 \204\261 +\211 #\203\362 \310 \f\"\204\362 #B\fB#))\202g
\232\203
\202g @;\203\203\320 \"\202g \203,\204, \211 A@)\321\232\203, \202g \322 @! $\323\310$%\">\203e\324$\325P! \236\204e\326 @%\236>\203e\327 \324$\325P! A@DC\"\202f ** &\211 '\203\307'@ ;\203f \211\203\212 <\203\212 \206b\310 \f\"A\206b \311\232\203\234
\206K\310 \"A\206K\310 \"A\206K \203\325 \312\313@@@@@A@#\232\204\325\211A@\210\202\262\211 @@*\206K\n \203 \312\313 \211 @@) @A@#\232\204 \211A @\210\202\343 @)\206K A\307\211 \203H\314 \211A @8\211;\204 \307\315 ! \"\316\317\215+\232\203 \307\211 \204 +\211 #\203_\310 \f\"\204_ #B\fB#))\202\324
\232\203p
\202\324 @;\203\201\203\201\320 \"\202\324 \203\231\204\231 \211 A@)\321\232\203\231 \202\324 \322 @! $\323\310$%\">\203\322\324$\325P! \236\204\322\326 @%\236>\203\322\327 \324$\325P! A@DC\"\202\323 **& (\211 )(\232\206)G(GU\205)\203)@(\235\203)A\211)\204\361)?*\204'A\211'\204p'+\207" [group method gnus-secondary-select-methods server gnus-server-method-cache gnus-select-method gnus-find-method-for-group nil assoc "native" format "%s:%s" 4 t server-name (byte-code "\206 \n\204 \306\307 \"\210\306\310\f
D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204V \204V \315@ \"\204V B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil #1="") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) gnus-server-extend-method #1# symbol-name address intern "-address" physical-address append gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened x servers gnus-newsrc-alist match alist no-enter-cache nocache result method-name gnus-valid-select-methods gmethod methods s2 s1] 6 (#$ . 133400)])
#@63 Return the group parameters for GROUP from `gnus-parameters'.
(defalias 'gnus-parameters-get-parameter #[(group) "\306=\203\n \202 \307 \307 \211 \2034
@\310\f@\n\"\203- \311\f@\fA\n#\n\244
A\211\204 *\n*\207" [gnus-parameters-case-fold-search case-fold-search params-list gnus-parameters elem --dolist-tail-- default nil string-match gnus-expand-group-parameters group] 5 (#$ . 136161)])
#@37 Use MATCH to expand VALUE in GROUP.
(defalias 'gnus-expand-group-parameter #[(match value group) "\305 \"\211\203 \n\306\225O\305 \"\210\307\f\310\211 $)\202 )\207" [match group start matched-string value string-match 0 replace-match nil] 6 (#$ . 136569)])
#@68 Go through PARAMETERS and expand them according to the match data.
(defalias 'gnus-expand-group-parameters #[(match parameters group) "\306 \306\211\203G @\211A;\203* \307\310\nA\"\203* \n@\311\f\nA
#BB\202@ \n@\312=\203< \313\314\nA\"B\202@ \nB A\211\204\n *)\207" [new parameters elem --dolist-tail-- match group nil string-match "\\\\[0-9&]" gnus-expand-group-parameter sieve mapcar #[(sieve-elem) ";\203 \303\304\"\203 \305 \n#\207\207" [sieve-elem match group string-match "\\\\[0-9&]" gnus-expand-group-parameter] 4]] 6 (#$ . 136840)])
#@160 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.
(defalias 'gnus-group-fast-parameter #[(group symbol &optional allow-list) " !\306\n \f\307$\211 \203
@\202w \310\211 \203t @A\311@ \"\203 \306A \f\307$\211 \203p @\211;\203c \311\312\"\203c \313@ #\202p \314=\203p \315\316\")\202 +*\207" [gnus-group-get-parameter-function group params symbol allow-list simple-results gnus-group-parameter-value t nil string-match "\\\\[0-9&]" gnus-expand-group-parameter sieve mapcar #[(elem) ";\203\f \303 @\n#\207\207" [elem head group gnus-expand-group-parameter] 4] gnus-parameters tail head result this-result] 6 (#$ . 137408)])
#@213 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.
(defalias 'gnus-group-find-parameter #[(group &optional symbol allow-list) "r\305\306!!\203
\202 pq\210 \203 \307\n #\202% \310\f\n!!\311\n!\244)\207" [gnus-group-buffer symbol group allow-list gnus-group-get-parameter-function buffer-live-p get-buffer gnus-group-fast-parameter copy-sequence gnus-parameters-get-parameter] 4 (#$ . 138194)])
#@249 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.
(defalias 'gnus-group-get-parameter #[(group &optional symbol allow-list) "\305\306\307 \"J88 \203 \310\n \f#\202 \n)\207" [group gnus-newsrc-hashtb params symbol allow-list 5 2 intern-soft gnus-group-parameter-value] 5 (#$ . 138761)])
#@89 Return the value of SYMBOL in group PARAMS.
If ALLOW-LIST, also allow list as a result.
(defalias 'gnus-group-parameter-value #[(params symbol &optional allow-list present-p) " >@\206
\303\304\305\215)\207" [symbol params elem nil found (byte-code "\211A@\211\2053 :\203 @\n=\203 \204 A:\204 \305\306\f\203, AC\202. A\"\210\202 \207" [params elem symbol allow-list present-p throw found] 3)] 2 (#$ . 139255)])
#@31 Add parameter PARAM to GROUP.
(defalias 'gnus-group-add-parameter #[(group param) "\304\305 \"J8\211\205$ \306 :\203 @\202 \"\210\307 \310\n8B\311#)\207" [group gnus-newsrc-hashtb info param 2 intern-soft gnus-group-remove-parameter gnus-group-set-info 5 params] 5 (#$ . 139688)])
#@76 Set parameter NAME to VALUE in GROUP.
GROUP can also be an INFO structure.
(defalias 'gnus-group-set-parameter #[(group name value) "<\203 \202 \306\307 \"J8\211\205a \310 \"\210\311\n8 \fBC \211 \203M @<\203< \211 @@) =\204D \312
@C\"A\211\204( <\203Z \313\n
\311#\202` \314
\n@\315#*)\207" [group gnus-newsrc-hashtb info name value new-params 2 intern-soft gnus-group-remove-parameter 5 append gnus-info-set-entry gnus-group-set-info params old-params x] 5 (#$ . 139983)])
#@72 Remove parameter NAME from GROUP.
GROUP can also be an INFO structure.
(defalias 'gnus-group-remove-parameter #[(group name) "<\203 \202 \305\306 \"J8\211\2058 \307\n8\211\2057 \310\f \"\f \236\2032 \310\f \236 \"\202\" \307\n\233 \240))\207" [group gnus-newsrc-hashtb info params name 2 intern-soft 5 delq] 5 (#$ . 140485)])
#@77 Add SCORE to the GROUP score.
If SCORE is nil, add 1 to the score of GROUP.
(defalias 'gnus-group-add-score #[(group &optional score) "\305\306 \"J8\211\205M \nA\211@:\2031 @\nA@\211:\203% A\206& \307)\f\206, \310\\\241\202L \211@\nA@\211:\203B A\206C \307)\f\206I \310\\B\240))\207" [group gnus-newsrc-hashtb info rank score 2 intern-soft 0 1] 5 (#$ . 140826)])
#@122 Collapse GROUP name LEVELS.
Select methods are stripped and any remote host name is stripped down to
just the host name.
(defalias 'gnus-short-group-name #[(group &optional levels) "\306\211\307\310\f\206#
\206# \311\312 #\203\" \307\225\nT\202 \n \311\313\"\211 \2055 \307O\211 \205@ \311\314\" \203t \203d T\311\312\"OT\315O\202p T\315O \313P\316\317\"\211 G \316\312\"\211 G \315\211 \315\211 V\203\254 \317 \202\267 \320 \fZ \315 \211 !\203\371 !@ \fS\211\307Y\203\351 \321 G!\203\341 \306\202\353 \307\310O\202\353 B !A\211!\204\307 * \322\323 \237 #P.\207" [name foreign depth skip levels gnus-group-uncollapsed-levels "" 0 1 string-match "\\." ":" "+" nil split-string "/" "." zerop mapconcat identity group colon server plus slist slen dlist dlen glist glen gsep res g --dolist-tail--] 6 (#$ . 141205)])
#@35 Narrow to the body of an article.
(defalias 'gnus-narrow-to-body #[nil "eb\210\300\301\302\303#\206\f dd}\207" [search-forward "\n\n" nil t] 4 (#$ . 142128)])
#@92 Apply a kill file to the current newsgroup.
Returns the number of articles marked as read.
(defalias 'gnus-apply-kill-file #[nil "\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 (#$ . 142293)])
(defalias 'gnus-kill-save-kill-buffer #[nil "\302!\303 !\205 r\303 !q\210\304 \203 \305 \210\306p!))\207" [gnus-newsgroup-name file gnus-newsgroup-kill-file get-file-buffer buffer-modified-p save-buffer kill-buffer] 2])
#@27 Suffix of the kill files.
(custom-declare-variable 'gnus-kill-file-name "KILL" '(#$ . 142824) :group 'gnus-score-kill :group 'gnus-score-files :type 'string)
#@115 Return the name of a kill file name for NEWSGROUP.
If NEWSGROUP is nil, return the global kill file name instead.
(defalias 'gnus-newsgroup-kill-file #[(newsgroup) "\203\n \303\230\203 \304 \n\"\207\305\306!\203 \304\307!\310 Q\n\"\207\304\311!\312 Q\n\"\207" [newsgroup 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 "/"] 4 (#$ . 142989)])
#@59 Find out if GROUP has SYMBOL as part of its "valid" spec.
(defalias 'gnus-member-of-valid #[(symbol group) "\303\304\305 !@!\n\">\207" [symbol group gnus-valid-select-methods assoc symbol-name gnus-find-method-for-group] 5 (#$ . 143456)])
#@60 Return non-nil if select METHOD has OPTION as a parameter.
(defalias 'gnus-method-option-p #[(method option) ";\203\355 \211\203 <\203 \206\353 \306 \n\"A\206\353 \307\232\203& \206\324 \306 \f\"A\206\324 \306
\"A\206\324 \203] \310\311@@@@@A@#\232\204] \211A@\210\202: \211 @@*\206\324 \203\221 \310\311\211 @@)@A@#\232\204\221 \211A@\210\202l @)\206\324 A\312\211 \203\321 \313\211A@8\211;\204\242 \312\314 \315\316\215+\232\203\242 \312\211\204\247 +\211 \203\350 \306 \n\"\204\350 B\nB))\306\310\317@\" \">\207" [method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 t server-name (byte-code "\206 \n\204 \306\307 \"\210\306\310\f
D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204V \204V \315@ \"\204V B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) "%s" gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match alist no-enter-cache nocache result option gnus-valid-select-methods] 6 (#$ . 143702)])
#@126 Return non-nil if we have a similar server opened.
This is defined as a server with the same name, but different
parameters.
(defalias 'gnus-similar-server-opened #[(method) "\305 \2038 \n\2038 \n\211A@@ @ @\232\203 \211 A@) \211 A@)\232\203 \306 \"\204 \305\211\204 *?\207" [gnus-opened-servers open opened method x nil gnus-methods-sloppily-equal] 4 (#$ . 145327)])
(defalias 'gnus-server-extend-method #[(group method) " \306\203: \203: \211A@@@\n@\232\203 \211 A@)\n\211 A@)\232\203 \307\n\"\204 \306\211\204\n +\204H \211 AA)\204J \207\310\311\312@\"!\211 \211 AA)\236\203t @\211 A@)\313\fQ\211 AA)BB\202\221 @\211 A@)\313\fQ
\211 A@)D\211 AA)BBB\211
B
)\207" [method gnus-opened-servers open opened x address-slot nil gnus-methods-sloppily-equal intern format "%s-address" "+" group gnus-extended-servers] 5])
#@30 Return the status of METHOD.
(defalias 'gnus-server-status #[(method) "\302 \"A@\207" [method gnus-opened-servers assoc] 3 (#$ . 146196)])
#@39 Guess a select method based on GROUP.
(defalias 'gnus-group-name-to-method #[(group) "\303\304\"\203+ \305\211\224O\303\306 \"\203$ \307 \305\211\224O! \305\225\310OD\202) \307 !\311D)\207\n\207" [group server gnus-select-method string-match ":" 0 "\\+" intern nil ""] 4 (#$ . 146342)])
#@49 Return a readable string that describes SERVER.
(defalias 'gnus-server-string #[(server) "\211\203 <\203 \206\352 \306 \"A\206\352 \307\232\203! \n\206\323 \306 \"A\206\323 \306\f\"A\206\323
\203W \310\311@@@@@A@#\232\204W \211A@\210\2024 \211 @@*\206\323 \203\213 \310\311\211 @@)@A@#\232\204\213 \211A@\210\202f @)\206\323 A\312\211 \203\320 \313\211A@8\211;\204\235 \312\314 \315\316\215+\232\203\235 \312\211\204\242 +\211 \203\347 \306 \"\204\347 B B ))\211A@\211 \203\317 G!\204\310\320 @#\202\f\310\321@\"*\207" [server 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 (byte-code "\206 \n\204 \306\307 \"\210\306\310\f
D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204V \204V \315@ \"\204V B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) zerop "%s using %s" "%s" opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache result address] 6 (#$ . 146638)])
(defalias 'gnus-same-method-different-name #[(method) "\306\307@!\310P!\211\211AA)\236\204 \311 A@DC\") \312\211 \f\204n \211A@\211\203n @
@=\203&
\313\211AA)!\313\211AA)!\312\211 \314\315\215.\203&
\211\203* \f+\207" [method slot x gnus-extended-servers found open intern symbol-name "-address" append nil copy-sequence --cl-block-nil-- (byte-code "\211A@\211\203w @\n\236\211\204 \306\307\310\"\210\311 \n\" \232\204 \211 A@);\2037 \211 A@);\204? \306\307\310\"\210\202 \211 A@) \211 A@)
\312\313
\"\203\\ \314
!
\312\313
\"\203g \314
!
\232\204s \306\307\310\"\210*\202 \n?\207" [p1 e1 p2 e2 x s2 throw --cl-block-nil-- nil delq string-match "/$" directory-file-name s1] 4) methods m2 m1 e2 e1 p2 p1] 5])
#@41 Find the select method that GROUP uses.
(defalias 'gnus-find-method-for-group #[(group &optional info) "\2063 \204\f \n\2063\306 \"J\204? \307\310\f\"\203/ \311\312\313\314\f\"\313\315\f\"\206+ \316#\202: \311\312\n@\n\211 A@)#)\211 #\203L #<\203L #\2065\317#$\"A\2065#\320\232\203a \n\206\317#%\"A\206\317#&\"A\206' ((\203\235 #\311\312(@@@(@@A@#\232\204\235 (\211A(@\210\202y (\211 @@*\206) **\203\320 #\311\312*\211 @@)*@A@#\232\204\320 *\211A*@\210\202\253 *@)\206+A\321\211 , - ..\203\322.\211A.@8\211-;\204\342 #-\321\323 / 0 -\324\325\215+\232\203\342 -,\321\211.\204\347 ,+\211 1\2032\317#$\"\2042#1B$B$1))\2063\326 !\20632\206K\315\306 \"J8\321 -\211 2\203e\32228\211-\203e-\320\232\203i\n\2022-;\203o-\211 #\203\202#<\203\202#\206k\317#$\"A\206k#\320\232\203\227\n\206O\317#%\"A\206O\317#&\"A\206O' ((\203\323#\311\312(@@@(@@A@#\232\204\323(\211A(@\210\202\257(\211 @@*\206O) **\203#\311\312*\211 @@)*@A@#\232\204*\211A*@\210\202\341*@)\206O+A\321\211 , - ..\203L\322.\211A.@8\211-;\204#-\321\323 / 0 -\324\325\215+\232\203-,\321\211.\204 ,+\211 1\203h\317#$\"\204h#1B$B$1))\202\313-\211 A@);\203\311- -\327\330-@!\331P!\211 3-\211 AA)\236\204\243\332-3-A@DC\"-)4\321\211 5 6 75\204\3767\211A7@\2116\203\376-@6@=\203\256-6 8 9\3339\211 AA)!\3338\211 AA)!\321\211 : ; < =\334\335\215.\203\2566\2115\203\2635,\206\313 - -- -'\321 6 (-\203U(\203U(\211A(@@6-@6@\232\203-\211 A@)6\211 A@)\232\203\336-6\"\204\321\211-\204-+\204e-\211 AA)\204j-\202\305\327\311\337-@\"!\211 >-\211 AA)\236\203\231-@-\211 A@)\340 Q-\211 AA)BB\202\272-@-\211 A@)\340 Q>-\211 A@)D-\211 AA)BBB\211-4B4-)*\202\313-\211-\211 A@)\316\232\203\335-\2022-\211 A@)\204\357-@\316D\2022- -\330-@! ?\341\317?@\">\203/\327?\331P!-\236\204/\342-@@\236>\203/\332-\327?\331P!-A@DC\"\2021-**\207" [gnus-override-method group gnus-select-method gnus-newsrc-hashtb gname x intern-soft string-match "^\\([^:+]+\\)\\(?:\\+\\([^:]*\\)\\)?:" format "%s:%s" match-string 1 2 #1="" assoc "native" nil 4 t server-name (byte-code "\206 \n\204 \306\307 \"\210\306\310\f
D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204V \204V \315@ \"\204V B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil #1#) format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) gnus-group-name-to-method intern symbol-name "-address" append copy-sequence --cl-block-nil-- (byte-code "\211A@\211\203w @\n\236\211\204 \306\307\310\"\210\311 \n\" \232\204 \211 A@);\2037 \211 A@);\204? \306\307\310\"\210\202 \211 A@) \211 A@)
\312\313
\"\203\\ \314
!
\312\313
\"\203g \314
!
\232\204s \306\307\310\"\210*\202 \n?\207" [p1 e1 p2 e2 x s2 throw --cl-block-nil-- nil delq string-match "/$" directory-file-name s1] 4) gnus-methods-sloppily-equal "%s-address" "+" address physical-address server gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache result info slot gnus-extended-servers found open methods m2 m1 e2 e1 p2 p1 address-slot method-name gnus-valid-select-methods] 7 (#$ . 149039)])
#@37 Find all methods that have FEATURE.
(defalias 'gnus-methods-using #[(feature) "\304\211\203 \n@>\203 \n@ B\nA\211\204 *\207" [gnus-valid-select-methods outs valids feature nil] 3 (#$ . 152831)])
(byte-code "\300\301\302\303\211\304%\207" [autoload message-y-or-n-p "message" nil macro] 6)
#@65 Prompt the user for a group name.
Disallow invalid group names.
(defalias 'gnus-read-group #[(prompt &optional default) "\306\307\204D \310\n\311 P\f\206 \306\312B\313#\211\"\203 \314\312\" \310\315
\"\2049 \316\317\320\321\322\323
\324\n\325&\n\204@ \326\327\"\307)\202 *\207" [group prefix gnus-invalid-group-regexp prompt default match "" 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\". "] 11 (#$ . 153136)])
#@70 Prompt the user for a method.
Allow completion over sensible values.
(defalias 'gnus-read-method #[(prompt) "\306\307\"\310 \310 \211 \203.
@\311\f>\204# \312\313\314\f@\" \"\204' \f\nB
A\211\204 *\n) \315 $ \316\306\317\"\320\310\321%\211 \322\232\203X \211\202\236 \312\f \"\203\215 \311\312\f \">\203n \323\324!\202o \322 \312\313\325\f # \"\211 A@)\206\211 \326\f! D)\202\236 \312\f\"\203\231 \f\202\236 \326\f!\322D,\207" [gnus-opened-servers open-servers methods gnus-valid-select-methods method --dolist-tail-- mapcar #[(i) "\302\303\211@@)@A@#B\207" [i x format "%s:%s"] 5] nil prompt-address assoc format "%s:" append gnus-completing-read car t gnus-method-history "" read-string "Address: " "%s:%s" intern valid-methods gnus-predefined-server-alist gnus-server-alist servers prompt gnus-select-method address x] 7 (#$ . 154149)])
#@45 Say whether METHOD is covered by the agent.
(defalias 'gnus-agent-method-p #[(method-or-server) "@ =\204 ;\203\374 \211\203 \n<\203 \n\206\370 \306\n \"A\206\370 \n\307\232\203- \f\206\341 \306\n
\"A\206\341 \306\n\"A\206\341 \203e \n\310\311@@@@@A@#\232\204e \211A@\210\202B \211 @@*\206\341 \203\231 \n\310\311\211 @@)@A@#\232\204\231 \211A@\210\202t @)\206\341 A\312\211 \203\336 \313\211A@8\211;\204\253 \n\312\314 \315\316\215+\232\203\253 \312\211\204\260 +\211 \203\365 \306\n \"\204\365 \nB B))\202\375 \211 \314\312 \315\316\215+ \n \235B*A\207" [gnus-agent-method-p-cache method-or-server server gnus-server-method-cache gnus-select-method gnus-server-alist assoc "native" format "%s:%s" nil 4 t server-name (byte-code "\206 \n\204 \306\307 \"\210\306\310\f
D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204V \204V \315@ \"\204V B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) gnus-predefined-server-alist gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache result gnus-agent-covered-methods] 6 (#$ . 155028)])
(defalias 'gnus-online #[(method) "\203 \304 \n\"\211A@)\305=\202 \306 !?\207" [gnus-plugged method gnus-opened-servers x assoc offline gnus-agent-method-p] 4])
#@71 Read network news as a slave, without connecting to the local server.
(defalias 'gnus-slave-no-server #[(&optional arg) "\301\302\"\207" [arg gnus-no-server t] 3 (#$ . 156894) "P"])
#@322 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.
(defalias 'gnus-no-server #[(&optional arg slave) "\302 \"\207" [arg slave gnus-no-server-1] 3 (#$ . 157084) "P"])
#@23 Read news as a slave.
(defalias 'gnus-slave #[(&optional arg) "\301\302\303#\207" [arg gnus nil slave] 4 (#$ . 157527) "P"])
#@472 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 just pop up a Gnus frame. 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.
(defalias 'gnus-other-frame #[(&optional arg display) "\306\307!\203 \204 \310\311 !\202 \312\313 \211\205 \314\315\215?\205H \316\203. \307\n\"\2021 \317\n!\211!\210 \203? \320\f!\202H
!\210\321\322\323\")\207" [display alive gnus-other-frame-parameters gnus-other-frame-object gnus-group-buffer gnus-other-frame-function fboundp make-frame-on-display gnus-frame-or-window-display-name selected-frame nil gnus-alive-p found (byte-code "\300\301\302\303#\207" [walk-windows #[(window) "\203\f \304 !\232\205, r\305 !q\210\306\307\310\n!\")\205, \311\312 !\211!\210\313 !\210\314\315\316\"\207" [display window major-mode gnus-other-frame-object gnus-frame-or-window-display-name window-buffer string-match "\\`gnus-" symbol-name gnus-select-frame-set-input-focus window-frame select-window throw found t] 4] ignore t] 4) gnus-select-frame-set-input-focus make-frame switch-to-buffer add-hook gnus-exit-gnus-hook #[nil "\301!\203 \302 A\203 \303!\210\304\211\207" [gnus-other-frame-object frame-live-p frame-list delete-frame nil] 2] arg] 5 (#$ . 157660) "P"])
#@213 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.
(defalias 'gnus #[(&optional arg dont-connect slave) "\305\306\"\204
\307\310\311\312#\210\313\314K!\204 \315\316!\210\317\320!\210\311C\321\n \f#\210\322 )\207" [gnus-version gnus-action-message-log arg dont-connect slave 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] 4 (#$ . 159220) "P"])
(byte-code "\300\301!\204
\302\301\303\304\305$\210\300\207" [fboundp debbugs-gnu autoload "debbugs-gnu" "List all outstanding Emacs bugs." t] 5)
#@33 List all open Gnus bug reports.
(defalias 'gnus-list-debbugs #[nil "\300\301\302\"\207" [debbugs-gnu nil "gnus"] 3 (#$ . 159980) nil])
(byte-code "\300 \210\301\302!\207" [gnus-ems-redefine provide gnus] 2)