Lines Matching +refs:gnus +refs:user +refs:format +refs:function
6 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
33 (eval-when-compile (defvar display-time-mail-function)))
39 (require 'format-spec)
46 :group 'gnus)
63 See Info node `(gnus)Mail Source Specifiers'."
65 :link '(custom-manual "(gnus)Mail Source Specifiers")
69 (choice :format "%[Value Menu%] %v"
72 (const :format "" file)
75 (const :format "" :value :path)
78 (const :format "" directory)
81 (const :format "" :value :path)
84 (const :format "" :value :suffix)
87 (const :format "" :value :predicate)
88 (function :tag "Predicate"))
90 (const :format "" :value :prescript)
93 (string :format "%v")
94 (function :format "%v")))
96 (const :format "" :value :postscript)
99 (string :format "%v")
100 (function :format "%v")))
102 (const :format "" :value :plugged)
105 (const :format "" pop)
108 (const :format "" :value :server)
111 (const :format "" :value :port)
114 (number :format "%v")
115 (string :format "%v")))
117 (const :format "" :value :user)
120 (const :format "" :value :password)
123 (const :format "" :value :program)
126 (const :format "" :value :prescript)
129 (string :format "%v")
130 (function :format "%v")))
132 (const :format "" :value :postscript)
135 (string :format "%v")
136 (function :format "%v")))
138 (const :format "" :value :function)
139 (function :tag "Function"))
141 (const :format ""
148 (const :format "" :value :plugged)
151 (const :format "" maildir)
154 (const :format "" :value :path)
157 (const :format "" :value :plugged)
160 (const :format "" imap)
163 (const :format "" :value :server)
166 (const :format "" :value :port)
171 (const :format "" :value :user)
174 (const :format "" :value :password)
177 (const :format "" :value :stream)
182 (const :format "" :value :program)
185 (const :format ""
191 (const :format "" :value :mailbox)
195 (const :format "" :value :predicate)
199 (const :format "" :value :fetchflag)
203 (const :format ""
207 (const :format "" :value :plugged)
210 (const :format "" webmail)
213 (const :format "" :value :subtype)
225 (const :format "" :value :user)
228 (const :format "" :value :password)
231 (const :format ""
235 (const :format "" :value :plugged)
240 If nil, the user will be prompted when an error occurs. If non-nil,
335 (expand-file-name (user-login-name) rmail-spool-directory))))
349 (:user (or (user-login-name) (getenv "LOGNAME") (getenv "USER")))
351 (:function)
357 (:function))
364 (:user (or (user-login-name) (getenv "LOGNAME") (getenv "USER")))
375 (:user (or (user-login-name) (getenv "LOGNAME") (getenv "USER")))
389 "A mapping from source type to fetcher function.")
429 (put 'mail-source-bind 'lisp-indent-function 1)
472 (put 'mail-source-bind-common 'lisp-indent-function 1)
497 (let ((function (cadr (assq (car source) mail-source-fetcher-alist)))
499 (unless function
508 (funcall function source callback)
510 (funcall function source callback)
515 (format "Mail source %s error (%s). Continue? "
541 (bfile (gnus-replace-in-string
548 (gnus-message 8 "File `%s' is older than %s day(s)"
643 (format "movemail: %s (%s return). Continue? "
668 (format-spec script spec))))
688 prescript (format-spec-make ?t mail-source-crash-box)
690 (let ((mail-source-string (format "file:%s" path)))
695 postscript (format-spec-make ?t mail-source-crash-box)))
702 prescript (format-spec-make ?t path) prescript-delay)
704 (mail-source-string (format "directory:%s" path)))
711 (mail-source-run-script postscript (format-spec-make ?t path))
719 (format-spec-make ?p password ?t mail-source-crash-box
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)))))
737 (format-spec
739 (format-spec-make ?p password ?t mail-source-crash-box
740 ?s server ?P port ?u user))))
741 (function
742 (funcall function mail-source-crash-box))
747 (pop3-maildrop user)
775 (format-spec-make ?p password ?t mail-source-crash-box
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))))
804 (function)
809 (pop3-maildrop user)
840 `message-send-mail-function' variable as `message-smtpmail-send-it'
841 and put the following line in your ~/.gnus.el file:
875 ;; user isn't typing.
911 ;; display-time-mail-function is an Emacs 21 feature.
912 (setq display-time-mail-function #'mail-source-new-mail-p)
923 (setq display-time-mail-function nil)
937 (setq mail-source-string (format "maildir:%s%s" path subdir))
940 (not (if function
941 (funcall function file mail-source-crash-box)
949 ;;; ;; Unix mail format
957 ;; MMDF mail format
985 prescript (format-spec-make ?p password ?t mail-source-crash-box
986 ?s server ?P port ?u user)
988 (let ((from (format "%s:%s:%s" server user port))
991 (mail-source-string (format "imap:%s:%s" server mailbox))
996 user (or (cdr (assoc from mail-source-password-cache))
1029 (imap-range-to-message-set (gnus-compress-sequence remove))
1045 (format-spec-make ?p password ?t mail-source-crash-box
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)