Lines Matching +refs:imap +refs:default +refs:user
32 (require 'imap)
48 ;; Define these at compile time to avoid dragging in imap always.
49 (defconst mail-source-imap-authenticators
53 imap-authenticator-alist)))
54 (defconst mail-source-imap-streams
58 imap-stream-alist)))
117 (const :format "" :value :user)
160 (const :format "" imap)
171 (const :format "" :value :user)
180 ,@mail-source-imap-streams))
189 ,@mail-source-imap-authenticators))
225 (const :format "" :value :user)
240 If nil, the user will be prompted when an error occurs. If non-nil,
267 (defcustom mail-source-default-file-modes 384
326 "Mapping from keywords to default values.
335 (expand-file-name (user-login-name) rmail-spool-directory))))
349 (:user (or (user-login-name) (getenv "LOGNAME") (getenv "USER")))
358 (imap
364 (:user (or (user-login-name) (getenv "LOGNAME") (getenv "USER")))
375 (:user (or (user-login-name) (getenv "LOGNAME") (getenv "USER")))
379 "Mapping from keywords to default values.
387 (imap mail-source-fetch-imap)
405 default bind)
406 (while (setq default (pop defaults))
407 (push (list (mail-source-strip-keyword (car default))
418 specified will be given default values.
423 The variables bound and their default values are described by
435 default value keyword)
436 (while (setq default (pop defaults))
437 (set (mail-source-strip-keyword (setq keyword (car default)))
440 (mail-source-value (cadr default)))))))
445 default bind)
446 (while (setq default (pop defaults))
447 (push (list (mail-source-strip-keyword (car default))
456 default value keyword)
457 (while (setq default (pop defaults))
458 (set (mail-source-strip-keyword (setq keyword (car default)))
463 (mail-source-value (cadr default))))))))
610 (let ((default-directory "/"))
620 (set-file-modes to mail-source-default-file-modes))
720 ?s server ?P port ?u user)
722 (let ((from (format "%s:%s:%s" server user port))
723 (mail-source-string (format "pop:%s@%s" user server))
730 (format "Password for %s at %s: " user server)))))
740 ?s server ?P port ?u user))))
743 ;; The default is to use pop3.el.
747 (pop3-maildrop user)
776 ?s server ?P port ?u user))))
787 (let ((from (format "%s:%s:%s" server user port))
788 (mail-source-string (format "pop:%s@%s" user server))
795 (format "Password for %s at %s: " user server))))
805 ;; The default is to use pop3.el.
809 (pop3-maildrop user)
875 ;; user isn't typing.
964 (autoload 'imap-open "imap")
965 (autoload 'imap-authenticate "imap")
966 (autoload 'imap-mailbox-select "imap")
967 (autoload 'imap-mailbox-unselect "imap")
968 (autoload 'imap-mailbox-close "imap")
969 (autoload 'imap-search "imap")
970 (autoload 'imap-fetch "imap")
971 (autoload 'imap-close "imap")
972 (autoload 'imap-error-text "imap")
973 (autoload 'imap-message-flags-add "imap")
974 (autoload 'imap-list-to-message-set "imap")
975 (autoload 'imap-range-to-message-set "imap")
978 (defvar mail-source-imap-file-coding-system 'binary
979 "Coding system for the crashbox made by `mail-source-fetch-imap'.")
981 (defun mail-source-fetch-imap (source callback)
982 "Fetcher for imap sources."
983 (mail-source-bind (imap source)
986 ?s server ?P port ?u user)
988 (let ((from (format "%s:%s:%s" server user port))
990 (buf (generate-new-buffer " *imap source*"))
991 (mail-source-string (format "imap:%s:%s" server mailbox))
992 (imap-shell-program (or (list program) imap-shell-program))
994 (if (and (imap-open server port stream authentication buf)
995 (imap-authenticate
996 user (or (cdr (assoc from mail-source-password-cache))
998 (imap-mailbox-select mailbox nil buf))
999 (let ((coding-system-for-write mail-source-imap-file-coding-system)
1007 (when (and imap-password
1009 (push (cons from imap-password) mail-source-password-cache)))
1011 (dolist (uid (imap-search (or predicate "1:*") buf))
1013 (if (imap-capability 'IMAP4rev1 buf)
1014 (caddar (imap-fetch uid "BODY.PEEK[]"
1016 (imap-fetch uid "RFC822.PEEK" 'RFC822 nil buf)))
1018 (insert "From imap " (current-time-string) "\n")
1028 (imap-message-flags-add
1029 (imap-range-to-message-set (gnus-compress-sequence remove))
1032 (imap-mailbox-unselect buf)
1033 (imap-mailbox-close nil buf))
1034 (imap-close buf))
1035 (imap-close buf)
1041 (error "IMAP error: %s" (imap-error-text buf)))
1046 ?s server ?P port ?u user))
1055 (let ((mail-source-string (format "webmail:%s:%s" subtype user))
1061 (cdr (assoc (format "webmail:%s:%s" subtype user)
1064 (format "Password for %s at %s: " user subtype))))
1066 (not (assoc (format "webmail:%s:%s" subtype user)
1068 (push (cons (format "webmail:%s:%s" subtype user) password)
1070 (webmail-fetch mail-source-crash-box subtype user password)