;ELC ;;; Compiled by amu@daemon on Thu Jan 11 15:03:04 2001 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.8.8/lisp/gnus-int.el ;;; in Emacs version 20.7.2 ;;; with bytecomp version 2.56 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`gnus-int.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'gnus) #@64 Hook called just before opening connection to the news server. (custom-declare-variable 'gnus-open-server-hook 'nil '(#$ . 642) :group 'gnus-start :type 'hook) #@99 Open a method for getting news. If CONFIRM is non-nil, the user will be asked for an NNTP server. (defalias 'gnus-start-news-server #[(&optional confirm) "\306 ?\205\302\n\204 \306\f\203\307\310\311\312 C B\"\306\211 % \203a ;\203a \313\230\204a \313\230\204: \314\230\203A\315\316 D\202_\317\320 \"\203\\\321 \322\323\324 \325\306O\326\"!D\327\306DF\202_\330 D((@\211\315=\203w\331\315!\210\332\333\334\"\210\202\215\321=\203\211\331\321!\210\332\333\335\"\210\202\215\331\330!\210(\336\337!\210\340(!\206\302\341(!\206\302)\206\302\342\343\344(@(A@\345(!$!\206\302\346\325\347(A@#)\207" [how gnus-current-select-method gnus-nntp-service gnus-nntp-server confirm gnus-secondary-servers nil completing-read "NNTP server: " mapcar #[(server) "C\207" [server] 1] "" "::" nnspool system-name string-match "^:" nnmh nnmh-directory file-name-as-directory expand-file-name 1 "~/" nnmh-get-new-mail nntp require gnus-message 5 "Looking up local news spool..." "Looking up mh spool..." gnus-run-hooks gnus-open-server-hook gnus-server-opened gnus-open-server gnus-y-or-n-p format "%s (%s) open error: '%s'. Continue? " gnus-status-message gnus-error "Couldn't open server on %s" gnus-select-method gnus-batch-mode] 9 (#$ . 808)]) #@63 Try to make sure that the server where GROUP exists is alive. (defalias 'gnus-check-group #[(group) "\302!\303 !\206 \304 !)\207" [group method gnus-find-method-for-group gnus-server-opened gnus-open-server] 2 (#$ . 2074)]) #@129 Check whether the connection to METHOD is down. If METHOD is nil, use `gnus-select-method'. If it is down, start it up (again). (defalias 'gnus-check-server #[(&optional method silent) "\206 \211;\203\303!\304!\203\305\202E\n\2046\306\307\310@A@\311\232\203.\311\2024\312\313A@\"$\210\314\315!\210\316!\n\204E\317\311!\210)\207" [method gnus-select-method silent gnus-server-to-method gnus-server-opened t gnus-message 5 "Opening %s server%s..." "" format " on %s" gnus-run-hooks gnus-open-server-hook gnus-open-server message] 8 (#$ . 2308)]) #@56 Return a function symbol based on METHOD and FUNCTION. (defalias 'gnus-get-function #[(method function &optional noerror) "\204\306\307!\210;\203\310! \203\311!\202@\211\312N\f \236\211\204<\f\313\314\315\n\f#!B\316\n\312 B#\210 A)\317!\204n@\204Q\306\320!\210\321@!\210\317!\204n\203h\322\202n\306\323\"\210+\207" [method gnus-agent method-sym method-fns function method-fnlist-elt error "Attempted use of a nil select method" gnus-server-to-method gnus-agent-get-function gnus-method-functions intern format "%s-%s" put fboundp "Trying to require a method that doesn't exist" require nil "No such function: %s" func noerror] 7 (#$ . 2878)]) #@43 Open a connection to GNUS-COMMAND-METHOD. (defalias 'gnus-open-server #[(gnus-command-method) ";\203 \304!\305 \"\211A@\306=\203\307\310\311\"\210\312\202F\313\314\"A@AA\"\n\2047\312D\211 B\nA \203A\315\202B\306\240\210 ))\207" [gnus-command-method gnus-opened-servers elem result gnus-server-to-method assoc denied gnus-message 1 "Denied server" nil gnus-get-function open-server ok] 4 (#$ . 3568)]) #@46 Close the connection to GNUS-COMMAND-METHOD. (defalias 'gnus-close-server #[(gnus-command-method) ";\203 \301!\302\303\"A@!\207" [gnus-command-method gnus-server-to-method gnus-get-function close-server] 3 (#$ . 3994)]) #@51 Request the active file from GNUS-COMMAND-METHOD. (defalias 'gnus-request-list #[(gnus-command-method) ";\203 \301!\302\303\"A@!\207" [gnus-command-method gnus-server-to-method gnus-get-function request-list] 3 (#$ . 4226)]) #@55 Request the newsgroups file from GNUS-COMMAND-METHOD. (defalias 'gnus-request-list-newsgroups #[(gnus-command-method) ";\203 \301!\302\303\"A@!\207" [gnus-command-method gnus-server-to-method gnus-get-function request-list-newsgroups] 3 (#$ . 4463)]) #@61 Request all new groups since DATE from GNUS-COMMAND-METHOD. (defalias 'gnus-request-newgroups #[(date gnus-command-method) ";\203 \303!\304\305\306#\211\205 \nA@\")\207" [gnus-command-method func date gnus-server-to-method gnus-get-function request-newgroups t] 5 (#$ . 4726)]) #@68 Check whether a connection to GNUS-COMMAND-METHOD has been opened. (defalias 'gnus-server-opened #[(gnus-command-method) "\306!\307=?\205\224;\203\310!\311\312\211\204 \313\314!\210 ;\203)\310 !\f\2033\315 !\2025 @\211\316N\n\236\211\204Z\n\317\320\321 \n#!B\322 \316B#\210A)\323!\204\214 @\204p\313\324!\210\325 @!\210\323!\204\214 \203\206\312\202\214\313\326\"\210.A@!\207" [gnus-command-method noerror function method gnus-agent method-sym gnus-server-status denied gnus-server-to-method server-opened nil error "Attempted use of a nil select method" gnus-agent-get-function gnus-method-functions intern format "%s-%s" put fboundp "Trying to require a method that doesn't exist" require "No such function: %s" method-fns method-fnlist-elt func] 8 (#$ . 5019)]) #@170 Return the status message from GNUS-COMMAND-METHOD. If GNUS-COMMAND-METHOD is a string, it is interpreted as a group name. The method this group uses will be queried. (defalias 'gnus-status-message #[(gnus-command-method) ";\203 \301!\202\f\302\303\"A@!)\207" [gnus-command-method gnus-find-method-for-group gnus-get-function status-message] 3 (#$ . 5842)]) #@53 Request a data generation from GNUS-COMMAND-METHOD. (defalias 'gnus-request-regenerate #[(gnus-command-method) ";\203 \301!\302\303\"A@!\207" [gnus-command-method gnus-server-to-method gnus-get-function request-regenerate] 3 (#$ . 6216)]) #@60 Request GROUP. If DONT-CHECK, no information is required. (defalias 'gnus-request-group #[(group &optional dont-check gnus-command-method) "\206\307 \306 \206\306 \204\f\206\306\307 \"J\204\"\310 !\206\306\n\206-\311\307 \"J8\306'\211\203E\312\n8\211'\203E'\313\232\203I\f\202\305';\203\335'\211(\203b(<\203b(\206\331(\313\232\203m\f\206\331\314()\"A\206\331\314(*\"A\206\331+,,\203\250(\315\316,@@@,@@A@#\232\204\250,\211A,\210\202\205,@@)\206\331-..\203\325(\315\316.@@.@A@#\232\204\325.\211A.\210\202\264.@))\202d'A@;\203b ''''+,'\203.,\203.'A@,@@A@\232\203$'@,@@@\232\203$',@@\232\204$\306',\211A,\210\202\363'*\204;'AA\204@'\202^'@'A@\317 Q\320\315\321'@\"!'A@D'AABBB*\202d'\211'A@\322\232\203s'\202\305'A@\204\202'@\322D\202\305''\323'@!/\324\314/0\">\203\302\320/\325P!'\236\204\302\326'@0\236>\203\302\327'\320/\325P!'A@DC\"\202\304'***\211;\203X\211(\203\337(<\203\337(\206V(\313\232\203\352\f\206V\314()\"A\206V\314(*\"A\206V+,,\203%(\315\316,@@@,@@A@#\232\204%,\211A,\210\202,@@)\206V-..\203R(\315\316.@@.@A@#\232\204R.\211A.\210\2021.@))\330\30612\211'\204i\331\332!\210';\203u\333'!'3\203\201\334'!\202\204'@\2114\335N525\236\2116\204\2572\320\315\33642#!B6\3374\33565B#\2106A)7\3407!\204\344'@\204\306\331\341!\210\342'@!\210\3407!\204\3441\203\336\3067\202\344\331\3437\"\2107. 8\344\3458\"\203\3748\346\225\306O\202\3768)A@9#)\207" [gnus-command-method group info gnus-override-method gnus-select-method gnus-newsrc-hashtb nil intern-soft gnus-group-name-to-method 2 4 "native" assoc format "%s:%s" "+" intern "%s-address" "" symbol-name address "-address" physical-address append request-group error "Attempted use of a nil select method" gnus-server-to-method gnus-agent-get-function gnus-method-functions "%s-%s" put fboundp "Trying to require a method that doesn't exist" require "No such function: %s" string-match "^[^:]+:" 0 method server gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened gnus-secondary-select-methods servers method-name gnus-valid-select-methods noerror function gnus-agent method-sym method-fns method-fnlist-elt func gname dont-check] 8 (#$ . 6467)]) #@38 Request active information on GROUP. (defalias 'gnus-list-active-group #[(group) "\304!\305 \306\307\310\217*\205-\311\n \"\312\313 \"\203' \314\225\315O\202( )\nA@\"*\207" [group func gnus-command-method gname gnus-find-method-for-group list-active-group #1=#:G88771 (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)) gnus-get-function string-match "^[^:]+:" 0 nil] 4 (#$ . 8819)]) #@33 Request a description of GROUP. (defalias 'gnus-request-group-description #[(group) "\304!\305 \306\307\310\217*\205-\311\n \"\312\313 \"\203' \314\225\315O\202( )\nA@\"*\207" [group func gnus-command-method gname gnus-find-method-for-group request-group-description #1=#:G88772 (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)) gnus-get-function string-match "^[^:]+:" 0 nil] 4 (#$ . 9362)]) #@47 Request a list of existing articles in GROUP. (defalias 'gnus-request-group-articles #[(group) "\304!\305 \306\307\310\217*\205-\311\n \"\312\313 \"\203' \314\225\315O\202( )\nA@\"*\207" [group func gnus-command-method gname gnus-find-method-for-group request-group-articles #1=#:G88773 (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)) gnus-get-function string-match "^[^:]+:" 0 nil] 4 (#$ . 9916)]) #@30 Request the GROUP be closed. (defalias 'gnus-close-group #[(group) "\306\n\206\236\204 \206\236\307\f\"J\204\310!\206\236 \206)\311\307\f\"J8\306\211\203>\312 8\211\203> \313\232\203B \202\235 ;\203\324 \211\203Y<\203Y\206\320\313\232\203d \206\320\314\"A\206\320\314\"A\206\320 !!\203\237\315\316!@@@!@@A@#\232\204\237!\211A!\210\202|!@@)\206\320\"##\203\314\315\316#@@#@A@#\232\204\314#\211A#\210\202\253#@))\202H A@;\203G   ! \203!\203 A@!@@A@\232\203 @!@@@\232\203 !@@\232\204\306!\211A!\210\202\345 *\204& AA\204* \202C @ A@\317Q\320\315\321 @\"! A@D AABBB*\202H \211A@\322\232\203U \202\235 A@\204b @\322D\202\235 \323 @!$\324\314$%\">\203\233\320$\325P! \236\204\233\326 @%\236>\203\233\327 \320$\325P! A@DC\"\202\234 ***&\330&\331\"'\332\333'\"\203\272'\334\225\306O\202\274')&A@\")\207" [group info gnus-override-method gnus-select-method gnus-newsrc-hashtb method nil intern-soft gnus-group-name-to-method 2 4 "native" assoc format "%s:%s" "+" intern "%s-address" "" symbol-name address "-address" physical-address append gnus-get-function close-group string-match "^[^:]+:" 0 server gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened gnus-secondary-select-methods servers method-name gnus-valid-select-methods gnus-command-method gname] 7 (#$ . 10478)]) #@114 Request headers for ARTICLES in GROUP. If FETCH-OLD, retrieve all headers (or some subset thereof) in the group. (defalias 'gnus-retrieve-headers #[(articles group &optional fetch-old) "\306!\n\203 @\247\203\307 \f#\2023\310 \311\" \312\313 \"\203, \314\225\315O\202- ) A@\f$)\207" [group gnus-command-method gnus-use-cache articles fetch-old gname gnus-find-method-for-group gnus-cache-retrieve-headers gnus-get-function retrieve-headers string-match "^[^:]+:" 0 nil] 5 (#$ . 11903)]) #@28 Request ARTICLES in GROUP. (defalias 'gnus-retrieve-articles #[(articles group) "\304!\305 \306\"\n\307\310 \"\203 \311\225\312O\202 ) A@#)\207" [group gnus-command-method articles gname gnus-find-method-for-group gnus-get-function retrieve-articles string-match "^[^:]+:" 0 nil] 5 (#$ . 12407)]) #@64 Request active information on GROUPS from GNUS-COMMAND-METHOD. (defalias 'gnus-retrieve-groups #[(groups gnus-command-method) ";\203 \302!\303\304\" A@\"\207" [gnus-command-method groups gnus-server-to-method gnus-get-function retrieve-groups] 3 (#$ . 12718)]) #@60 Return the type (`post' or `mail') of GROUP (and ARTICLE). (defalias 'gnus-request-type #[(group &optional article) "\305!\306 @\307\310\311\217*\204\312\202.\313 \306\"\314\315 \"\203* \316\225\317O\202+ )\f\")\207" [group gnus-command-method func gname article gnus-find-method-for-group request-type #1=#:G88774 (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)) unknown gnus-get-function string-match "^[^:]+:" 0 nil] 4 (#$ . 12991)]) #@39 Set marks on articles in the backend. (defalias 'gnus-request-set-mark #[(group action) "\305!\306 @\307\310\311\217*\204 \2021\312 \306\"\313\314\f\"\203*\f\315\225\316O\202+\f) A@#)\207" [group gnus-command-method func action gname gnus-find-method-for-group request-set-mark #1=#:G88775 (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)) gnus-get-function string-match "^[^:]+:" 0 nil] 4 (#$ . 13590)]) #@75 Allow the backend to change the mark the user tries to put on an article. (defalias 'gnus-request-update-mark #[(group article mark) "\306!\307 @\310\311\312\217*\204 \202/\313 \307\"\314\315\f\"\203*\f\316\225\317O\202+\f) #)\207" [group gnus-command-method func mark gname article gnus-find-method-for-group request-update-mark #1=#:G88776 (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)) gnus-get-function string-match "^[^:]+:" 0 nil] 4 (#$ . 14157)]) #@142 Request the ARTICLE in GROUP. ARTICLE can either be an article number or an article Message-ID. If BUFFER, insert the article in that group. (defalias 'gnus-request-article #[(article group &optional buffer) "\305!\306 \307\"\n\310\311 \"\203 \312\225\313O\202 ) A@\f$)\207" [group gnus-command-method article gname buffer gnus-find-method-for-group gnus-get-function request-article string-match "^[^:]+:" 0 nil] 5 (#$ . 14777)]) #@39 Request the head of ARTICLE in GROUP. (defalias 'gnus-request-head #[(article group) "\306!\307 \310\311#\312\312 \203*\247\203*\313\"\203*B\311\202Z\314\n!\203R\n\315\316\"\203G\317\225\312O\202I) A@#\202Z\320\"\311\f\203w\212q\210eb\210\321\322\312\311#\203s`Sd|\210\323 \210) ,\207" [group gnus-command-method head res clean-up gnus-use-cache gnus-find-method-for-group gnus-get-function request-head t nil gnus-cache-request-article fboundp string-match "^[^:]+:" 0 gnus-request-article search-forward "\n\n" nnheader-fold-continuation-lines article gname nntp-server-buffer] 5 (#$ . 15222)]) #@39 Request the body of ARTICLE in GROUP. (defalias 'gnus-request-body #[(article group) "\306!\307 \310\311#\312\312 \203*\247\203*\313\"\203*B\311\202Z\314\n!\203R\n\315\316\"\203G\317\225\312O\202I) A@#\202Z\320\"\311\f\203t\212q\210eb\210\321\322\312\311#\203se`S|\210) ,\207" [group gnus-command-method head res clean-up gnus-use-cache gnus-find-method-for-group gnus-get-function request-body t nil gnus-cache-request-article fboundp string-match "^[^:]+:" 0 gnus-request-article search-forward "\n\n" article gname nntp-server-buffer] 5 (#$ . 15869)]) #@52 Post the current buffer using GNUS-COMMAND-METHOD. (defalias 'gnus-request-post #[(gnus-command-method) ";\203 \301!\302\303\"A@!\207" [gnus-command-method gnus-server-to-method gnus-get-function request-post] 3 (#$ . 16474)]) #@131 Request a SCAN being performed in GROUP from GNUS-COMMAND-METHOD. If GROUP is nil, all groups on GNUS-COMMAND-METHOD are scanned. (defalias 'gnus-request-scan #[(group gnus-command-method) "\203\n\306!\202 \307\n\n\204\310 !?\205:\311 \312\"\2056\313\314 \"\2034 \315\225\316O\2025 ) A@\"+\207" [group gnus-command-method gnus-plugged mail-source-plugged gnus-inhibit-demon gname gnus-find-method-for-group t gnus-agent-method-p gnus-get-function request-scan string-match "^[^:]+:" 0 nil] 4 (#$ . 16714)]) #@47 Request that GNUS-COMMAND-METHOD update INFO. (defalias 'gnus-request-update-info #[(info gnus-command-method) ";\203 \305!\306@\307\310\311\217*\2053\312\306\" @\313\314\f\"\203,\f\315\225\316O\202-\f) A@#\207" [gnus-command-method group func info gname gnus-server-to-method request-update-info #1=#:G88777 (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)) gnus-get-function string-match "^[^:]+:" 0 nil] 4 (#$ . 17244)]) (put 'gnus-request-update-info 'byte-optimizer 'byte-compile-inline-expand) (defalias 'gnus-request-expire-articles #[(articles group &optional force) "\305!\306 \307\"\n\310\311 \"\203 \312\225\313O\202 ) A@\f$)\207" [group gnus-command-method articles gname force gnus-find-method-for-group gnus-get-function request-expire-articles string-match "^[^:]+:" 0 nil] 5]) (defalias 'gnus-request-move-article #[(article group server accept-function &optional last) "\306!\307 \310\"\n\311\312 \"\203 \313\225\314O\202 ) A@\f %)\207" [group gnus-command-method article gname accept-function last gnus-find-method-for-group gnus-get-function request-move-article string-match "^[^:]+:" 0 nil] 6]) (defalias 'gnus-request-accept-article #[(group &optional gnus-command-method last no-encode) ";\203 \306!\204 ;\203\307 !db\210n\204 \310c\210\n\2041\214\311 \210 \312 \210*\313 \210\2068\314 !@\315\316\317 \"! ;\203_ \320\321\"\203Y\322\225\323O\202[)\202` A@#)\207" [gnus-command-method group no-encode message-default-charset mail-parse-charset func gnus-server-to-method gnus-group-name-to-method "\n" message-narrow-to-head mail-encode-encoded-word-buffer message-encode-message-body gnus-find-method-for-group intern format "%s-request-accept-article" string-match "^[^:]+:" 0 nil gname last] 4]) (defalias 'gnus-request-replace-article #[(article group buffer &optional no-encode) "\204\214\306 \210 \307 \210*\310 \210\311 !@\312\313\314\f\"! \315\316\"\2031\317\225\320O\2023)#)\207" [no-encode message-default-charset mail-parse-charset group func article message-narrow-to-head mail-encode-encoded-word-buffer message-encode-message-body gnus-group-name-to-method intern format "%s-request-replace-article" string-match "^[^:]+:" 0 nil gname buffer] 5]) (defalias 'gnus-request-associate-buffer #[(group) "\303!\304 \305\"\306\307\n\"\203\n\310\225\311O\202\n)!)\207" [group gnus-command-method gname gnus-find-method-for-group gnus-get-function request-associate-buffer string-match "^[^:]+:" 0 nil] 4]) #@56 Request a new buffer restored to the state of ARTICLE. (defalias 'gnus-request-restore-buffer #[(article group) "\304!\305 \306\"\n\307\310 \"\203 \311\225\312O\202 ) A@#)\207" [group gnus-command-method article gname gnus-find-method-for-group gnus-get-function request-restore-buffer string-match "^[^:]+:" 0 nil] 5 (#$ . 19913)]) (defalias 'gnus-request-create-group #[(group &optional gnus-command-method args) ";\203 \304!\206\305 !\306\307\" \310\311\n\"\203&\n\312\225\313O\202'\n)A@ #)\207" [gnus-command-method group gname args gnus-server-to-method gnus-find-method-for-group gnus-get-function request-create-group string-match "^[^:]+:" 0 nil] 4]) (defalias 'gnus-request-delete-group #[(group &optional force) "\304!\305 \306\"\307\310\n\"\203\n\311\225\312O\202\n) A@#)\207" [group gnus-command-method gname force gnus-find-method-for-group gnus-get-function request-delete-group string-match "^[^:]+:" 0 nil] 4]) (defalias 'gnus-request-rename-group #[(group new-name) "\304!\305 \306\"\307\310\n\"\203\n\311\225\312O\202\n) \307\310\n\"\203,\n\311\225\312O\202-\n) A@#)\207" [group gnus-command-method gname new-name gnus-find-method-for-group gnus-get-function request-rename-group string-match "^[^:]+:" 0 nil] 5]) (defalias 'gnus-close-backends #[nil "\305\306\211\f\211A@\211\205%\307\310 @\311P!\211!\203\n \210\202,\207" [gnus-valid-select-methods gnus-command-method func gnus-inhibit-demon methods t nil fboundp intern "-request-close"] 4]) (defalias 'gnus-asynchronous-p #[(gnus-command-method) "\302\303\304#\305 !\205 )\207" [gnus-command-method func gnus-get-function asynchronous-p t fboundp] 4]) (defalias 'gnus-remove-denial #[(gnus-command-method) ";\203 \304!\305 \"\211A@\211\306=\205\nA\307\240*\207" [gnus-command-method gnus-opened-servers elem status gnus-server-to-method assoc denied closed] 4]) (provide 'gnus-int)