Lines Matching +refs:imap +refs:default +refs:user
1 ;;; nnimap.el --- imap backend for Gnus
64 (require 'imap)
127 \"gnus-imap\" mailing list, one group for junk mail and leave
131 \(setq nnimap-split-rule '((\"INBOX.gnus-imap\" \"From:.*gnus-imap\")
202 (defvar nnimap-split-download-body-default nil
203 "Internal variable with default value for `nnimap-split-download-body'.")
205 (defcustom nnimap-split-download-body 'default
211 variable is the symbol `default' the default behaviour is
247 In summary, the default is O((1-p)*k+p*n) and changing it to nil makes
248 it O(n). If p is small, then the default is probably faster."
265 The default, nil, will try to use the \"best\" method the server can
279 See also `imap-streams' and `imap-stream-alist'.")
284 The default, nil, will try to use the \"best\" method the server can
294 See also `imap-authenticators' and `imap-authenticator-alist'")
415 (defvar nnimap-request-list-method 'imap-mailbox-list
417 If this is 'imap-mailbox-lsub, then use a server-side subscription list to
466 (new-uidvalidity (imap-mailbox-get 'uidvalidity))
498 (or (null (imap-current-mailbox nnimap-server-buffer))
499 (imap-mailbox-unselect nnimap-server-buffer))))
505 (when (or (string= group (imap-current-mailbox))
506 (imap-mailbox-select group examine))
508 (when (> (imap-mailbox-get 'exists) 0)
509 (imap-fetch "1,*" "UID" nil 'nouidfetch)
510 (imap-message-map (lambda (uid Uid)
514 (list (imap-mailbox-get 'exists) minuid maxuid)))))
520 (if (or (null group) (imap-current-mailbox-p group))
521 imap-current-mailbox
522 (if (imap-mailbox-select group)
525 (zerop (imap-mailbox-get 'exists group))
531 imap-current-mailbox
532 (imap-mailbox-unselect)
534 (nnheader-report 'nnimap (imap-error-text)))))))
559 (setq uid imap-current-message
560 mbx imap-current-mailbox
562 (if (imap-capability 'IMAP4rev1)
565 (nth 2 (car (imap-message-get uid 'BODYDETAIL)))
566 (imap-message-get uid 'RFC822.HEADER)))
567 lines (imap-body-lines (imap-message-body imap-current-message))
568 chars (imap-message-get imap-current-message 'RFC822.SIZE)))
585 (imap-search
587 (imap-range-to-message-set
597 (imap-search
665 (let ((imap-fetch-data-hook '(nnimap-retrieve-headers-progress))
668 (imap-fetch (imap-range-to-message-set articles)
675 (if (imap-capability 'IMAP4rev1)
734 (if (not (imap-open nnimap-address nnimap-server-port nnimap-stream
737 (unless (or (imap-capability 'IMAP4 nnimap-server-buffer)
738 (imap-capability 'IMAP4rev1 nnimap-server-buffer))
739 (imap-close nnimap-server-buffer)
746 "imap"))
747 (alist (or (gnus-netrc-machine list server port "imap")
752 port "imap")
757 (user (gnus-netrc-get alist "login"))
759 (if (imap-authenticate user passwd nnimap-server-buffer)
764 (imap-close nnimap-server-buffer)
787 (imap-opened nnimap-server-buffer)
789 (memq imap-state '(auth select examine)))
791 (imap-close nnimap-server-buffer)
803 (imap-opened (nnimap-get-server-buffer server))))
810 (imap-opened (nnimap-get-server-buffer server)))
811 (imap-close (nnimap-get-server-buffer server))
851 (when (eq article (imap-current-message))
852 (remove-hook 'imap-fetch-data-hook
858 (if (imap-capability 'IMAP4rev1)
861 (nth 2 (car (imap-message-get article 'BODYDETAIL)))
862 (imap-message-get article 'RFC822)))))
870 (car-safe (imap-search
876 article (or group imap-current-mailbox
881 (let ((data (imap-fetch article part prop nil
889 article (or group imap-current-mailbox gnus-newsgroup-name))
892 article (or group imap-current-mailbox
894 (imap-error-text nnimap-server-buffer))
896 (add-hook 'imap-fetch-data-hook
900 (imap-fetch-asynch article part nil nnimap-server-buffer)
907 (if (imap-capability 'IMAP4rev1 nnimap-server-buffer)
914 (if (imap-capability 'IMAP4rev1 nnimap-server-buffer)
921 (if (imap-capability 'IMAP4rev1 nnimap-server-buffer)
954 (imap-mailbox-status group 'unseen nnimap-server-buffer)
960 (when (and (imap-opened)
965 (imap-mailbox-expunge nnimap-close-asynchronous)
967 (imap-mailbox-close nnimap-close-asynchronous))))
968 (ask (if (and (imap-search "DELETED")
970 imap-current-mailbox)))
972 (imap-mailbox-expunge nnimap-close-asynchronous)
974 (imap-mailbox-close nnimap-close-asynchronous)))
975 (imap-mailbox-unselect)))
976 (t (imap-mailbox-unselect)))
977 (not imap-current-mailbox))))
998 (or (member "\\NoSelect" (imap-mailbox-get 'list-flags mbx))
1063 (list group (imap-mailbox-status-asynch
1070 (when (imap-ok-p (imap-wait-for-tag tag nnimap-server-buffer))
1075 (imap-mailbox-get 'uidvalidity group
1081 (imap-mailbox-get 'uidnext group
1091 (imap-mailbox-put 'uidnext nil group nnimap-server-buffer)
1092 (or (member "\\NoSelect" (imap-mailbox-get 'list-flags group
1098 (when (> (or (imap-mailbox-get 'recent group
1106 (list (or (imap-mailbox-get
1108 (imap-mailbox-status
1110 (or (imap-mailbox-get
1112 (imap-mailbox-status
1114 (or (imap-mailbox-get
1116 (imap-mailbox-status
1133 ;; imap clients! we correct this
1135 (imap-search "UNSEEN UNDELETED"))
1139 (imap-search "SEEN")))
1150 (imap-mailbox-get 'flags))))
1156 (imap-search (nnimap-mark-to-predicate (cdr pred))))
1212 (if (imap-message-flag-permanent-p
1218 (imap-message-flags-del
1219 (imap-range-to-message-set range)
1222 (imap-message-flags-add
1223 (imap-range-to-message-set range)
1226 (imap-message-flags-set
1227 (imap-range-to-message-set range)
1301 (dolist (article (imap-search nnimap-split-predicate))
1302 (when (if (if (eq nnimap-split-download-body 'default)
1303 nnimap-split-download-body-default
1315 ((imap-message-copy (number-to-string article)
1333 (if (if (eq nnimap-split-download-body 'default)
1334 nnimap-split-download-body-default
1339 (imap-message-flags-add (format "%d" article)
1341 (when (imap-mailbox-select inbox) ;; just in case
1343 (imap-mailbox-expunge)
1344 (imap-mailbox-close)))
1361 (dolist (mbx (imap-mailbox-lsub (cdr pattern) (car pattern) nil
1364 (dolist (mailbox (imap-mailbox-get 'list-flags mbx
1380 (or (imap-mailbox-status group 'uidvalidity nnimap-server-buffer)
1381 (imap-mailbox-create group nnimap-server-buffer)
1383 (imap-error-text nnimap-server-buffer)))))
1409 imap-current-message))
1434 (let ((oldarts (imap-search
1436 (imap-range-to-message-set artseq)))))
1439 (when (imap-message-flags-add
1440 (imap-range-to-message-set
1447 (imap-search (format "SINCE %s"
1454 (when (imap-message-flags-add
1455 (imap-range-to-message-set oldartseq)
1460 (let ((oldarts (imap-search
1462 (imap-range-to-message-set artseq)
1464 (imap-fetch-data-hook
1468 (when (imap-message-flags-add
1469 (imap-range-to-message-set
1494 (imap-message-flags-add
1495 (imap-range-to-message-set (list article))
1507 (imap-message-copy (number-to-string
1527 (or (null (imap-current-mailbox nnimap-server-buffer))
1528 (imap-mailbox-unselect nnimap-server-buffer))
1529 (imap-message-append group (current-buffer) nil nil
1532 (nnheader-report 'nnimap (imap-error-text nnimap-server-buffer))))))
1538 (or (null (imap-mailbox-status group 'uidvalidity))
1539 (imap-mailbox-delete group))
1545 (imap-mailbox-rename group new-name nnimap-server-buffer)))
1549 (imap-mailbox-expunge nil nnimap-server-buffer)))
1553 (and (imap-capability 'ACL nnimap-server-buffer)
1554 (imap-mailbox-acl-get mailbox nnimap-server-buffer))))
1558 (unless (imap-capability 'ACL nnimap-server-buffer)
1564 (or (imap-mailbox-acl-delete (car old-acl) mailbox)
1573 (or (imap-mailbox-acl-set (car new-acl) new-rights mailbox)
1651 (imap-message-flag-permanent-p (nnimap-mark-to-flag mark)))