[emacs] add message-x (for completion of groups, e.g. in Gcc field)

[~bandali/configs] / init.org

diff --git a/init.org b/init.org
index c203a71..8b6f146 100644 (file)
--- a/init.org
+++ b/init.org
@@ -68,8 +68,9 @@ Not only does my setup automatically and asynchronously tangle
 Emacs, it will also invoke =make build-init= if you set
 =a/byte-compiled-init= to =t= above, so you wouldn't have to worry
 about manually tangling and compiling your init file whenever you
-change it.  Results of byte-compilation are kept in a =*compilation*=
-buffer, which will be automatically displayed when compilation fails.
+change it.  The output of the last byte-compilation in the current
+session is kept in a =*compilation*= buffer, which will automatically
+be displayed if compilation fails.
 
 * Contents                                                   :toc_1:noexport:
 
@@ -2186,7 +2187,11 @@ Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]].
    gnus-save-newsrc-file nil
    gnus-read-newsrc-file nil
    gnus-interactive-exit nil
-   gnus-gcc-mark-as-read t))
+   gnus-gcc-mark-as-read t)
+  :config
+  (require 'ebdb)
+  (require 'ebdb-mua)
+  (require 'ebdb-gnus))
 
 (use-feature gnus-art
   :config
@@ -2302,6 +2307,7 @@ Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]].
         message-dont-reply-to-names
         "\\(\\(.*@aminb\\.org\\)\\|\\(amin@bandali\\.me\\)\\|\\(\\(aminb?\\|mab\\|bandali\\)@gnu\\.org\\)\\|\\(\\(m\\|a\\(min\\.\\)?\\)bandali@uwaterloo\\.ca\\)\\)"
         message-user-fqdn "aminb.org")
+  (require 'company-ebdb)
   :hook (;; (message-setup . mml-secure-message-sign-pgpmime)
          (message-mode . flyspell-mode)
          (message-mode . (lambda ()
@@ -2349,7 +2355,6 @@ Convenient footnotes in =message-mode=.
 #+begin_src emacs-lisp
 (use-package ebdb
   :straight (:host github :repo "girzel/ebdb")
-  :defer 2
   :after gnus
   :bind (:map gnus-group-mode-map ("e" . ebdb))
   :config
@@ -2366,14 +2371,11 @@ Convenient footnotes in =message-mode=.
 ;;   (ebdb-complete-enable))
 
 (use-package company-ebdb
-  :defer 2
   :config
   (defun company-ebdb--post-complete (_) nil))
 
 (use-feature ebdb-gnus
-  :defer 3
   :after ebdb
-  :demand
   :custom
   (ebdb-gnus-window-configuration
    '(article
@@ -2384,9 +2386,7 @@ Convenient footnotes in =message-mode=.
                            (ebdb-gnus 0.3))))))
 
 (use-feature ebdb-mua
-  :defer 3
   :after ebdb
-  :demand
   ;; :custom (ebdb-mua-pop-up nil)
   )
 
@@ -2398,9 +2398,13 @@ Convenient footnotes in =message-mode=.
 ;;   :after ebdb)
 #+end_src
 
-** COMMENT message-x
+** message-x
 
 #+begin_src emacs-lisp
+(use-package message-x)
+#+end_src
+
+#+begin_src emacs-lisp :tangle no
 (use-package message-x
   :custom
   (message-x-completion-alist