;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\304\305\306\307\310\301%\210\311\312\313\314\315DD\316\317\320%\210\311\321\313\314\322DD\323\317\324%\210\325\326\306\327\306\330%\210\325\331\306\332\306\333%\210\325\334\306\335\306\336%\207" [require ebdb-mua ebdb-message mu4e-view custom-declare-group ebdb-mua-mu4e nil "Mu4e-specific EBDB customizations." :group custom-declare-variable ebdb-mu4e-auto-update-p funcall function #[0 "\207" [ebdb-mua-reader-update-p] 1] "Mu4e-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-mu4e-window-size #[0 "\207" [ebdb-default-window-size] 1] "Size of the EBDB buffer when popping up in mu4e.\nSize should be specified as a float between 0 and 1. Defaults to\nthe value of `ebdb-default-window-size'." float cl-generic-define-method ebdb-mua-message-header ((header string) &context (major-mode mu4e-view-mode)) #[257 "q\210\301!\207" [mu4e~view-buffer-name message-field-value] 3 "\n\n(fn HEADER)"] ebdb-make-buffer-name (&context (major-mode mu4e-view-mode)) #[0 "\301\302\"\207" [ebdb-buffer-name format "*%s-mu4e*"] 3 "Produce a EBDB buffer name associated with mu4e mode."] ebdb-popup-window (&context (major-mode mu4e-view-mode)) #[0 "\301 D\207" [ebdb-mu4e-window-size get-buffer-window] 2]] 6) #@22 Hook EBDB into mu4e. (defalias 'ebdb-insinuate-mu4e #[0 "\302\303 #\210\304\305\306\"\207" [mu4e-view-mode-map ebdb-mua-keymap define-key ";" add-hook message-sent-hook #[0 "\301\302\303\"!\211\205\304!\205\305\306\"\207" [ebdb-buffer-name get-buffer-window format "*%s-Message*" window-live-p quit-window nil] 4]] 4 (#$ . 1958)]) (byte-code "\300\301\302\"\210\303\304!\207" [add-hook mu4e-main-mode-hook ebdb-insinuate-mu4e provide ebdb-mu4e] 3)