Lines Matching defs:movemail
109 (defcustom rmail-movemail-program nil
110 "If non-nil, the file name of the `movemail' program."
159 (defcustom rmail-movemail-flags nil
160 "*List of flags to pass to movemail.
181 (defcustom rmail-movemail-search-path nil
182 "*List of directories to search for movemail (in addition to `exec-path')."
187 "Determine what flavor of movemail PROG is.
198 ((looking-at ".*movemail: invalid option")
200 ((looking-at "movemail (GNU Mailutils .*)")
207 "Determine and return the file name of the `movemail' program.
208 If `rmail-movemail-program' is non-nil, use it.
209 Otherwise, look for `movemail' in the directories in
210 `rmail-movemail-search-path', those in `exec-path', and `exec-directory'."
211 (if rmail-movemail-program
212 (rmail-probe rmail-movemail-program)
214 (dolist (dir (append rmail-movemail-search-path exec-path
217 (let ((progname (expand-file-name "movemail" dir)))
222 (setq rmail-movemail-program progname)
225 (defvar rmail-movemail-variant-in-use nil
226 "The movemail variant currently in use. Known variants are:
234 (defun rmail-movemail-variant-p (&rest variants)
235 "Return t if the current movemail variant is any of VARIANTS.
237 (when (not rmail-movemail-variant-in-use)
239 (setq rmail-movemail-variant-in-use (rmail-autodetect)))
240 (not (null (member rmail-movemail-variant-in-use variants))))
1715 actual version of `movemail', REMOTE is non-nil if MAILBOX-NAME refers to
1717 supplied as a separate argument to `movemail' or nil otherwise, GOT-PASSWORD
1735 (if (rmail-movemail-variant-p 'emacs)
1741 (error "Emacs movemail does not support %s protocol" proto))
1768 (let (file tofile delete-files movemail popmail got-password password)
1798 ;; Always use movemail to rename the file,
1828 (list (or rmail-movemail-program
1829 (expand-file-name "movemail"
1835 (if (rmail-movemail-variant-p 'mailutils)
1836 (append (list "--emacs") rmail-movemail-flags)
1837 rmail-movemail-flags)
1842 ;; No output => movemail won
1851 (if (looking-at "movemail: ")
1864 (when (rmail-movemail-variant-p 'mailutils)
1869 (message "movemail: %s"