diff options
| -rw-r--r-- | mail.el | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -289,6 +289,8 @@ PROCESS is finished." (defvar durand-mail-update-buffer "*mail*" "Buffer to display progess of updating mails.") +(autoload #'durand-internet-on "basic.el") + (defun durand-mail-update (&optional foreground-p) "Update mails. If FOREGROUND-P is non-nil, also display the progress in a @@ -308,7 +310,8 @@ If FOREGROUND-P is `0', do not fetch mails, but just run ((and (numberp foreground-p) (= foreground-p 0)) (run-hooks 'durand-mail-update-hook)) - ((not (get-process "durand-mail-update")) + ((and (not (get-process "durand-mail-update")) + (durand-internet-on)) (make-process :name "durand-mail-update" :command durand-mail-update-command |