;ELC   
;;; Compiled
;;; in Emacs version 30.1
;;; with all optimizations.


#@69 List of modes in which email address completion is to be attempted.
(require 'eudc)
(defconst eudc-capf-modes '(message-mode) (#$ . 83))#@563 Email address completion function for `completion-at-point-functions'.

This function checks whether the current major mode is one of the
modes listed in `eudc-capf-modes', and whether point is on a line
with a message header listing email recipients, that is, a line
whose beginning matches `message-email-recipient-header-regexp',
and, if the check succeeds, searches for records matching the
words before point.

The return value is either nil when no match is found, or a
completion table as required for functions listed in
`completion-at-point-functions'.
(defalias 'eudc-capf-complete #[0 "\303\304\"\205 	\305 )\205 \306 \207" [eudc-capf-modes message-email-recipient-header-regexp mail-abbrev-mode-regexp seq-some derived-mode-p mail-abbrev-in-expansion-header-p eudc-capf-message-expand-name] 3 (#$ . 226)])#@388 Email address completion function for `message-completion-alist'.

When this function is added to `message-completion-alist',
replacing any existing entry for `message-expand-name' there,
with an appropriate regular expression such as for example
`message-email-recipient-header-regexp', then EUDC will be
queried for email addresses, and the results delivered to
`completion-at-point'.#@10 

(fn _)
(defalias 'eudc-capf-message-expand-name #[0 "\204 	\205. \212\302\303!\210\304\225)`\212\305\")\306\307\310\"\311\"\211\205, \312\313\314\"\311\"E\266\204\207" [eudc-server eudc-server-hotlist re-search-backward "\\([:,]\\|^\\)[ 	]*" 0 buffer-substring-no-properties eudc-query-with-words split-string "[ 	]+" t completion-table-with-cache make-closure #[257 "\300\207" [V0] 2 (#$ . 1446)]] 10 (#$ . 1054)])
(provide 'eudc-capf)