Lines Matching +defs:process +defs:put
223 (defcustom imap-process-connection-type nil
224 "*Value for `process-connection-type' to use for Kerberos4, GSSAPI and SSL.
225 The `process-connection-type' variable control type of device
361 imap-process
426 (defvar imap-process nil
507 (process-connection-type imap-process-connection-type)
508 (process (start-process
517 (when process
521 (while (and (memq (process-status process) '(open run))
547 (accept-process-output process 1)
560 (setq done process)
561 (if (memq (process-status process) '(open run))
563 (delete-process process)
579 (process-connection-type imap-process-connection-type)
580 (process (start-process
589 (when process
593 (while (and (memq (process-status process) '(open run))
623 (accept-process-output process 1)
635 (setq done process)
636 (if (memq (process-status process) '(open run))
638 (delete-process process)
656 (process-connection-type imap-process-connection-type)
657 (set-process-query-on-exit-flag
658 (if (fboundp 'set-process-query-on-exit-flag)
659 'set-process-query-on-exit-flag
660 'process-kill-without-query))
661 process)
663 (setq process (start-process
670 (funcall set-process-query-on-exit-flag process nil)
671 process)
674 (while (and (memq (process-status process) '(open run))
679 (accept-process-output process 1)
688 (when (memq (process-status process) '(open run))
689 (setq done process))))))
704 (process (open-tls-stream name buffer server port)))
705 (when process
706 (while (and (memq (process-status process) '(open run))
711 (accept-process-output process 1)
719 (when (memq (process-status process) '(open run))
720 process))))
729 (process (open-network-stream name buffer server port)))
730 (when process
731 (while (and (memq (process-status process) '(open run))
735 (accept-process-output process 1)
743 (when (memq (process-status process) '(open run))
744 process))))
759 (process (start-process
768 (when process
769 (while (and (memq (process-status process) '(open run))
774 (accept-process-output process 1)
783 (when (memq (process-status process) '(open run))
784 (setq done process)))))
799 (process (starttls-open-stream name buffer server port))
802 (when process
803 (while (and (memq (process-status process) '(open run))
808 (accept-process-output process 1)
811 (while (and (memq (process-status process) '(open run))
816 (accept-process-output process 1)
823 (when (and (setq tls-info (starttls-negotiate process))
824 (memq (process-status process) '(open run)))
825 (setq done process)))
980 imap-process (condition-case ()
985 (when imap-process
986 (set-process-filter imap-process 'imap-arrival-filter)
987 (set-process-sentinel imap-process 'imap-sentinel)
989 (memq (process-status imap-process) '(open run)))
991 (accept-process-output imap-process 1))
993 (and (memq (process-status imap-process) '(open run))
994 imap-process))))
1076 (and imap-process
1077 (memq (process-status imap-process) '(open run))))))
1125 (when (and imap-process
1126 (memq (process-status imap-process) '(open run)))
1127 (delete-process imap-process))
1130 imap-process nil)
1162 (defun imap-mailbox-put (propname value &optional mailbox buffer)
1165 (put (intern (or mailbox imap-current-mailbox) imap-mailbox-data)
1330 (imap-mailbox-put 'lsub nil mailbox)))
1354 (imap-mailbox-put 'list nil mailbox)))
1509 (defun imap-message-put (uid propname value &optional buffer)
1512 (put (intern (number-to-string uid) imap-message-data)
1579 (imap-mailbox-put 'search 'dummy)
1731 (process-send-string imap-process cmdstr))
1764 (let ((process imap-process)
1775 (process-send-region process (point-min)
1777 (process-send-string process imap-client-eol))))
1798 (memq (process-status imap-process) '(open run))
1805 (accept-process-output imap-process
1810 ;; A process can die _before_ we have processed everything it
1812 ;; accept-process-output and the call to process-status in an
1816 (accept-process-output imap-process 0 0))
1819 (and (memq (process-status imap-process) '(open run))
1825 (defun imap-sentinel (process string)
1826 (delete-process process))
1842 "IMAP process filter."
1843 ;; Sometimes, we are called even though the process has died.
1845 (when (buffer-name (process-buffer proc))
1846 (with-current-buffer (process-buffer proc)
2104 (FLAGS (imap-mailbox-put 'flags (imap-parse-flag-list)))
2107 (SEARCH (imap-mailbox-put
2118 (EXISTS (imap-mailbox-put 'exists token))
2119 (RECENT (imap-mailbox-put 'recent token))
2232 (imap-mailbox-put 'permanentflags (imap-parse-flag-list)))
2234 (imap-mailbox-put 'uidnext (match-string 1)))
2236 (imap-mailbox-put 'first-unseen (read (current-buffer))))
2238 (imap-mailbox-put 'uidvalidity (match-string 1)))
2240 (imap-mailbox-put 'read-only t))
2246 (imap-mailbox-put 'newname newname oldname)))
2248 (imap-mailbox-put 'trycreate t imap-current-target-mailbox))
2250 (imap-mailbox-put 'appenduid
2255 (imap-mailbox-put 'copyuid (list (match-string 1)
2288 (imap-mailbox-put type t mailbox)
2289 (imap-mailbox-put 'list-flags flags mailbox)
2290 (imap-mailbox-put 'delimiter delimiter mailbox)))))
2375 (imap-message-put uid 'UID uid)
2376 (and (or flags flags-empty) (imap-message-put uid 'FLAGS flags))
2377 (and envelope (imap-message-put uid 'ENVELOPE envelope))
2378 (and internaldate (imap-message-put uid 'INTERNALDATE internaldate))
2379 (and rfc822 (imap-message-put uid 'RFC822 rfc822))
2380 (and rfc822header (imap-message-put uid 'RFC822.HEADER rfc822header))
2381 (and rfc822text (imap-message-put uid 'RFC822.TEXT rfc822text))
2382 (and rfc822size (imap-message-put uid 'RFC822.SIZE rfc822size))
2383 (and body (imap-message-put uid 'BODY body))
2384 (and bodydetail (imap-message-put uid 'BODYDETAIL bodydetail))
2385 (and bodystructure (imap-message-put uid 'BODYSTRUCTURE bodystructure))
2408 (imap-mailbox-put 'messages (read (current-buffer)) mailbox))
2410 (imap-mailbox-put 'recent (read (current-buffer)) mailbox))
2413 (imap-mailbox-put 'uidnext (match-string 0) mailbox)
2417 (imap-mailbox-put 'uidvalidity (match-string 0) mailbox)
2420 (imap-mailbox-put 'unseen (read (current-buffer)) mailbox))
2442 (imap-mailbox-put 'acl acl mailbox)))
2777 imap-mailbox-put
2807 imap-message-put