Fold lisp/bandali-utils.el back into init.el

[~bandali/configs] / lisp / bandali-message.el

diff --git a/lisp/bandali-message.el b/lisp/bandali-message.el
index e7e43f8..c13bffc 100644 (file)
--- a/lisp/bandali-message.el
+++ b/lisp/bandali-message.el
@@ -118,23 +118,21 @@
             (make-local-variable 'company-idle-delay)
             (setq company-idle-delay 0.2)))
 
             (make-local-variable 'company-idle-delay)
             (setq company-idle-delay 0.2)))
 

-(comment
-  (with-eval-after-load 'message-x
-    (csetq
-     message-x-completion-alist
-     '(("\\([rR]esent-\\|[rR]eply-\\)?[tT]o:\\|[bB]?[cC][cC]:"
-        . gnus-harvest-find-address)
-       ((if
-            (boundp
-             (quote message-newgroups-header-regexp))
-            message-newgroups-header-regexp message-newsgroups-header-regexp)
-        . message-expand-group)))))
-
-(comment
-  (require 'gnus-harvest)
-  (if (featurep 'message-x)
-      (gnus-harvest-install 'message-x)
-    (gnus-harvest-install)))
+;; (with-eval-after-load 'message-x
+;;   (csetq
+;;    message-x-completion-alist
+;;    '(("\\([rR]esent-\\|[rR]eply-\\)?[tT]o:\\|[bB]?[cC][cC]:"
+;;       . gnus-harvest-find-address)
+;;      ((if
+;;           (boundp
+;;            (quote message-newgroups-header-regexp))
+;;           message-newgroups-header-regexp message-newsgroups-header-regexp)
+;;       . message-expand-group))))
+
+;; (require 'gnus-harvest)
+;; (if (featurep 'message-x)
+;;     (gnus-harvest-install 'message-x)
+;;   (gnus-harvest-install))

 
 (provide 'bandali-message)
 ;;; bandali-message.el ends here
 
 (provide 'bandali-message)
 ;;; bandali-message.el ends here