-;; (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))
-