           olm-folder-name (caar olm-folder-alist)))
   (unless olm-folder-id
     (setq olm-folder-id (olm-default-folder-id)
-          olm-folder-name "inbox")))
+          olm-folder-name "inbox"))
+  (unless olm-deleted-items-folder-id
+    (setq olm-deleted-items-folder-id (olm-deleted-items-folder-id))))
 
 (defun olm-scan ()
   (interactive)

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

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


(defvar olm-default-bcc nil)
(defvar olm-attachment-path nil)
(defvar olm-ruby-executable "ruby")
(defvar olm-deleted-items-folder-id nil)

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