mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(nnmail-move-inbox): Prompt for POP3 password if

Browse Source 
required, and include on the movemail command line.
This commit is contained in:
Richard M. Stallman 1996-06-12 17:55:03 +00:00
parent de05443f3b
commit b99ec76849
1 changed files with 20 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
lisp/nnmail.el
View File

@ -367,13 +367,19 @@ performed.")
;; and the actual inbox is /usr/spool/mail/foo/foo.
(if (file-directory-p inbox)
(setq inbox (expand-file-name (user-login-name) inbox))))
(if popmail
(message "Getting mail from post office ...")
(if (or (and (file-exists-p tofile)
(/= 0 (nth 7 (file-attributes tofile))))
(and (file-exists-p inbox)
(/= 0 (nth 7 (file-attributes inbox)))))
(message "Getting mail from %s..." inbox)))
(cond
(popmail
(if (and rmail-pop-password-required (not rmail-pop-password))
(setq rmail-pop-password
(rmail-read-passwd
(format "Password for %s: "
(substring tofile (+ popmail 3))))))
(message "Getting mail from post office ..."))
((or (and (file-exists-p tofile)
(/= 0 (nth 7 (file-attributes tofile))))
(and (file-exists-p inbox)
(/= 0 (nth 7 (file-attributes inbox)))))
(message "Getting mail from %s..." inbox)))
;; Set TOFILE if have not already done so, and
;; rename or copy the file INBOX to TOFILE if and as appropriate.
(cond ((or (file-exists-p tofile) (and (not popmail)
@ -398,9 +404,13 @@ performed.")
(save-excursion
(setq errors (generate-new-buffer " *nnmail loss*"))
(buffer-disable-undo errors)
(call-process
(expand-file-name nnmail-movemail-program exec-directory)
nil errors nil inbox tofile)
(if rmail-pop-password
(call-process
(expand-file-name nnmail-movemail-program exec-directory)
nil errors nil inbox tofile rmail-pop-password)
(call-process
(expand-file-name nnmail-movemail-program exec-directory)
nil errors nil inbox tofile))
(if (not (buffer-modified-p errors))
;; No output => movemail won
nil