;ELC   
;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:45:29 2003
;;; from file /home/pot/gnu/emacs-pretest.new/lisp/gnus/nnimap.el
;;; in Emacs version 21.3
;;; with bytecomp version 2.85.4.1
;;; 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 "`nnimap.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\304\305!\210\304\306!\210\304\307!\210\304\310!\210\304\311!\210\304\312!\210\304\313!\210\304\314!\210\304\315!\210\304\316!\210\317\320\321\322\"\322\211FB\317\323D	B\303\nB\324\322\207" [nnoo-definition-alist nnoo-state-alist current-load-list nnimap-version require cl imap nnoo nnmail nnheader mm-util gnus gnus-range gnus-start gnus-int nnimap mapcar #[(p) "C\207" [p] 1] nil "*internal-non-initialized-backend*" "nnimap 0.131"] 4)
#@74 Address of physical IMAP server.  If nil, use the virtual server's name.
(defvar nnimap-address nil (#$ . 1076))
(nnoo-define 'nnimap-address nil)
#@101 Port number on physical IMAP server.
If nil, defaults to 993 for SSL connections and 143 otherwise.
(defvar nnimap-server-port nil (#$ . 1230))
(nnoo-define 'nnimap-server-port nil)
#@114 If non-nil, do crossposting if several split methods match the mail.
If nil, the first match found will be used.
(defvar nnimap-split-crosspost t (#$ . 1419))
#@168 *Name of mailbox to split mail from.

Mail is read from this mailbox and split according to rules in
`nnimap-split-rules'.

This can be a string or a list of strings.
(defvar nnimap-split-inbox nil (#$ . -1585))
#@1966 *Mail will be split according to theese rules.

Mail is read from mailbox(es) specified in `nnimap-split-inbox'.

If you'd like, for instance, one mail group for mail from the
"gnus-imap" mailing list, one group for junk mail and leave
everything else in the incoming mailbox, you could do something like
this:

(setq nnimap-split-rule '(("INBOX.gnus-imap"   "From:.*gnus-imap")
			  ("INBOX.junk"        "Subject:.*buy")))

As you can see, `nnimap-split-rule' is a list of lists, where the first
element in each "rule" is the name of the IMAP mailbox, and the
second is a regexp that nnimap will try to match on the header to find
a fit.

The second element can also be a function.  In that case, it will be
called narrowed to the headers with the first element of the rule as
the argument.  It should return a non-nil value if it thinks that the
mail belongs in that group.

This variable can also have a function as its value, the function will
be called with the headers narrowed and should return a group where it
thinks the article should be splitted to.  See `nnimap-split-fancy'.

To allow for different split rules on different virtual servers, and
even different split rules in different inboxes on the same server,
the syntax of this variable have been extended along the lines of:

(setq nnimap-split-rule
      '(("my1server"    (".*"    (("ding"    "ding@gnus.org")
                                  ("junk"    "From:.*Simon")))
        ("my2server"    ("INBOX" nnimap-split-fancy))
        ("my[34]server" (".*"    (("private" "To:.*Simon")
                                  ("junk"    my-junk-func)))))

The virtual server name is in fact a regexp, so that the same rules
may apply to several servers.  In the example, the servers
"my3server" and "my4server" both use the same rules.  Similarly,
the inbox string is also a regexp.  The actual splitting rules are as
before, either a function, or a list with group/regexp or
group/function elements.
(defvar nnimap-split-rule nil (#$ . -1805))
#@265 The predicate used to find articles to split.
If you use another IMAP client to peek on articles but always would
like nnimap to split them once it's started, you could change this to
"UNDELETED". Other available predicates are available in
RFC2060 section 6.4.4.
(defvar nnimap-split-predicate "UNSEEN UNDELETED" (#$ . 3821))
#@39 Like `nnmail-split-fancy', which see.
(defvar nnimap-split-fancy nil (#$ . 4154))
#@11 Obsolete.
(defvar nnimap-auth-method nil (#$ . 4242))
(nnoo-define 'nnimap-auth-method nil)
#@495 How nnimap will connect to the server.

The default, nil, will try to use the "best" method the server can
handle.

Change this if

1) you want to connect with SSL.  The SSL integration with IMAP is
   brain-dead so you'll have to tell it specifically.

2) your server is more capable than your environment -- i.e. your
   server accept Kerberos login's but you haven't installed the
   `imtest' program or your machine isn't configured for Kerberos.

Possible choices: kerberos4, ssl, network
(defvar nnimap-stream nil (#$ . 4341))
(nnoo-define 'nnimap-stream nil)
#@460 How nnimap authenticate itself to the server.

The default, nil, will try to use the "best" method the server can
handle.

There is only one reason for fiddling with this variable, and that is
if your server is more capable than your environment -- i.e. you
connect to a server that accept Kerberos login's but you haven't
installed the `imtest' program or your machine isn't configured for
Kerberos.

Possible choices: kerberos4, cram-md5, login, anonymous.
(defvar nnimap-authenticator nil (#$ . 4914))
(nnoo-define 'nnimap-authenticator nil)
#@87 Directory to keep NOV cache files for nnimap groups.
See also `nnimap-nov-file-name'.
(defvar nnimap-directory (nnheader-concat gnus-directory "overview/") (#$ . 5465))
(nnoo-define 'nnimap-directory nil)
#@259 NOV cache base filename.
The group name and `nnimap-nov-file-name-suffix' will be appended.  A
typical complete file name would be
~/News/overview/nnimap.pdc.INBOX.ding.nov, or
~/News/overview/nnimap/pdc/INBOX/ding/nov if
`nnmail-use-long-file-names' is nil
(defvar nnimap-nov-file-name "nnimap." (#$ . 5677))
(nnoo-define 'nnimap-nov-file-name nil)
#@37 Suffix for NOV cache base filename.
(defvar nnimap-nov-file-name-suffix ".novcache" (#$ . 6033))
(nnoo-define 'nnimap-nov-file-name-suffix nil)
#@237 If non-nil, nnimap will never generate or use a local nov database for this backend.
Using nov databases will speed up header fetching considerably.
Unlike other backends, you do not need to take special care if you
flip this variable.
(defvar nnimap-nov-is-evil nil (#$ . 6184))
(nnoo-define 'nnimap-nov-is-evil nil)
#@522 Whether to expunge a group when it is closed.
When a IMAP group with articles marked for deletion is closed, this
variable determine if nnimap should actually remove the articles or
not.

If always, nnimap always perform a expunge when closing the group.
If never, nnimap never expunges articles marked for deletion.
If ask, nnimap will ask you if you wish to expunge marked articles.

When setting this variable to `never', you can only expunge articles
by using `G x' (gnus-group-nnimap-expunge) from the Group buffer.
(defvar nnimap-expunge-on-close 'always (#$ . 6509))
(nnoo-define 'nnimap-expunge-on-close nil)
#@526 A string LIMIT or list of strings with mailbox wildcards used to limit available groups.
See below for available wildcards.

The LIMIT string can be a cons cell (REFERENCE . LIMIT), where
REFERENCE will be passed as the first parameter to LIST/LSUB.  The
semantics of this are server specific, on the University of Washington
server you can specify a directory.

Example:
 '("INBOX" "mail/*" ("~friend/mail/" . "list/*"))

There are two wildcards * and %. * matches everything, % matches
everything in the current hierarchy.
(defvar nnimap-list-pattern "*" (#$ . 7133))
(nnoo-define 'nnimap-list-pattern nil)
#@591 IMAP support a news-like mode, also known as bulletin board mode, where replies is sent via IMAP instead of SMTP.

This variable should contain a regexp matching groups where you wish
replies to be stored to the mailbox directly.

Example:
  '("^[^I][^N][^B][^O][^X].*$")

This will match all groups not beginning with "INBOX".

Note that there is nothing technically different between mail-like and
news-like mailboxes.  If you wish to have a group with todo items or
similar which you wouldn't want to set up a mailing list for, you can
use this to make replies go directly to the group.
(defvar nnimap-news-groups nil (#$ . 7749))
(nnoo-define 'nnimap-news-groups nil)
#@34 Obsolete.  Use `nnimap-address'.
(defvar nnimap-server-address nil (#$ . 8427))
(nnoo-define 'nnimap-server-address nil)
#@64 Authorization information for IMAP servers.  In .netrc format.
(custom-declare-variable 'nnimap-authinfo-file '"~/.authinfo" '(#$ . 8554) :type '(choice file (repeat :tag "Entries" :menu-tag "Inline" (list :format "%v" :value ("" ("login" . "") ("password" . "")) (string :tag "Host") (checklist :inline t (cons :format "%v" (const :format "" "login") (string :format "Login: %v")) (cons :format "%v" (const :format "" "password") (string :format "Password: %v")))))))
#@104 If non-nil, nnimap check whether articles still exist on server before using data stored in NOV cache.
(custom-declare-variable 'nnimap-prune-cache 't '(#$ . 9030) :type 'boolean)
#@166 Method to use to request a list of all folders from the server.
If this is 'imap-mailbox-lsub, then use a server-side subscription list to
restrict visible folders.
(defvar nnimap-request-list-method 'imap-mailbox-list (#$ . 9217))
#@92 Name of buffer to record debugging info.
For example: (setq nnimap-debug "*nnimap-debug*")
(defvar nnimap-debug nil (#$ . 9455))
(byte-code "\301B\306\301!\204\f \307\302B\306\302!\204 \307\303B\306\303!\204$ \307\310B\304B\306\304!\2044 \311\305B\306\305!\204@ \312\313B\307\207" [current-load-list nnimap-current-move-server nnimap-current-move-group nnimap-current-move-article nnimap-progress-chars nnimap-progress-how-often boundp nil nnimap-length (124 47 45 92) 20 nnimap-counter] 2)
#@61 Gnus callback the nnimap asynchronous callback should call.
(defvar nnimap-callback-callback-function nil (#$ . 9972))
#@73 Which buffer the asynchronous article prefetch callback should work in.
(defvar nnimap-callback-buffer nil (#$ . 10097))
(byte-code "\301B\304\301!\204\f \305\302B\304\302!\204 \305\303B\304\303!\204$ \305\306\307!\207" [current-load-list nnimap-server-buffer-alist nnimap-current-server nnimap-server-buffer boundp nil nnoo-define-basics-1 nnimap] 2)
#@54 Return buffer for SERVER, if nil use current server.
(defalias 'nnimap-get-server-buffer #[(server) "\304\206 	\n\"\211A@)\207" [server nnimap-current-server nnimap-server-buffer-alist x assoc] 4 (#$ . 10465)])
(put 'nnimap-get-server-buffer 'byte-optimizer 'byte-compile-inline-expand)
#@116 Return buffer for SERVER, changing the current server as a side-effect.
If SERVER is nil, uses the current server.
(defalias 'nnimap-possibly-change-server #[(server) "\206 	\211\305\206 	\n\"\211A@*\211\207" [server nnimap-current-server nnimap-server-buffer-alist x nnimap-server-buffer assoc] 5 (#$ . 10762)])
#@65 Verify stored uidvalidity match current one in GROUP on SERVER.
(defalias 'nnimap-verify-uidvalidity #[(group server) "\306\307\310\311	\"!\"\312\313!\314\n\313\"\315\316!!\317	\320\232\203' \321\202( 	\322\322\f\260\323\" \204D \324\316\"!\203M \316\"\202h \316\325\326\327!\"#\330\"!##+$\"\"%\f\203\205 \f\232\204{ \331%!\202\215 \332\n\313#\210\323\202\215 \333\n\313B\"\210\323.\207" [group server gnusgroup new-uidvalidity old-uidvalidity nnimap-directory gnus-group-prefixed-name gnus-server-to-method format "nnimap:%s" imap-mailbox-get uidvalidity gnus-group-get-parameter file-name-as-directory expand-file-name nnheader-translate-file-chars "" "unnamed" "." t file-exists-p mm-encode-coding-string 46 47 subst-char-in-string gnus-delete-file gnus-group-set-parameter gnus-group-add-parameter dir nnimap-nov-file-name nnimap-nov-file-name-suffix nameuid nnmail-use-long-file-names to from string nnmail-pathname-coding-system file] 8 (#$ . 11089)])
#@83 Function called before iterating through mailboxes with
`nnimap-find-minmax-uid'.
(defalias 'nnimap-before-find-minmax-bugworkaround #[nil "\301!?\206\n \302!\207" [nnimap-server-buffer imap-current-mailbox imap-mailbox-unselect] 2 (#$ . 12094)])
#@113 Find lowest and highest active article nummber in GROUP.
If EXAMINE is non-nil the group is selected read-only.
(defalias 'nnimap-find-minmax-uid #[(group &optional examine) "rq\210\305	\n\"\205* \306\211\307\310!\311V\203# \312\313\314\306\315$\210\316\317\320\"\210\307\310!\fE*)\207" [nnimap-server-buffer group examine maxuid minuid imap-mailbox-select nil imap-mailbox-get exists 0 imap-fetch "1,*" "UID" nouidfetch imap-message-map #[(uid Uid) "\203\n 	^\202 	\n\203 \n	]\202 	\211\207" [minuid uid maxuid] 2] UID] 5 (#$ . 12350)])
#@62 Make GROUP the current group, and SERVER the current server.
(defalias 'nnimap-possibly-change-group #[(group &optional server) "\305!\205O r	q\210\n\203 \306\n!\203 \202N \307\n!\203I \310\n\206% \f\"\204; \311\312\313\n\"!\204; \314\315\316\n\"!\203? \202N \317 \210\320\321\n\"\202N \322\323\324 \")\207" [server nnimap-server-buffer group imap-current-mailbox nnimap-current-server nnimap-possibly-change-server imap-current-mailbox-p imap-mailbox-select nnimap-verify-uidvalidity zerop imap-mailbox-get exists yes-or-no-p format "nnimap: Group %s is not uidvalid.  Continue? " imap-mailbox-unselect error "nnimap: Group %s is not uid-valid" nnheader-report nnimap imap-error-text] 4 (#$ . 12905)])
#@56 Return STRING with all whitespace replaced with space.
(defalias 'nnimap-replace-whitespace #[(string) "\205 \301\302\"\203 \303\304\305\211$\202 \207" [string string-match "[\n	]+" replace-match " " t] 5 (#$ . 13620)])
#@72 Hook to insert NOV line for current article into `nntp-server-buffer'.
(defalias 'nnimap-retrieve-headers-progress #[nil "\247\203% \306	T\211\n\246!\203% V\203% \307\310\311	\fG\n_\246\n\245\f8#\210rq\210\312\211\211\211\211()*+,r-q\210.)/(\313\314\315!\203W \316\317)\320\"@8\202\\ \317)\321\"!,\322rpq\210\317.\323\")!+\317.\324\"*)\325\326\327\330!!0\331\216r0q\210\332 \210,c\210\333 \210\334 \210\335ed\336\337$\210\340\341!\2111\342)I\2101\310*I\2101\343+I\2101\344\345\346\347 ()$I\2101,!.\207" [nnmail-large-newsgroup nnimap-counter nnimap-progress-how-often nnimap-length nnimap-progress-chars nntp-server-buffer zerop nnheader-message 6 "nnimap: Retrieving headers... %c" nil nnimap-demule imap-capability IMAP4rev1 2 imap-message-get BODYDETAIL RFC822\.HEADER imap-body-lines BODY RFC822\.SIZE nnheader-insert-nov get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) buffer-disable-undo nnheader-ms-strip-cr nnheader-fold-continuation-lines subst-char-in-region 9 32 nnheader-parse-head naked 0 7 8 format "%s %s:%d" system-name mbx uid chars lines headers nnimap-server-buffer imap-current-message imap-current-mailbox #1# head] 9 (#$ . 13855)])
#@67 Get a range of articles to fetch based on ARTICLES and FETCH-OLD.
(defalias 'nnimap-retrieve-which-headers #[(articles fetch-old) "rq\210	\242\247\2031 \303\304\305\306\307\310\n\205' \n\247\203\" \311	@\nZ]\202# \311	@SB!	\"!!P!\2025 \312\313	\")\207" [nnimap-server-buffer articles fetch-old imap-search "UID " imap-range-to-message-set gnus-compress-sequence append gnus-uncompress-sequence 1 mapcar #[(msgid) "\301\302\303\"!\207" [msgid imap-search format "HEADER Message-Id %s"] 4]] 9 (#$ . 15149)])
#@36 Make pathname for GROUP on SERVER.
(defalias 'nnimap-group-overview-filename #[(group server) "\306\307!!\310\311\n\312\313\314\"!\"\304\"\315\316\232\203 \317\202  \320\n&\260\321\"'\315\316\232\2036 \317\2027 \320\n\320\f&\260\321\"()\204R \322\307'	\"!\203Z \307'	\"\202t \307\323'\324\325*+,\326+*,#+-\"	\".)\204\205 \322\307(	\"!\203\215 \307(	\"\202\247 \307\323(\324\325*+,\326+*,#+-\"	\"/\322.!\203\344 \322/!\204\344 \327\330!\210\331\332!\210\333\334/!!\210\335\336\337\217\204\344 \340\341\342\217\203\334 \343.!\210\202\344 \344\345./#\210/.\207" [nnimap-directory dir group server uidvalidity nnimap-nov-file-name file-name-as-directory expand-file-name gnus-group-get-parameter gnus-group-prefixed-name gnus-server-to-method format "nnimap:%s" nnheader-translate-file-chars "" "unnamed" "." t file-exists-p mm-encode-coding-string 46 47 subst-char-in-string message "nnimap: Upgrading novcache filename..." sit-for 1 gnus-make-directory file-name-directory #1=#:G97316 (byte-code "\302	\"\210\303\207" [oldfile newfile rename-file t] 3) ((error)) #2=#:G97317 (byte-code "\302	\"\210\303\207" [oldfile newfile copy-file t] 3) ((error)) delete-file error "Can't rename `%s' to `%s'" nnimap-nov-file-name-suffix name nameuid nnmail-use-long-file-names to from string nnmail-pathname-coding-system oldfile newfile] 8 (#$ . 15663)])
(defalias 'nnimap-retrieve-headers-from-file #[(group server) "rq\210\306	\n\"\307!\2056 \310!\210\311\312!\210\313\314\315\217\316\317\320\217\211\247\2031 \f\247\2031 \fB\2025 \321 \210\312**\207" [nntp-server-buffer group server nov max min nnimap-group-overview-filename file-exists-p mm-insert-file-contents set-buffer-modified-p nil #1=#:G97318 (byte-code "eb\210\300p!\207" [read] 2) ((error)) #2=#:G97319 (byte-code "db\210\300y\210\301p!\207" [-1 read] 2) ((error)) erase-buffer] 5])
(defalias 'nnimap-retrieve-headers-from-server #[(articles group server) "rq\210\306\307	!\310\311\312	!\313\314\315\316!\"\317\320!\203' \321\322\"\202, \321\323\")P\"\210\247\205A V\205A \324\325\326\",\207" [nnimap-server-buffer articles nnimap-counter nnimap-length imap-fetch-data-hook nnmail-extra-headers (nnimap-retrieve-headers-progress) gnus-range-length 0 imap-fetch imap-range-to-message-set "(UID RFC822.SIZE BODY " append (Subject From Date Message-Id References In-Reply-To Xref) copy-sequence imap-capability IMAP4rev1 format "BODY.PEEK[HEADER.FIELDS %s])" "RFC822.HEADER.LINES %s)" nnheader-message 6 "nnimap: Retrieving headers...done" headers nnmail-large-newsgroup] 7])
(defalias 'nnimap-use-nov-p #[(group server) "\206$ 	\206$ \304\305\306\n\"!!\205 \307\306\n\"!?\205$ \310\311\306\n\"\"\207" [gnus-nov-is-evil nnimap-nov-is-evil group server gnus-make-directory file-name-directory nnimap-group-overview-filename file-writable-p message "nnimap: Nov cache not writable, %s"] 5])
(defalias 'nnimap-retrieve-headers #[(articles &optional group server fetch-old) "\306	\"\205\322 r\nq\210\307 \210\310	\"\203  \311\312!	#\210\202\320 \313\211\211\211\314\"\211@\315!@\211\203\317 \316	\"\211\203\262 @W\203^ eb\210\311@SB	#\210\fAV\203t db\210\311AT\fB	#\210\203\272 eb\210\317\"\313 \211!\203\256 !@ \320\321\322 \"\313\323#\203\245 \324 \210`\325y\210`|\210!A\211!\204\212 *\202\272 \311\fB	#\210\326 \203\312 \327\325d\330	\"\313\331%\210\332\f\"\210,)\333\207" [group server nntp-server-buffer articles high low nnimap-possibly-change-group erase-buffer nnimap-use-nov-p nnimap-retrieve-headers-from-server gnus-compress-sequence nil nnimap-retrieve-which-headers last nnimap-retrieve-headers-from-file gnus-set-difference re-search-forward format "^%d	" t beginning-of-line 1 buffer-modified-p nnmail-write-region nnimap-group-overview-filename nomesg nnheader-nov-delete-outside-range nov cached uids fetch-old nnimap-prune-cache uid #1=#:--dolist-temp--97320] 7])
(nnoo-register-function 'nnimap-retrieve-headers)
(defalias 'nnimap-open-connection #[(server) "\306	\n\f%\204 \307\310\311#\207\312\313\f\"\204( \312\314\f\"\204( \315\f!\210\307\310\316#\210\317!	\2038 \320	!\2029 \321\322\206H \206H \321$\323\324\"\323\325\" \326 \f#\203v \fD!B\211!\327!\210\202\203 \315\f!\210\330\f!\210\307\310\331#-\207" [nnimap-address nnimap-server-port nnimap-stream nnimap-authenticator nnimap-server-buffer server imap-open nnheader-report nnimap "Can't open connection to server %s" imap-capability IMAP4 IMAP4rev1 imap-close "Server %s is not IMAP4 compliant" gnus-parse-netrc int-to-string "imap" gnus-netrc-machine gnus-netrc-get "login" "password" imap-authenticate nnimap-possibly-change-server kill-buffer "Could not authenticate to %s" nnimap-authinfo-file list port nnimap-server-address alist user passwd nnimap-server-buffer-alist] 6])
(defalias 'nnimap-open-server #[(server &optional defs) "\304 \210\305!\203 \306\207\303	\236\204 \303\307PD	B\310	\236\204; \311	\236\2035 \310\311	\236\211A@)D	B\202; \310D	B\312\313	#\210r\314!q\210\312\313	#\210)\203X \315!\206[ \316!\207" [server defs x nnimap-server-buffer nnheader-init-server-buffer nnimap-server-opened t " *nnimap* " nnimap-address nnimap-server-address nnoo-change-server nnimap get-buffer-create imap-opened nnimap-open-connection] 5])
(nnoo-register-function 'nnimap-open-server)
#@214 Whether SERVER is opened.
If SERVER is the current virtual server, and the connection to the
physical server is alive, this function return a non-nil value.  If
SERVER is nil, it is treated as the current server.
(defalias 'nnimap-server-opened #[(&optional server) "\204 	\205$ \304\305\206 	\"\205$ \306\307\206 	\n\"\211A@*!\207" [server nnimap-current-server nnimap-server-buffer-alist x nnoo-server-opened nnimap imap-opened assoc] 5 (#$ . 21064)])
(nnoo-register-function 'nnimap-server-opened)
#@129 Close connection to server and free all resources connected to it.
Return nil if the server couldn't be closed for some reason.
(defalias 'nnimap-close-server #[(&optional server) "\206 	\305!\204  \306\307\206 	\n\"\211A@*!\203M \310\307\206) 	\n\"\211A@*!\210\311\307\206; 	\n\"\211A@*!\210\312\312\313\n\"\314\315\")\207" [server nnimap-current-server nnimap-server-buffer-alist x nnimap-server-buffer nnimap-server-opened imap-opened assoc imap-close kill-buffer nil delq nnoo-close-server nnimap] 5 (#$ . 21581)])
(nnoo-register-function 'nnimap-close-server)
#@263 Close connection to all servers and free all resources that the backend have reserved.
All buffers that have been created by that
backend should be killed.  (Not the nntp-server-buffer, though.) This
function is generally only called when Gnus is shutting down.
(defalias 'nnimap-request-close #[nil "\301\302\"\210\303\211\207" [nnimap-server-buffer-alist mapcar #[(server) "\301@!\207" [server nnimap-close-server] 2] nil] 3 (#$ . 22175)])
(nnoo-register-function 'nnimap-request-close)
#@59 This function returns the last error message from server.
(defalias 'nnimap-status-message #[(&optional server) "\301!\205\n \302\303\"\207" [server nnimap-possibly-change-server nnoo-status-message nnimap] 3 (#$ . 22673)])
(nnoo-register-function 'nnimap-status-message)
(defalias 'nnimap-demule #[(string) "\301\302!\203 \303\302K!\203 \302\202 \304\206 \305!\207" [string fboundp string-as-multibyte subrp identity ""] 2])
(defalias 'nnimap-callback #[nil "\303\304\305\"\210rq\210r	q\210\306\307\310!\203 \311\312\313 \314\"@8\202$ \312\313 \315\"!)c\210\316 \210\n\317!)\207" [nnimap-callback-buffer nnimap-server-buffer nnimap-callback-callback-function remove-hook imap-fetch-data-hook nnimap-callback nnimap-demule imap-capability IMAP4rev1 2 imap-message-get imap-current-message BODYDETAIL RFC822 nnheader-ms-strip-cr t] 5])
(defalias 'nnimap-request-article-part #[(article part prop &optional group server to-buffer detail) "\306	\"\205\210 \n;\203 \307\310\311\n\"\"\242\202 \n\211\205\207 \312\313\314\n#\210\f\204p r\206. q\210\315 \210\316\n\317%\320 \203L \321@8\202N !c\210)\322 \210\312\313\323\n#\210o\203i \324\325\326\327!#\202l \nB)\202\207 \330\331\332\"\210\f!\"\333\n\317$\210\nB)\207" [group server article nnimap-server-buffer nnheader-callback-function to-buffer nnimap-possibly-change-group imap-search format "HEADER Message-Id %s" gnus-message 10 "nnimap: Fetching (part of) article %d..." erase-buffer imap-fetch nil nnimap-demule 2 nnheader-ms-strip-cr "nnimap: Fetching (part of) article %d...done" nnheader-report nnimap "No such article: %s" imap-error-text add-hook imap-fetch-data-hook nnimap-callback imap-fetch-asynch nntp-server-buffer part prop data detail nnimap-callback-callback-function nnimap-callback-buffer] 7])
(defalias 'nnimap-asynchronous-p #[nil "\300\207" [t] 1])
(nnoo-register-function 'nnimap-asynchronous-p)
(defalias 'nnimap-request-article #[(article &optional group server to-buffer) "\305\306\"\203 \307	\310\311\n\f\312&\207\307	\313\314\n\f&\207" [nnimap-server-buffer article group server to-buffer imap-capability IMAP4rev1 nnimap-request-article-part "BODY.PEEK[]" BODYDETAIL detail "RFC822.PEEK" RFC822] 8])
(nnoo-register-function 'nnimap-request-article)
(defalias 'nnimap-request-head #[(article &optional group server to-buffer) "\305\306\"\203 \307	\310\311\n\f\312&\207\307	\313\314\n\f&\207" [nnimap-server-buffer article group server to-buffer imap-capability IMAP4rev1 nnimap-request-article-part "BODY.PEEK[HEADER]" BODYDETAIL detail "RFC822.HEADER" RFC822\.HEADER] 8])
(nnoo-register-function 'nnimap-request-head)
(defalias 'nnimap-request-body #[(article &optional group server to-buffer) "\305\306\"\203 \307	\310\311\n\f\312&\207\307	\313\314\n\f&\207" [nnimap-server-buffer article group server to-buffer imap-capability IMAP4rev1 nnimap-request-article-part "BODY.PEEK[TEXT]" BODYDETAIL detail "RFC822.TEXT.PEEK" RFC822\.TEXT] 8])
(nnoo-register-function 'nnimap-request-body)
(defalias 'nnimap-request-group #[(group &optional server fast) "\305\306\307\310\311\312\313	\"!\"\n\"J8	#\210\314	\"\205\\ \315 \210\316\f\203( \202[ \317\320\"\211\2049 \321\322\323#\202[ \324\325@\206A \326\327A@\206I \327]\3068\206Q \326%\210\321\322\330#\210\320)\207" [group server gnus-newsrc-hashtb info fast nnimap-request-update-info-internal 2 intern-soft gnus-group-prefixed-name gnus-server-to-method format "nnimap:%s" nnimap-possibly-change-group nnimap-before-find-minmax-bugworkaround nil nnimap-find-minmax-uid t nnheader-report nnimap "Could not get active info for %s" nnheader-insert "211 %d %d %d %s\n" 0 1 "Group %s selected"] 10])
(nnoo-register-function 'nnimap-request-group)
(defalias 'nnimap-close-group #[(group &optional server) "rq\210\305 \205H \306	\n\"\205H \307>\203 \310 \210\311 \210\202F \312>\203C \313\314!\203= \315\316\317\f\"!\203= \310 \210\311 \210\202F \320 \210\202F \320 \210\f?)\207" [nnimap-server-buffer group server nnimap-expunge-on-close imap-current-mailbox imap-opened nnimap-possibly-change-group 'always imap-mailbox-expunge imap-mailbox-close 'ask imap-search "DELETED" gnus-y-or-n-p format "Expunge articles in group `%s'? " imap-mailbox-unselect] 4])
(defalias 'nnimap-pattern-to-list-arguments #[(pattern) "\301\302<\203 A<\203 \202 C\"\207" [pattern mapcar #[(p) "\242\243\206 B\207" [p] 2]] 3])
(defalias 'nnimap-request-list #[(&optional server) "\306!\205\244 r	q\210\307 \210)\310\311\312G\313V\203 \314P\202 \315#\210\316 \210r\nq\210\317!\320\211\203\217 @\fA\f@\"\320\211\203\207 @\321\322\323\"\235\204~ \324\325\"\211\203} r	q\210\326\327\3308\206o \313\331A@\206x \331]$c\210))A\211\204E *A\211\2042 +\310\311\332G\313V\203\240 \314P\202\241 \315#\210\333\207" [server nntp-server-buffer nnimap-server-buffer nnimap-list-pattern pattern #1=#:--dolist-temp--97321 nnimap-possibly-change-server erase-buffer gnus-message 5 "nnimap: Generating active list%s..." 0 " for " "" nnimap-before-find-minmax-bugworkaround nnimap-pattern-to-list-arguments nil "\\NoSelect" imap-mailbox-get list-flags nnimap-find-minmax-uid examine format "\"%s\" %d %d y\n" 2 1 "nnimap: Generating active list%s...done" t nnimap-request-list-method mbx #2=#:--dolist-temp--97322 info] 8])
(nnoo-register-function 'nnimap-request-list)
(defalias 'nnimap-request-post #[(&optional server) "\306\307\310\311\312!\313\"!\314\211\203_ \n@\315	\"\316\f\"J\204L \317\f!\204L \320\321\322\f\"!\203G \323\f\"\203@ \317\f\314\211$\204L \324\325\f\"\204L \324\326\f\"\210\327	A@\"\204W \314)\nA\211\204 \314+\207" [success mbx #1=#:--dolist-temp--97323 gnus-command-method to-newsgroup gnus-active-hashtb t message-unquote-tokens message-tokenize-header message-fetch-field "Newsgroups" ", " nil gnus-group-prefixed-name intern-soft gnus-activate-group gnus-y-or-n-p format "No such group: %s.  Create it? " gnus-request-create-group error "Couldn't create group %s" "No such group: %s" nnimap-request-accept-article] 6])
(nnoo-register-function 'nnimap-request-post)
(defalias 'nnimap-retrieve-groups #[(groups &optional server) "\306!\205] \307\310\311\"\210r	q\210\312 \210\313 \210\n\314\211\203V \f@\307\315\316#\210\317\320\321#\235\204O \322\323\"\324\325\3268\206A \327\330A@\206J \330]$c\210)\fA\211\204 +\307\310\331\"\210\332\207" [server nntp-server-buffer groups group #1=#:--dolist-temp--97324 nnimap-server-buffer nnimap-possibly-change-server gnus-message 5 "nnimap: Checking mailboxes..." erase-buffer nnimap-before-find-minmax-bugworkaround nil 7 "nnimap: Checking mailbox %s" "\\NoSelect" imap-mailbox-get list-flags nnimap-find-minmax-uid examine format "\"%s\" %d %d y\n" 2 0 1 "nnimap: Checking mailboxes...done" active info] 7])
(nnoo-register-function 'nnimap-retrieve-groups)
(defalias 'nnimap-request-update-info-internal #[(group info &optional server) "\306	\"\205\207 \n\205\207 rq\210\307\310\311\n@#\210\312\313!\203] \314\211\315\316\n8!\317\320!\321\f\"\322\317\323!\"\324\325\"\326\327\"\211@\250\203T A\204T @@BC\202U \nAA\240\210*\330\331\"\"\210\332\n\333\334\335\336\334\337\n8\"\243\336\340\337\n8\"\243\"\337\n8#\337#\210\307\310\341\n@#\210\n)\207" [group server info nnimap-server-buffer unseen seen nnimap-possibly-change-group gnus-message 5 "nnimap: Updating info for %s..." nnimap-mark-permanent-p read nil gnus-uncompress-range 2 imap-search "UNSEEN UNDELETED" gnus-set-difference append "SEEN" sort < gnus-compress-sequence t mapcar #[(pred) "\302A!\205% \303A!\304\305!\235\205% \306	\307A\310\311\312A!!!\313	8#\313#\207" [pred info nnimap-mark-permanent-p nnimap-mark-to-flag imap-mailbox-get flags gnus-info-set-entry nnimap-update-alist-soft gnus-compress-sequence imap-search nnimap-mark-to-predicate 3] 8] gnus-info-set-entry nnimap-update-alist-soft tick gnus-remove-from-range assoc 3 dormant "nnimap: Updating info for %s...done" gnus-article-mark-lists] 11])
(nnoo-register-function 'nnimap-request-update-info-internal)
(defalias 'nnimap-request-type #[(group &optional article) "\203 \302	\"\203 \303\207\304\207" [nnimap-news-groups group string-match news mail] 3])
(nnoo-register-function 'nnimap-request-type)
(defalias 'nnimap-request-set-mark #[(group actions &optional server) "\306	\"\203\232 r\nq\210\307\310\311\312#\210\f\211A@\211\203\223 @A@\3138\307\314\315\"\316>\203A \317B\320\321\"\210\203\217 \203\217 \322=\203f \323\324!\325\307\326#\"\210\202\217 \327=\203| \330\324!\325\307\326#\"\210\202\217 \331=\203\217 \332\324!\325\307\326#\"\210,\202 \310\311\333#\210*\307\207" [group server nnimap-server-buffer action actions marks nnimap-possibly-change-group nil gnus-message 7 "nnimap: Setting marks in %s..." 2 delq cache dormant tick mapcar #[(mark) "\302\303!!\205 	B\211\207" [mark marks imap-message-flag-permanent-p nnimap-mark-to-flag] 3] del imap-message-flags-del imap-range-to-message-set nnimap-mark-to-flag t add imap-message-flags-add set imap-message-flags-set "nnimap: Setting marks in %s...done" cmdmarks what range] 6])
(nnoo-register-function 'nnimap-request-set-mark)
#@55 Like nnmail-split-fancy, but uses nnimap-split-fancy.
(defalias 'nnimap-split-fancy #[nil "\301 )\207" [nnimap-split-fancy nnmail-split-fancy] 1 (#$ . 31884)])
(defalias 'nnimap-split-to-groups #[(rules) "rq\210eb\210\304\305\306\307#\203 \310\311\307\211#\210\202 \312	!\203# 	 \202+ \306\211\313\314\215*)\207" [nntp-server-buffer rules regrepp to-groups re-search-forward "\\(?\n[ 	]+\\)+" nil t replace-match " " functionp split-done (byte-code "\306\211\203] \n@\211@	\211A@)eb\210\f;\203+ \307\310\"\311\f\306\312#\202. \f!\203U \313\"\204U \203D \314!\202E B\204U \315\316\"\210*\nA\211\204 \306*\207" [rules rule #1=#:--dolist-temp--97325 x regexp group nil string-match "\\\\[0-9&]" re-search-forward t assoc nnmail-expand-newtext throw split-done regrepp to-groups nnimap-split-crosspost] 5)] 4])
(defalias 'nnimap-assoc-match #[(key alist) "\303	\203 \204 \304	@@\n\"\203 	@	A\211\204 )\207" [element alist key nil string-match] 4])
(defalias 'nnimap-split-find-rule #[(server inbox) "<\203. @<\203. \211@A)C\203. \211@A)@<\203. \304\n\304\"A\"\211A@)\207\207" [nnimap-split-rule x inbox server nnimap-assoc-match] 6])
(defalias 'nnimap-split-find-inbox #[(server) "<\203 \207C\207" [nnimap-split-inbox] 1])
(defalias 'nnimap-split-articles #[(&optional group server) "\306!\205\273 r	q\210\307\211\211\310!\n\211A@\211\203\271 \311\f!\203\271 \312\f\"\211\203\252 \313!\307\211\203\251 @\314!\203\240 \307\315!\307 \211!\203\222 !@ \316\317! \307\320$\203 \321\322\f %\210\323 \324BC\"B\"\202\211 \321\325\f %\210!A\211!\204T *\203\240 \326\327\330\"\331\"\210A\211\204: *\332\f!\203 \333 \210\334 \210\202 -\323\207" [server nnimap-server-buffer inboxes removeorig inbox rule nnimap-possibly-change-server nil nnimap-split-find-inbox nnimap-possibly-change-group nnimap-split-find-rule imap-search nnimap-request-head nnimap-split-to-groups imap-message-copy number-to-string nocopyuid message "IMAP split moved %s:%s:%d to %s" t 0 "IMAP split failed to move %s:%s:%d to %s" imap-message-flags-add format "%d" "\\Seen \\Deleted" imap-mailbox-select imap-mailbox-expunge imap-mailbox-close nnimap-split-predicate article #1=#:--dolist-temp--97326 to-group #2=#:--dolist-temp--97327 nnmail-split-history] 8])
(defalias 'nnimap-request-scan #[(&optional group server) "\302	\"\207" [group server nnimap-split-articles] 3])
(nnoo-register-function 'nnimap-request-scan)
(defalias 'nnimap-request-newgroups #[(date &optional server) "\306!\205\225 r	q\210\307\310\311G\312V\203 \313\202 \314$\210\315 \210\316 \210\317\n!\320\211\203\200 \f@\321\322@\320$\320\211\203x @\323\324\215\204o \325\326\"\211\203n \327\330\3318\206a \312\332A@\206j \332]$c\210)A\211\204? *\fA\211\204, *\307\310\333G\312V\203\217 \313\202\220 \314$\210)\334\207" [server nntp-server-buffer nnimap-list-pattern pattern #1=#:--dolist-temp--97328 nnimap-server-buffer nnimap-possibly-change-server gnus-message 5 "nnimap: Listing subscribed mailboxes%s%s..." 0 " on " "" erase-buffer nnimap-before-find-minmax-bugworkaround nnimap-pattern-to-list-arguments nil imap-mailbox-lsub "*" found (byte-code "\304\305	#\306\211\203\" @\211\227\307\230\203 \310\311\312\"\210A\211\204\f *\306\207" [mbx nnimap-server-buffer mailbox #2=#:--dolist-temp--97330 imap-mailbox-get list-flags nil "\\noselect" throw found t] 5) nnimap-find-minmax-uid examine format "\"%s\" %d %d y\n" 2 1 "nnimap: Listing subscribed mailboxes%s%s...done" t mbx #3=#:--dolist-temp--97329 info] 8])
(nnoo-register-function 'nnimap-request-newgroups)
(defalias 'nnimap-request-create-group #[(group &optional server args) "\303!\205 \304	\305\n#\206 \306	\n\"\207" [server group nnimap-server-buffer nnimap-possibly-change-server imap-mailbox-status uidvalidity imap-mailbox-create] 4])
(nnoo-register-function 'nnimap-request-create-group)
#@32 Return TIME for TIME1 - TIME2.
(defalias 'nnimap-time-substract #[(time1 time2) "@	@ZA@	A@Z\211\304W\203  \nS\305\306\307\"\\D\202# \nD*\207" [time1 time2 ms ls 0 expt 2 16] 5 (#$ . 35843)])
#@60 Return date, in format "3-Aug-1998", for DAYSAGO days ago.
(defalias 'nnimap-date-days-ago #[(daysago) "\304\305 \306!\"\307\310\311\312\313\314\315	!8\n\"@!\"	\"\316!\317=\203) \320\321O\202* *\207" [daysago time parse-time-months date nnimap-time-substract current-time days-to-time format-time-string format "%%d-%s-%%Y" capitalize rassoc 4 decode-time string-to-char 48 1 nil] 8 (#$ . 36046)])
(defalias 'nnimap-request-expire-articles-progress #[nil "\301\302\303#\207" [imap-current-message gnus-message 5 "nnimap: Marking article %d for deletion..."] 4])
(defalias 'nnimap-request-expire-articles #[(articles group &optional server force) "\306!\211\203y \307\n\"\203y r\fq\210\203% \310\311	!\312\"\203x \313\202x \2031 \n!\2063 \211\314=\203I \310\311	!\312\"\203w \313\202w \247\203w \315\316\317\311	!\320!#!\321\211\203v \310\311\306!!\312\"\203v \322\"*)))\207" [articles artseq group server nnimap-server-buffer force gnus-compress-sequence nnimap-possibly-change-group imap-message-flags-add imap-range-to-message-set "\\Deleted" nil immediate imap-search format "UID %s NOT SINCE %s" nnimap-date-days-ago (nnimap-request-expire-articles-progress) gnus-set-difference nnmail-expiry-wait-function nnmail-expiry-wait days imap-fetch-data-hook oldarts] 7])
(nnoo-register-function 'nnimap-request-expire-articles)
(defalias 'nnimap-request-move-article #[(article group server accept-form &optional last) "\306!\205F \212\307\310!	\n\311\312	\n#\203C \212q\210\313p!\210\314!\210\315!\316!\210\f)\203C \317	C\n\320$\210\f.\207" [server article group nnimap-current-server result nnimap-current-move-server nnimap-possibly-change-server get-buffer-create " *nnimap move*" nil nnimap-request-article buffer-disable-undo insert-buffer-substring eval kill-buffer nnimap-request-expire-articles t nnimap-current-move-group nnimap-current-move-article buf nntp-server-buffer accept-form] 5])
(nnoo-register-function 'nnimap-request-move-article)
(defalias 'nnimap-request-accept-article #[(group &optional server last) "\306!\205r \307\n\230\203\" \310\f!\205\\ \311\312!\313\307%\202\\ rpq\210eb\210\314\315!\2037 \316`\307y\210`\"\210\317\320\307\321#\203F \322\323!\210\2027 )\324!\203S \325!\210\326p\307\211%\211\203j 	A@B\202q \327\330\331!\")\207" [server uid nnimap-current-server nnimap-current-move-server nnimap-current-move-group nnimap-current-move-article nnimap-possibly-change-server nil nnimap-possibly-change-group imap-message-copy number-to-string dontcreate looking-at "^From[^:]" kill-region search-forward "\n" t replace-match "\n" imap-current-mailbox imap-mailbox-unselect imap-message-append nnheader-report nnimap imap-error-text group nnimap-server-buffer] 6])
(nnoo-register-function 'nnimap-request-accept-article)
(defalias 'nnimap-request-delete-group #[(group force &optional server) "\304!\205 r	q\210\n\203 \305\306\"?\206 \307!\202 \310)\207" [server nnimap-server-buffer force group nnimap-possibly-change-server imap-mailbox-status uidvalidity imap-mailbox-delete t] 3])
(nnoo-register-function 'nnimap-request-delete-group)
(defalias 'nnimap-request-rename-group #[(group new-name &optional server) "\304!\205 \305	\n#\207" [server group new-name nnimap-server-buffer nnimap-possibly-change-server imap-mailbox-rename] 4])
(nnoo-register-function 'nnimap-request-rename-group)
(defalias 'nnimap-expunge #[(mailbox server) "\303	\"\205\n \304\n!\207" [mailbox server nnimap-server-buffer nnimap-possibly-change-group imap-mailbox-expunge] 3])
(defalias 'nnimap-acl-get #[(mailbox server) "\303!\205 \304\305	\"\205 \306\n	\"\207" [server nnimap-server-buffer mailbox nnimap-possibly-change-server imap-capability ACL imap-mailbox-acl-get] 3])
(defalias 'nnimap-acl-edit #[(mailbox method old-acls new-acls) "\305\211A@)!\205& \306\307\n\"\204 \310\311!\210r\nq\210\312\313\"\210\312\314\f\"\210)\315\207" [method x nnimap-server-buffer old-acls new-acls nnimap-possibly-change-server imap-capability ACL error "Your server does not support ACL editing" mapcar #[(old-acl) "\303@	\"?\205 \304@\n\"\206 \305\306@\"\207" [old-acl new-acls mailbox assoc imap-mailbox-acl-delete error "Can't delete ACL for %s"] 3] #[(new-acl) "A\305@	\"A\n\205 \205 \n\230?\205( \306@\f#\206( \307\310@#*\207" [new-acl old-acls old-rights new-rights mailbox assoc imap-mailbox-acl-set error "Can't set ACL for %s to %s"] 4] t] 4])
(byte-code "\302B\303\304\305	B\"\302\207" [current-load-list gnus-article-mark-lists nnimap-mark-to-predicate-alist mapcar #[(pair) "\301A\302\"\206 A\303\304\305A!\"B\207" [pair assoc ((read . "SEEN") (tick . "FLAGGED") (draft . "DRAFT") (reply . "ANSWERED")) format "KEYWORD gnus-%s" symbol-name] 5] (read . read)] 4)
#@186 Convert a Gnus mark (a symbol such as read, tick, expire) to a IMAP predicate.
This is a string such as "SEEN", "FLAGGED", "KEYWORD gnus-expire",
to be used within a IMAP SEARCH query.
(defalias 'nnimap-mark-to-predicate #[(pred) "	\236A\207" [pred nnimap-mark-to-predicate-alist] 2 (#$ . 40850)])
(byte-code "\302B\303\304\305	B\"\302\207" [current-load-list gnus-article-mark-lists nnimap-mark-to-flag-alist mapcar #[(pair) "\301A\302\"\206 A\303\304\305A!\"B\207" [pair assoc ((read . "\\Seen") (tick . "\\Flagged") (draft . "\\Draft") (reply . "\\Answered")) format "gnus-%s" symbol-name] 5] (read . read)] 4)
(defalias 'nnimap-mark-to-flag-1 #[(preds) "\203 <\203 \302@!\302A!B\207\303	\"A\207" [preds nnimap-mark-to-flag-alist nnimap-mark-to-flag assoc] 3])
#@173 Convert a Gnus mark (a symbol such as read, tick, expire) to a IMAP flag.
This is a string such as "\Seen", "\Flagged", "gnus-expire", to
be used in a STORE FLAGS command.
(defalias 'nnimap-mark-to-flag #[(preds &optional always-list make-string) "\304!\n\204\f \203 	<\204 	C\202 	\n\203$ \305\306	\307#\202% 	)\207" [preds result make-string always-list nnimap-mark-to-flag-1 mapconcat #[(flag) "<\203 \301\302\303#\207\207" [flag mapconcat identity " "] 4] " "] 4 (#$ . 41636)])
#@91 Return t iff MARK can be permanently (between IMAP sessions) saved on articles, in GROUP.
(defalias 'nnimap-mark-permanent-p #[(mark &optional group) "\301\302!!\207" [mark imap-message-flag-permanent-p nnimap-mark-to-flag] 3 (#$ . 42135)])
#@304 Delete by side effect any elements of LIST whose car is `equal' to KEY.
The modified LIST is returned.  If the first member
of LIST has a car that is `equal' to KEY, there is no way to remove it
by side effect; therefore, write `(setq foo (remassoc key foo))' to be
sure of changing the value of `foo'.
(defalias 'nnimap-remassoc #[(key alist) "\205 	\211@@)\232\203 A\207\303	A\"\241\210\207" [alist key x nnimap-remassoc] 5 (#$ . 42384)])
(defalias 'nnimap-update-alist-soft #[(key value alist) "\203 	B\303	\n\"B\207\303	\n\"\207" [value key alist nnimap-remassoc] 4])
(byte-code "\203 \301\302!\210\303\304!!\210\305\306\307\"\210\310\311!\207" [nnimap-debug require trace buffer-disable-undo get-buffer-create mapcar #[(f) "\302	\"\207" [f nnimap-debug trace-function-background] 3] (nnimap-possibly-change-server nnimap-verify-uidvalidity nnimap-find-minmax-uid nnimap-before-find-minmax-bugworkaround nnimap-possibly-change-group nnimap-retrieve-headers-progress nnimap-retrieve-which-headers nnimap-group-overview-filename nnimap-retrieve-headers-from-file nnimap-retrieve-headers-from-server nnimap-retrieve-headers nnimap-open-connection nnimap-open-server nnimap-server-opened nnimap-close-server nnimap-request-close nnimap-status-message nnimap-request-article-part nnimap-request-article nnimap-request-head nnimap-request-body nnimap-request-group nnimap-close-group nnimap-pattern-to-list-arguments nnimap-request-list nnimap-request-post nnimap-retrieve-groups nnimap-request-update-info-internal nnimap-request-type nnimap-request-set-mark nnimap-split-to-groups nnimap-split-find-rule nnimap-split-find-inbox nnimap-split-articles nnimap-request-scan nnimap-request-newgroups nnimap-request-create-group nnimap-time-substract nnimap-date-days-ago nnimap-request-expire-articles-progress nnimap-request-expire-articles nnimap-request-move-article nnimap-request-accept-article nnimap-request-delete-group nnimap-request-rename-group gnus-group-nnimap-expunge gnus-group-nnimap-edit-acl gnus-group-nnimap-edit-acl-done nnimap-group-mode-hook nnimap-mark-to-predicate nnimap-mark-to-flag-1 nnimap-mark-to-flag nnimap-mark-permanent-p nnimap-remassoc nnimap-update-alist-soft) provide nnimap] 3)