;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\302\303\304\305\306\301%\210\307\310\311\312\313DD\314\315\316%\210\307\317\311\312\320DD\321\315\322%\210\323\324\304\325\304\326%\210\323\327\304\330\304\331%\210\323\332\304\333\304\334%\207" [require ebdb-mua custom-declare-group ebdb-mua-notmuch nil "Options for EBDB's interaction with Notmuch" :group custom-declare-variable ebdb-notmuch-auto-update-p funcall function #[0 "\207" [ebdb-mua-reader-update-p] 1] "Notmuch-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-notmuch-window-size #[0 "\207" [ebdb-default-window-size] 1] "Size of the EBDB buffer when popping up in Notmuch.\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 notmuch-show-mode)) #[257 "\300\301\302\303\304!\"!!\207" [notmuch-show-get-header intern format ":%s" capitalize] 7 "Extract a message header in Notmuch.\n\n(fn HEADER)"] ebdb-make-buffer-name (&context (major-mode notmuch-show-mode)) #[0 "\301\302\"\207" [ebdb-buffer-name format "*%s-Notmuch*"] 3] ebdb-popup-window (&context (major-mode notmuch-show-mode)) #[0 "\301 D\207" [ebdb-notmuch-window-size get-buffer-window] 2]] 6) #@25 Hook EBDB into Notmuch. (defalias 'ebdb-insinuate-notmuch #[0 "\303\304 #\210\n\205\305\306\307\"\207" [notmuch-show-mode-map ebdb-mua-keymap ebdb-complete-mail define-key ";" eval-after-load "notmuch-message" #[0 "\301\302\303#\207" [notmuch-message-mode-map define-key " " ebdb-complete-mail] 4]] 4 (#$ . 1955)]) (byte-code "\300\301\302\"\210\303\304!\207" [add-hook notmuch-show-mode-hook ebdb-insinuate-notmuch provide ebdb-notmuch] 3)