Add kill binding.

1 files changed, 6 insertions, 0 deletions

diff --git a/offlineimap.el b/offlineimap.el
index baeea31..2ace1b7 100644
--- a/offlineimap.el
+++ b/offlineimap.el
@@ -78,6 +78,7 @@ This is used when `offlineimap-mode-line-style' is set to 'symbol."
   (let ((map (make-sparse-keymap)))
     (define-key map (kbd "q") 'offlineimap-quit)
     (define-key map (kbd "g") 'offlineimap-resync)
+    (define-key map (kbd "K") 'offlineimap-kill)
     map)
   "Keymap for offlineimap-mode.")
 
@@ -275,6 +276,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 ()
+  "Send a TERM signal to OfflineIMAP."
+  (interactive)
+  (signal-process (get-buffer-process (get-buffer offlineimap-buffer-name)) 'SIGTERM))
+
 (define-derived-mode offlineimap-mode fundamental-mode "OfflineIMAP"
   "A major mode for OfflineIMAP interaction."
   :group 'comm