   (define-key olm-summary-mode-map "w" 'olm-summary-write)
   (define-key olm-summary-mode-map "A" 'olm-summary-reply-all)
   (define-key olm-summary-mode-map "g" 'olm-summary-goto-folder)
-  (define-key olm-summary-mode-map "o" 'olm-summary-refile))
+  (define-key olm-summary-mode-map "o" 'olm-summary-refile)
+  (define-key olm-summary-mode-map "d" 'olm-summary-delete))
 
 (defun olm-summary-inc ()
   (interactive)

(defvar olm-default-bcc nil)
(defvar olm-attachment-path nil)
(defvar olm-ruby-executable "ruby")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;

(defun olm-summary-mode-keyword ()
  (font-lock-add-keywords
   nil
   '(("^o.*$" . font-lock-builtin-face)
     ("^D.*$" . font-lock-warning-face))))

(add-hook 'olm-summary-mode-hook 'olm-summary-mode-keyword)

