;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!\203\300\306!\210\300\307!\210\310\311\312\313\314\302%\210\315\316\317\320\321DD\322\323\324%\210\315\325\317\320\326DD\327\323\330%\207" [require ebdb-com ebdb-mua mh-e fboundp mh-version mh-comp advice custom-declare-group ebdb-mua-mhe nil "EBDB customizations for mhe." :group custom-declare-variable ebdb-mhe-auto-update-p funcall function #[0 "\207" [ebdb-mua-reader-update-p] 1] "Mh-e-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-mhe-window-size #[0 "\207" [ebdb-default-window-size] 1] "Size of the EBDB buffer when popping up in mh-e.\nSize should be specified as a float between 0 and 1. Defaults to\nthe value of `ebdb-default-window-size'." float] 6) #@131 Find and return the value of HEADER in the current buffer. Returns the empty string if HEADER is not in the message. (fn HEADER) (defalias 'ebdb/mh-header #[257 "\302 \203 q\210eb\210\303\304\302#\204\305\202<\306\307!\203\"\305\202<\303\310\304\302#\210\311\224\311y\210\306\312!\204*\313u\210\314`\"\262)\207" [case-fold-search mh-show-buffer t re-search-forward nil "" looking-at "[ ]*$" "[ ]*\\([^ \n].*\\)$" 1 "[ ]" -1 buffer-substring-no-properties] 5 (#$ . 1435)]) (byte-code "\300\301\302\303\302\304%\210\300\301\302\305\302\306%\210\300\301\302\307\302\310%\210\300\311\302\312\302\313%\210\300\314\302\315\302\316%\210\300\314\302\317\302\320%\210\300\314\302\321\302\322%\210\300\323\302\324\302\325%\210\300\323\302\326\302\327%\210\300\323\302\330\302\331%\210\332\333\334\335\302$\210\336\333\302\"\210\332\337\340\335\302$\210\336\337\302\"\210\332\341\342\335\302$\210\336\341\302\"\210\332\343\344\335\302$\210\336\343\302\"\207" [cl-generic-define-method ebdb-make-buffer-name nil (&context (major-mode mhe-mode)) #[0 "\301\302\"\207" [ebdb-buffer-name format "*%s-MHE*"] 3 "Produce a EBDB buffer name associated with mh-hmode."] (&context (major-mode mhe-summary-mode)) #[0 "\301\302\"\207" [ebdb-buffer-name format "*%s-MHE*"] 3 "Produce a EBDB buffer name associated with mh-hmode."] (&context (major-mode mhe-folder-mode)) #[0 "\301\302\"\207" [ebdb-buffer-name format "*%s-MHE*"] 3 "Produce a EBDB buffer name associated with mh-hmode."] ebdb-popup-buffer (&context (major-mode mhe-summary-mode)) #[0 "\301 D\207" [ebdb-mhe-window-size get-buffer-window] 2] ebdb-mua-message-header ((header string) &context (major-mode mhe-mode)) #[257 "\300!\207" [ebdb/mh-header] 3 "\n\n(fn HEADER)"] ((header string) &context (major-mode mhe-summary-mode)) #[257 "\300!\207" [ebdb/mh-header] 3 "\n\n(fn HEADER)"] ((header string) &context (major-mode mhe-folder-mode)) #[257 "\300!\207" [ebdb/mh-header] 3 "\n\n(fn HEADER)"] ebdb-mua-prepare-article (&context (major-mode mhe-mode)) #[0 "\300 \207" [mh-show] 1] (&context (major-mode mhe-summary-mode)) #[0 "\300 \207" [mh-show] 1] (&context (major-mode mhe-folder-mode)) #[0 "\300 \207" [mh-show] 1] ad-add-advice mh-send (mh-ebdb-send nil t (advice lambda nil (interactive (list (ebdb-completing-read-mails "To: ") (ebdb-completing-read-mails "Cc: ") (read-string "Subject: "))))) before ad-activate mh-send-other-window (mh-ebdb-send-other nil t (advice lambda nil (interactive (list (ebdb-completing-read-mails "To: ") (ebdb-completing-read-mails "Cc: ") (read-string "Subject: "))))) mh-forward (mh-ebdb-forward nil t (advice lambda nil (interactive (list (ebdb-completing-read-mails "To: ") (ebdb-completing-read-mails "Cc: ") (if current-prefix-arg (mh-read-seq-default "Forward" t) (mh-get-msg-num t)))))) mh-redistribute (mh-ebdb-redist nil t (advice lambda nil (interactive (list (ebdb-completing-read-mails "Redist-To: ") (ebdb-completing-read-mails "Redist-Cc: ") (mh-get-msg-num t)))))] 6) #@22 Hook EBDB into MH-E. (defalias 'ebdb-insinuate-mh #[0 "\304\305 #\210\n\205\304 \306\302#\210\304 \307\302#\207" [mh-folder-mode-map ebdb-mua-keymap ebdb-complete-mail mh-letter-mode-map define-key ";" "\273" " "] 4 (#$ . 4429)]) (defalias 'ebdb-mhe-auto-update #[0 "\301!\207" [ebdb-mhe-auto-update-p ebdb-mua-auto-update] 2]) (byte-code "\300\301\302\"\210\300\303\304\"\210\305\306!\207" [add-hook mh-show-hook ebdb-mhe-auto-update mh-folder-mode-hook ebdb-insinuate-mh provide ebdb-mhe] 3)