tweaks

4 files changed, 10 insertions, 2 deletions

diff --git a/email.org b/email.org
index 7f957dd..386aead 100644
--- a/email.org
+++ b/email.org
@@ -657,7 +657,7 @@
         :config (setq message-directory "~/var/mail/"
                       message-auto-save-directory
                       (expand-file-name "drafts" message-directory))
-        :bind (:map notmuch-message-mode-map
+        :bind (:map message-mode-map
                     (("C-c C-d" . notmuch-draft-postpone))))
 
     #+end_src
diff --git a/init.org b/init.org
index 3d2d9ce..8591585 100644
--- a/init.org
+++ b/init.org
@@ -1686,6 +1686,11 @@
                 (if (fboundp 'w3m-view-mode) (w3m-view-source) (View-quit))
                 (when url (cons url (or title ""))))))))
 
+      (defun jao-list-mailboxes (base)
+        (let ((dir (expand-file-name base "~/var/mail")))
+          (seq-difference (directory-files dir)
+                          '("." ".." "sent" "inbox" "trash"))))
+
       (defun jao-rss-subscribe ()
         (interactive)
         (let* ((url (or (jao-url-around-point)
diff --git a/lib/themes/jao-light-theme.el b/lib/themes/jao-light-theme.el
index 659f930..7772763 100644
--- a/lib/themes/jao-light-theme.el
+++ b/lib/themes/jao-light-theme.el
@@ -116,7 +116,7 @@
                        :box (:line-width 1 :color "grey90"))
             (mode-line-inactive (c "grey40" dimm-background-4)
                                 :box (:line-width 1 :color "grey90"))
-            (mode-line-buffer-id (~ mode-line) (c dark-blue-2) nit)
+            (mode-line-buffer-id (~ default) (c dark-blue-2) nit)
             (mode-line-emphasis (c green nil))
             (mode-line-highlight (c green nil))
             (org-link (p link) (ul "grey80"))
diff --git a/lib/themes/jao-themes.el b/lib/themes/jao-themes.el
index d1b1822..5e47795 100644
--- a/lib/themes/jao-themes.el
+++ b/lib/themes/jao-themes.el
@@ -1100,6 +1100,9 @@
             (widget-field (p hilite) bx)
             (widget-inactive (p dimm))
             (Widget-single-line-field (~ widget-field))
+            (window-divider (~ vertical-border))
+            (window-divider-first-pixel (~ window-divider))
+            (window-divider-last-pixel (~ window-divider))
             (woman-bold (p f00) bf)
             (woman-italic (p f01) nul nit)
             (woman-italic-no-ul (p f01) nul nit)))))