;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311\301%\210\312\306\313\314#\210\315\316\317\320\321DD\322\323\324%\210\315\325\317\320\326DD\327\323\330%\210\315\331\317\320\332DD\333\311\306\323\334&\210\335\336\331\337#\207" [require ebdb-mua ebdb-com message sendmail custom-declare-group ebdb-mua-message nil "Message-specific EBDB customizations" :group put custom-loads (ebdb-message) custom-declare-variable ebdb-message-auto-update-p funcall function #[0 "\207" [ebdb-mua-sender-update-p] 1] "Message-specific value of `ebdb-mua-auto-update-p'." :type (choice (const :tag "do nothing" nil) (const :tag "search for existing records" existing) (const :tag "update existing records" update) (const :tag "query for update or record creation" query) (const :tag "update or create automatically" create) (function :tag "User-defined function")) ebdb-message-window-size #[0 "\207" [ebdb-default-window-size] 1] "Size of the EBDB buffer when popping up in message-mode.\nSize should be specified as a float between 0 and 1. Defaults to\nthe value of `ebdb-default-window-size'." float ebdb-message-window-configuration #[0 "\300\207" [nil] 1] "Symbol that names EBDB's Message reply window config.\nThis option is nil by default, meaning Gnus will pop up the\n*EBDB-Message* buffer next to the message composition buffer,\nwith width/height of `ebdb-message-window-size'.\n\nIf more control is required, set this to a symbol name. This\nsymbol will be entered into the `gnus-window-to-buffer' alist,\nand can be used as an entry in more complex Gnus buffer/window\nconfigurations.\n\nNote that this should be a different symbol from that used in\nGnus's article-reading config." (choice (const nil) (symbol :tag "Window config name")) make-obsolete-variable ebdb-message-reply-yank-window-config "0.6.23"] 8) (defalias 'ebdb-message-buffer-name #[0 "\301\302\"\207" [ebdb-buffer-name format "*%s-Message*"] 3]) (byte-code "\300\301\302\303#\210\304\305\306\307\306\310%\210\304\305\306\311\306\312%\210\304\313\306\314\306\315%\210\304\313\306\316\306\317%\210\304\313\306\320\306\321%\210\304\322\306\323\306\324%\210\304\322\306\325\306\326%\207" [put ebdb-message-buffer-name byte-optimizer byte-compile-inline-expand cl-generic-define-method ebdb-make-buffer-name nil (&context (major-mode message-mode)) #[0 "\301\302\"\207" [ebdb-buffer-name format #1="*%s-Message*"] 3 "Produce a EBDB buffer name associated with Message mode."] (&context (major-mode mail-mode)) #[0 "\301\302\"\207" [ebdb-buffer-name format #1#] 3 "Produce a EBDB buffer name associated with Mail mode."] ebdb-mua-message-header ((header string) &context (major-mode message-mode)) #[257 "\300!\207" [message-field-value] 3 "\n\n(fn HEADER)"] ((header string) &context (major-mode notmuch-message-mode)) #[257 "\300!\207" [message-field-value] 3 "\n\n(fn HEADER)"] ((header string) &context (major-mode mail-mode)) #[257 "\300!\207" [message-field-value] 3 "\n\n(fn HEADER)"] ebdb-popup-window (&context (major-mode message-mode)) #[0 "\301 D\207" [ebdb-message-window-size get-buffer-window] 2] (&context (major-mode mail-mode)) #[0 "\301 D\207" [ebdb-message-window-size get-buffer-window] 2]] 6) #@87 Call `ebdb-complete-mail-cleanup' after capf completion. (fn STR BUFFER POS &rest _) (defalias 'ebdb-message-complete-mail-cleanup #[899 "\300\"\207" [ebdb-complete-mail-cleanup] 7 (#$ . 3631)]) #@98 Remove the EBDB window if the user kills the message buffer. Also fires when postponing a draft. (defalias 'ebdb-message-quit-ebdb #[0 "\301\302\303\"!\211\205\304\305\"\207" [ebdb-buffer-name get-buffer-window format "*%s-Message*" quit-window nil] 4 (#$ . 3835)]) (defalias 'ebdb-insinuate-message #[0 "\304=\203\305\306\307\310\311$\210\305\312\313\310\311$\210\202)\203)\314 \235\203% \202(\314 B\n\2037\315\316\n\317\320 \"B\"\210\321\322\323\324\325$\210\326 \207" [ebdb-complete-mail message-completion-alist ebdb-message-window-configuration ebdb-buffer-name capf add-hook completion-at-point-functions ebdb-mail-dwim-completion-at-point-function nil t choose-completion-string-functions ebdb-message-complete-mail-cleanup ("^\\(Resent-\\)?\\(To\\|B?Cc\\|Reply-To\\|From\\|Mail-Followup-To\\|Mail-Copies-To\\):" . ebdb-complete-mail) add-to-list gnus-window-to-buffer format "*%s-Message*" message-add-action ebdb-message-quit-ebdb exit postpone kill ebdb-undisplay-records] 6]) #@27 Hook EBDB into Mail Mode. (defalias 'ebdb-insinuate-mail #[0 "\304=\203\305\306\307\310\311$\210\305\312\313\310\311$\210\202!\203!\314 \315\300#\210\n\203/\316\317\n\320\321 \"B\"\210\322 \207" [ebdb-complete-mail mail-mode-map ebdb-message-window-configuration ebdb-buffer-name capf add-hook completion-at-point-functions ebdb-mail-dwim-completion-at-point-function nil t choose-completion-string-functions ebdb-message-complete-mail-cleanup define-key "\211" add-to-list gnus-window-to-buffer format "*%s-Message*" ebdb-undisplay-records] 6 (#$ . 4842)]) (defalias 'ebdb-message-auto-update #[0 "\301!\207" [ebdb-message-auto-update-p ebdb-mua-auto-update] 2]) (defalias 'ebdb-message-display-only #[0 "\300\301!\207" [ebdb-mua-auto-update existing] 2]) (byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\210\300\307\306\"\210\310\311!\207" [add-hook message-mode-hook ebdb-insinuate-message mail-setup-hook ebdb-insinuate-mail message-send-hook ebdb-message-auto-update mail-send-hook provide ebdb-message] 3)