From 6e3cfc3e9f792ae9b9ea198eb1a57f68931a2fad Mon Sep 17 00:00:00 2001 From: Julien Danjou Date: Fri, 3 Sep 2010 14:47:37 +0200 Subject: Do not run offlineimap twice Signed-off-by: Julien Danjou --- offlineimap.el | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/offlineimap.el b/offlineimap.el index d449e6f..a143aba 100644 --- a/offlineimap.el +++ b/offlineimap.el @@ -176,12 +176,14 @@ OfflineIMAP status should be displayed in the mode line." (defun offlineimap () "Start OfflineIMAP." (interactive) - (let ((process (start-process-shell-command - "offlineimap" - (offlineimap-make-buffer) - offlineimap-command))) - (set-process-filter process 'offlineimap-process-filter) - (set-process-sentinel process 'offlineimap-process-sentinel)) + (let* ((buffer (offlineimap-make-buffer))) + (unless (get-buffer-process buffer) + (let ((process (start-process-shell-command + "offlineimap" + buffer + offlineimap-command))) + (set-process-filter process 'offlineimap-process-filter) + (set-process-sentinel process 'offlineimap-process-sentinel)))) (add-to-list 'global-mode-string '(:eval (offlineimap-mode-line)))) (defun offlineimap-quit () -- cgit v1.2.3