diff options
-rw-r--r-- | offlineimap.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/offlineimap.el b/offlineimap.el index f9ac3ac..864d5f8 100644 --- a/offlineimap.el +++ b/offlineimap.el @@ -286,10 +286,11 @@ This is used when `offlineimap-mode-line-style' is set to 'symbol." (interactive) (signal-process (get-buffer-process (get-buffer offlineimap-buffer-name)) 'SIGUSR1)) -(defun offlineimap-kill () +(defun offlineimap-kill (&optional arg) "Send a TERM signal to OfflineIMAP." - (interactive) - (signal-process (get-buffer-process (get-buffer offlineimap-buffer-name)) 'SIGTERM)) + (interactive "P") + (let ((sig (if arg 'SIGKILL 'SIGTERM))) + (signal-process (get-buffer-process (get-buffer offlineimap-buffer-name)) sig))) (define-derived-mode offlineimap-mode fundamental-mode "OfflineIMAP" "A major mode for OfflineIMAP interaction." |