From f7bba26bbb4739a88d806a0e45768b3aaeba354b Mon Sep 17 00:00:00 2001 From: Julien Danjou Date: Wed, 1 Sep 2010 16:43:10 +0200 Subject: Use and fix offlineimap-get-buffer --- offlineimap.el | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/offlineimap.el b/offlineimap.el index f8da4b5..6251845 100644 --- a/offlineimap.el +++ b/offlineimap.el @@ -84,9 +84,12 @@ (defun offlineimap-get-buffer () "Get the offlineimap buffer." - (let ((buffer (get-buffer-create offlineimap-buffer-name))) - (with-current-buffer buffer - (offlineimap-mode)) + (let ((buffer (get-buffer offlineimap-buffer-name))) + (unless buffer + (let ((buffer (get-buffer-create offlineimap-buffer-name))) + (with-current-buffer buffer + (offlineimap-mode)) + buffer)) buffer)) ;;;###autoload @@ -107,7 +110,7 @@ (defun offlineimap-resync () "Send a USR1 signal to OfflineIMAP to force accounts synchronization." (interactive) - (signal-process (get-buffer-process (current-buffer)) 'SIGUSR1)) + (signal-process (get-buffer-process (offlineimap-get-buffer) 'SIGUSR1)) (define-derived-mode offlineimap-mode comint-mode "OfflineIMAP" "A major mode for OfflineIMAP interaction." -- cgit v1.2.3