;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\300\305!\210\306\307\310\311\312\302%\210\313\314\315\316\317DD\320\321\322%\210\313\323\315\316\324DD\325\321\326%\207" [require ebdb-com ebdb-mua rmail rmailsum mailheader custom-declare-group ebdb-mua-rmail nil "EBDB customization for rmail." :group custom-declare-variable ebdb-rmail-auto-update-p funcall function #[0 "\207" [ebdb-mua-reader-update-p] 1] "Rmail-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-rmail-window-size #[0 "\207" [ebdb-default-window-size] 1] "Size of the EBDB buffer when popping up in rmail.\nSize should be specified as a float between 0 and 1. Defaults to\nthe value of `ebdb-default-window-size'." float] 6) #@56 Returns t if the current message in buffer BUF is new. (defalias 'ebdb/rmail-new-flag #[0 "\301\302\"\207" [rmail-current-message rmail-message-labels-p ", ?\\(unseen\\),"] 3 (#$ . 1415)]) #@47 Pull HEADER out of Rmail header. (fn HEADER) (defalias 'ebdb/rmail-header #[257 "rq\210\304\305!\203\305!\202%\214\306 \210\307\227!\310 \211 \206\" \236A+)\207" [rmail-buffer header-alist header headers fboundp rmail-get-header rmail-narrow-to-non-pruned-header intern-soft mail-header-extract] 4 (#$ . 1611)]) (byte-code "\300\301\302\303\302\304%\210\300\301\302\305\302\306%\210\300\307\302\310\302\311%\210\300\307\302\312\302\313%\210\300\314\302\315\302\316%\207" [cl-generic-define-method ebdb-mua-message-header nil ((header string) &context (major-mode rmail-mode)) #[257 "\300!\207" [ebdb/rmail-header] 3 "\n\n(fn HEADER)"] ((header string) &context (major-mode rmail-summary-mode)) #[257 "\300!\207" [ebdb/rmail-header] 3 "\n\n(fn HEADER)"] ebdb-make-buffer-name (&context (major-mode rmail-mode)) #[0 "\301\302\"\207" [ebdb-buffer-name format "*%s-Rmail*"] 3] (&context (major-mode rmail-summary-mode)) #[0 "\301\302\"\207" [ebdb-buffer-name format "*%s-Rmail*"] 3] ebdb-popup-buffer (&context (major-mode rmail-summary-mode)) #[0 "\301 D\207" [ebdb-rmail-window-size get-buffer-window] 2]] 6) #@23 Hook EBDB into RMAIL. (defalias 'ebdb-insinuate-rmail #[0 "\302\303 #\207" [rmail-mode-map ebdb-mua-keymap define-key ";"] 4 (#$ . 2739)]) (defalias 'ebdb-rmail-auto-update #[0 "\301!\207" [ebdb-rmail-auto-update-p ebdb-mua-auto-update] 2]) (byte-code "\300\301\302\"\210\300\303\304\"\210\305\306!\207" [add-hook rmail-mode-hook ebdb-insinuate-rmail rmail-show-message-hook ebdb-rmail-auto-update provide ebdb-rmail] 3)