From 36bc2bc0ec67cafb24858f6652a280b24c91807b Mon Sep 17 00:00:00 2001 From: Julien Danjou Date: Sat, 9 Oct 2010 10:47:35 +0200 Subject: Add kill binding. --- offlineimap.el | 6 ++++++ 1 file changed, 6 insertions(+) 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 -- cgit v1.2.3