diff options
author | Julien Danjou <julien@danjou.info> | 2010-09-01 16:43:10 +0200 |
---|---|---|
committer | Julien Danjou <julien@danjou.info> | 2010-09-01 16:43:10 +0200 |
commit | f7bba26bbb4739a88d806a0e45768b3aaeba354b (patch) | |
tree | f2e82df0b73f766ccb97e259ec3bfbf274396892 | |
parent | 0207a87bb12df2a2af7f6c1db50b65048e4c1a06 (diff) |
Use and fix offlineimap-get-buffer
-rw-r--r-- | offlineimap.el | 11 |
1 files 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." |