;ELC ;;; compiled by amu@mit.edu on Sat Sep 13 16:19:17 1997 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.4.67/lisp/gnus-int.el ;;; emacs version 19.30.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (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")) (byte-code "!&" [require gnus custom-declare-variable gnus-open-server-hook nil "Hook called just before opening connection to the news server." :group gnus-start :type hook] 8) #@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) "\n?  \fC\nB\"\f%\fc\f;c\f˘c\f˘;\f̘B Da\f\"^\f\fOP!!DDFa\fD@=y!\" =!\"!!!!@A@!$!A@#)" [nil how gnus-current-select-method gnus-nntp-service gnus-nntp-server confirm completing-read "NNTP server: " mapcar #[(server) "C" [server] 1] gnus-secondary-servers "" "::" nnspool system-name string-match "^:" nnmh nnmh-directory file-name-as-directory expand-file-name "~/" 1 nnmh-get-new-mail nntp gnus-select-method require gnus-message 5 "Looking up local news spool..." "Looking up mh spool..." 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"] 10 (#$ . 687)]) #@63 Try to make sure that the server where GROUP exists is alive. (defalias 'gnus-check-group #[(group) " !\n! \n!)" [gnus-find-method-for-group group method gnus-server-opened gnus-open-server] 2 (#$ . 1672)]) #@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) " ;!!ĂE 6@A@ɚ.ɂ4A@\"$!! E!)" [method gnus-select-method gnus-server-to-method gnus-server-opened t silent gnus-message 5 "Opening %s server%s..." "" format " on %s" run-hooks gnus-open-server-hook gnus-open-server message] 8 (#$ . 1893)]) #@56 Return a function symbol based on METHOD and FUNCTION. (defalias 'gnus-get-function #[(method function &optional noerror) "!;!@#!!:@!!: :\")" [method error "Attempted use of a nil select method" gnus-server-to-method intern format "%s-%s" function func fboundp require noerror "No such function: %s"] 5 (#$ . 2369)]) #@30 Open a connection to METHOD. (defalias 'gnus-open-server #[(method) "; ! \"A@=\"ɂI\"A@AA\"\f\f8D B\fA\fC͂DŠ\f))" [method gnus-server-to-method assoc gnus-opened-servers elem denied gnus-message 1 "Denied server" nil gnus-get-function open-server result ok] 4 (#$ . 2738)]) #@33 Close the connection to METHOD. (defalias 'gnus-close-server #[(method) "; !\"A@!" [method gnus-server-to-method gnus-get-function close-server] 3 (#$ . 3059)]) #@38 Request the active file from METHOD. (defalias 'gnus-request-list #[(method) "; !\"A@!" [method gnus-server-to-method gnus-get-function request-list] 3 (#$ . 3237)]) #@42 Request the newsgroups file from METHOD. (defalias 'gnus-request-list-newsgroups #[(method) "; !\"A@!" [method gnus-server-to-method gnus-get-function request-list-newsgroups] 3 (#$ . 3420)]) #@48 Request all new groups since DATE from METHOD. (defalias 'gnus-request-newgroups #[(date method) "; !# A@\")" [method gnus-server-to-method gnus-get-function request-newgroups t func date] 5 (#$ . 3629)]) #@55 Check whether a connection to METHOD has been opened. (defalias 'gnus-server-opened #[(method) "; !!; !@ #!  !G@! !G\fG \" ,A@!" [method gnus-server-to-method server-opened nil noerror function error "Attempted use of a nil select method" intern format "%s-%s" func fboundp require "No such function: %s"] 6 (#$ . 3859)]) #@144 Return the status message from METHOD. If METHOD is a string, it is interpreted as a group name. The method this group uses will be queried. (defalias 'gnus-status-message #[(method) "; !\f\"A@!)" [method gnus-find-method-for-group gnus-get-function status-message] 3 (#$ . 4238)]) #@40 Request a data generation from METHOD. (defalias 'gnus-request-regenerate #[(method) "; !\"A@!" [method gnus-server-to-method gnus-get-function request-regenerate] 3 (#$ . 4542)]) #@60 Request GROUP. If DONT-CHECK, no information is required. (defalias 'gnus-request-group #[(group &optional dont-check method) "r \fq  q \"J85 85ʚ9 p;D!SA@;R \"SA@͚`pA@m@Dp!**;<ʚ \"A\"A@@@@@A@#A@@))!;!@#!!@!!\", \"\"\"0\"O2\")A@&#)" [method group nil info gnus-override-method gnus-select-method 2 intern-soft gnus-newsrc-hashtb 4 "native" gnus-server-to-method gnus-server-extend-method "" gnus-server-add-address server assoc gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened format "%s:%s" request-group noerror function error "Attempted use of a nil select method" intern "%s-%s" func fboundp require "No such function: %s" gname string-match "^[^:]+:" 0 dont-check] 6 (#$ . 4739)]) #@38 Request active information on GROUP. (defalias 'gnus-list-active-group #[(group) " ! Ǐ*1\f \"   \"* ̕O, )\fA@\"*" [gnus-find-method-for-group group list-active-group func method G77639 (byte-code ";\f!@ \n!\n!\n #!!)" [group gnus-find-method-for-group method featurep require fboundp intern format "%s-%s" func] 6) ((error)) gnus-get-function gname string-match "^[^:]+:" 0 nil] 4 (#$ . 5679)]) #@33 Request a description of GROUP. (defalias 'gnus-request-group-description #[(group) " ! Ǐ*1\f \"   \"* ̕O, )\fA@\"*" [gnus-find-method-for-group group request-group-description func method G77640 (byte-code ";\f!@ \n!\n!\n #!!)" [group gnus-find-method-for-group method featurep require fboundp intern format "%s-%s" func] 6) ((error)) gnus-get-function gname string-match "^[^:]+:" 0 nil] 4 (#$ . 6127)]) #@30 Request the GROUP be closed. (defalias 'gnus-close-group #[(group) " z\fz\n\"J84\n84ʚ8\fy;E!WA@;U\"WA@͚fyA@u@Dy!**\"\"ԕO)A@\")" [group nil info gnus-override-method gnus-select-method 2 intern-soft gnus-newsrc-hashtb method 4 "native" gnus-server-to-method gnus-server-extend-method "" gnus-server-add-address gnus-get-function close-group gname string-match "^[^:]+:" 0] 5 (#$ . 6586)]) #@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) " ! \f@\f #9\n\"\f   \"0 ̕O2 )\nA@$)" [gnus-find-method-for-group group method gnus-use-cache articles gnus-cache-retrieve-headers fetch-old gnus-get-function retrieve-headers gname string-match "^[^:]+:" 0 nil] 5 (#$ . 7092)]) #@51 Request active information on GROUPS from METHOD. (defalias 'gnus-retrieve-groups #[(groups method) "; !\"\fA@\"" [method gnus-server-to-method gnus-get-function retrieve-groups groups] 3 (#$ . 7542)]) #@60 Return the type (`post' or `mail') of GROUP (and ARTICLE). (defalias 'gnus-request-type #[(group &optional article) " !\n@Ǐ*Ȃ3\n\" \n\n\"-\n͕O/\n)\")" [gnus-find-method-for-group group method request-type func G77641 (byte-code ";\f!@ \n!\n!\n #!!)" [group gnus-find-method-for-group method featurep require fboundp intern format "%s-%s" func] 6) ((error)) unknown gnus-get-function gname string-match "^[^:]+:" 0 nil article] 4 (#$ . 7761)]) #@60 Return the type (`post' or `mail') of GROUP (and ARTICLE). (defalias 'gnus-request-update-mark #[(group article mark) " !\n@Ǐ*6\n\" \n\n\".\n͕O0\n)#)" [gnus-find-method-for-group group method request-update-mark func G77642 (byte-code ";\f!@ \n!\n!\n #!!)" [group gnus-find-method-for-group method featurep require fboundp intern format "%s-%s" func] 6) ((error)) mark gnus-get-function gname string-match "^[^:]+:" 0 nil article] 4 (#$ . 8261)]) #@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) " !\n\" \"ɕO)\nA@ $)" [gnus-find-method-for-group group method gnus-get-function request-article article gname string-match "^[^:]+:" 0 nil buffer] 5 (#$ . 8770)]) #@39 Request the head of ARTICLE in GROUP. (defalias 'gnus-request-head #[(article group) " !\n# \n0 0 \"0  B e![ \"OѕOQ)\nA@#e \"  qeb#`Sd| )," [gnus-find-method-for-group group method gnus-get-function request-head t head nil res clean-up gnus-use-cache article gnus-cache-request-article fboundp gname string-match "^[^:]+:" 0 gnus-request-article nntp-server-buffer search-forward "\n\n" nnheader-fold-continuation-lines] 5 (#$ . 9173)]) #@39 Request the body of ARTICLE in GROUP. (defalias 'gnus-request-body #[(article group) " !\n\" \"ɕO)\nA@#)" [gnus-find-method-for-group group method gnus-get-function request-body article gname string-match "^[^:]+:" 0 nil] 5 (#$ . 9705)]) #@39 Post the current buffer using METHOD. (defalias 'gnus-request-post #[(method) "; !\"A@!" [method gnus-server-to-method gnus-get-function request-post] 3 (#$ . 9973)]) #@105 Request a SCAN being performed in GROUP from METHOD. If GROUP is nil, all groups on METHOD are scanned. (defalias 'gnus-request-scan #[(group method) "\n! \n\n\"-\"*ʕO,)\nA@\"*" [group gnus-find-method-for-group method t gnus-inhibit-demon gnus-get-function request-scan gname string-match "^[^:]+:" 0 nil] 4 (#$ . 10158)]) #@34 Request that METHOD update INFO. (defalias 'gnus-request-update-info #[(info method) "; !@Ǐ*9\" @\n\n\"0\n͕O2\n) A@#" [method gnus-server-to-method request-update-info group func G77643 (byte-code ";\f!@ \n!\n!\n #!!)" [group gnus-find-method-for-group method featurep require fboundp intern format "%s-%s" func] 6) ((error)) gnus-get-function info gname string-match "^[^:]+:" 0 nil] 4 (#$ . 10521)]) (put (quote gnus-request-update-info) (quote byte-optimizer) (quote byte-compile-inline-expand)) (defalias 'gnus-request-expire-articles #[(articles group &optional force) " !\n\" \"ɕO)\nA@ $)" [gnus-find-method-for-group group method gnus-get-function request-expire-articles articles gname string-match "^[^:]+:" 0 nil force] 5]) (defalias 'gnus-request-move-article #[(article group server accept-function &optional last) " !\n\" \"ɕO)\nA@ \f%)" [gnus-find-method-for-group group method gnus-get-function request-move-article article gname string-match "^[^:]+:" 0 nil accept-function last] 6]) (defalias 'gnus-request-accept-article #[(group method &optional last) "; !\n;\n!dbn c'\n!@\"!\n;P\n\n\n\"J\n͕OL\n)Q\nA@#)" [method gnus-server-to-method group gnus-group-name-to-method "\n" gnus-find-method-for-group func intern format "%s-request-accept-article" gname string-match "^[^:]+:" 0 nil last] 4]) (defalias 'gnus-request-replace-article #[(article group buffer) " !@\n\"! \"!ʕO#)\f#)" [gnus-group-name-to-method group func intern format "%s-request-replace-article" article gname string-match "^[^:]+:" 0 nil buffer] 5]) (defalias 'gnus-request-associate-buffer #[(group) " !\n\"  \" ȕO )!)" [gnus-find-method-for-group group method gnus-get-function request-associate-buffer gname string-match "^[^:]+:" 0 nil] 4]) #@56 Request a new buffer restored to the state of ARTICLE. (defalias 'gnus-request-restore-buffer #[(article group) " !\n\" \"ɕO)\nA@#)" [gnus-find-method-for-group group method gnus-get-function request-restore-buffer article gname string-match "^[^:]+:" 0 nil] 5 (#$ . 12454)]) (defalias 'gnus-request-create-group #[(group &optional method args) "; ! !\" \")ɕO+)A@ #)" [method gnus-server-to-method gnus-find-method-for-group group gnus-get-function request-create-group gname string-match "^[^:]+:" 0 nil args] 4]) (defalias 'gnus-request-delete-group #[(group &optional force) " !\n\"  \" ȕO )\n\nA@#)" [gnus-find-method-for-group group method gnus-get-function request-delete-group gname string-match "^[^:]+:" 0 nil force] 4]) (defalias 'gnus-request-rename-group #[(group new-name) " !\n\"  \" ȕO )\n \"- ȕO. )\nA@#)" [gnus-find-method-for-group group method gnus-get-function request-rename-group gname string-match "^[^:]+:" 0 nil new-name] 5]) (defalias 'gnus-close-backends #[nil "‰A@( @P!! \f ," [gnus-valid-select-methods t nil method func gnus-inhibit-demon methods fboundp intern "-request-close"] 4]) (defalias 'gnus-asynchronous-p #[(method) " #\f!\f )" [gnus-get-function method asynchronous-p t func fboundp] 4]) (defalias 'gnus-remove-denial #[(method) "; ! \"A@=\fAǠ*" [method gnus-server-to-method assoc gnus-opened-servers elem status denied closed] 4]) (provide (quote gnus-int))