;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301\302\303\304\305\306\307\310\311\310\312&\210\313\314\315\316\317DD\320\321\322%\207" [custom-declare-group eudc nil "Emacs Unified Directory Client." :version "21.1" :link (info-link "(eudc)") :group mail comm custom-declare-variable eudc-server funcall function #[0 "\300\207" [nil] 1 ""] "The name or IP address of the directory server.\nA port number may be specified by appending a colon and a\nnumber to the name of the server.  Use `localhost' if the directory\nserver resides on your computer (BBDB backend).\n\nTo specify multiple servers, customize eudc-server-hotlist\ninstead." :type (choice (string :tag "Server") (const :tag "None" nil))] 12)
(defvar eudc-known-protocols '(bbdb ldap))
(byte-code "\301\302\303\304\305DD\306\307\310\311\312\313\307\314\315\316\307\317\320\317\321\322\323\"\324\"BBBBB\257D\325\326&	\207" [eudc-known-protocols custom-declare-variable eudc-server-hotlist funcall function #[0 "\300\207" [nil] 1 ""] "Directory servers to query.\nThis is an alist of the form (SERVER . PROTOCOL).  SERVER is the\nhost name or URI of the server, PROTOCOL is a symbol representing\nthe EUDC backend with which to access the server.\n\nThe BBDB backend ignores SERVER; `localhost' can be used as a\nplaceholder string." :tag "Directory Servers to Query" :type repeat cons "Directory Server" (string :tag "Server Host Name or URI") choice "Protocol" :menu-tag append mapcar #[257 "\300\301\302!F\207" [const :tag symbol-name] 5 "\n\n(fn S)"] ((const :tag "None" nil)) :version "25.1"] 21)
#@136 Protocols currently supported by EUDC.
This variable is updated when protocol-specific libraries
are loaded, *do not change manually*.
(defvar eudc-supported-protocols nil (#$ . 1624))
(byte-code "\301\302\303\304\305DD\306\307\310\311\312\313\314\315\"\316\"BBB%\210\301\317\303\304\320DD\321\307\322%\210\301\323\303\304\324DD\325\307\326%\210\301\327\303\304\330DD\331\307\332%\210\301\333\303\304\334DD\335\307\336%\210\301\337\303\304\340DD\341\342\343\307\344\345\346&	\210\301\347\303\304\350DD\351\307\322\345\346&\210\301\352\303\304\353DD\354\307\355\345\346&\210\301\356\303\304\357DD\360\307\361%\210\301\362\303\304\363DD\364\342\365\307\366&\210\301\367\303\304\370DD\371\342\372\307\373&\210\301\374\303\304\375DD\376\342\377\307\201@&\210\301\201A\303\304\201BDD\201C\307\322%\210\301\201D\303\304\201EDD\201F\342\201G\307\201H&\210\301\201I\303\304\201JDD\201K\342\201L\307\201M&\210\301\201N\303\304\201ODD\201P\307\201Q\345\346&\210\301\201R\303\304\201SDD\201T\307\201U%\210\201V\201W\201X\201Y\201Z\201[%\210\301\201\\\303\304\201]DD\201^\342\201_\307\201`&\210\201a\201\\\201b\346#\210\201V\201c\201X\201d\201Z\201[%\210\301\201e\303\304\201fDD\201g\342\201h\307\201i&\210\201V\201j\201X\201k\201Z\201[%\210\301\201l\303\304\201mDD\201n\307\322%\210\301\201o\303\304\201pDD\201q\307\322%\210\201r\201s!\207" [eudc-known-protocols custom-declare-variable eudc-protocol funcall function #[0 "\300\207" [nil] 1 #1=""] "The directory protocol to use to query the server.\nSupported protocols are specified by `eudc-supported-protocols'." :type choice :menu-tag "Protocol" append mapcar #[257 "\300\301\302!F\207" [const :tag symbol-name] 5 "\n\n(fn S)"] ((const :tag "None" nil)) eudc-strict-return-matches #[0 "\300\207" [t] 1 #1#] "Ignore or allow entries not containing all requested return attributes.\nIf non-nil, such entries are ignored." boolean eudc-default-return-attributes #[0 "\300\207" [nil] 1 #1#] "A list of default attributes to extract from directory entries.\nIf set to the symbol `all', return all attributes.\nA value of nil means return the default attributes as configured in the\nserver." (choice :menu-tag "Return Attributes" (const :menu-tag "Server defaults (nil)" nil) (const :menu-tag "All" all) (repeat :menu-tag "Attribute list" :tag "Attribute name" :value (nil) (symbol :tag "Attribute name"))) eudc-multiple-match-handling-method #[0 "\300\207" [select] 1 #1#] "What to do when multiple entries match an inline expansion query.\nPossible values are:\n`first' (equivalent to nil) which means keep the first match only,\n`select' pop-up a selection buffer,\n`all' expand to all matches,\n`abort' the operation is aborted, an error is signaled." (choice :menu-tag "Method" (const :menu-tag "Use First" :tag "Use First" first) (const :menu-tag "Select Interactively" :tag "Select Interactively" select) (const :menu-tag "Use All" :tag "Use All" all) (const :menu-tag "Abort Operation" :tag "Abort Operation" abort) (const :menu-tag "Default (Use First)" :tag "Default (Use First)" nil)) eudc-duplicate-attribute-handling-method #[0 "\300\207" [((email . duplicate))] 1 #1#] "A method to handle entries containing duplicate attributes.\nThis is either an alist (ATTR . METHOD) or a symbol METHOD.\nThe alist form of the variable associates a method to an individual attribute,\nthe second form specifies a method applicable to all attributes.\nAvailable methods are:\n`list' or nil lets the value of the attribute be a list of values,\n`first' keeps the first value and discards the others,\n`concat' concatenates the values into a single multiline string,\n`duplicate' duplicates the entire entry into as many instances as\ndifferent values." (choice (const :menu-tag "List" list) (const :menu-tag "First" first) (const :menu-tag "Concat" concat) (const :menu-tag "Duplicate" duplicate) (repeat :menu-tag "Per Attribute Specification" :tag "Per Attribute Specification" (cons :tag "Attribute/Method" :value (nil . list) (symbol :tag "Attribute name") (choice :tag "Method" :menu-tag "Method" (const :menu-tag "List" list) (const :menu-tag "First" first) (const :menu-tag "Concat" concat) (const :menu-tag "Duplicate" duplicate))))) eudc-inline-query-format #[0 "\300\207" [((email) (firstname) (firstname name))] 1 #1#] "Format of an inline expansion query.\nThis is a list of FORMATs.  A FORMAT is itself a list of one or more\nEUDC attribute names.  A FORMAT applies if it contains as many attributes as\nthere are individual words in the inline query string.\nIf several FORMATs apply then they are tried in order until a match\nis found.\nIf nil, all the words are mapped onto the default server or protocol\nattribute name.\n\nThe attribute names in FORMATs are not restricted to EUDC attribute names\nbut can also be protocol/server specific names.  In this case, this variable\nmust be set in a protocol/server-local fashion, see `eudc-server-set' and\n`eudc-protocol-set'." :tag "Format of Inline Expansion Queries" (repeat (repeat :menu-tag "Format" :tag "Format" (choice :tag "Attribute" (const :menu-tag "First Name" :tag "First Name" firstname) (const :menu-tag "Surname" :tag "Surname" name) (const :menu-tag "Email Address" :tag "Email Address" email) (const :menu-tag "Phone" :tag "Phone" phone) (symbol :menu-tag "Other" :tag "Attribute name")))) :version "25.1" eudc-expansion-overwrites-query #[0 "\300\207" [nil] 1 #1#] "If non-nil, expanding a query overwrites the query string." eudc-inline-expansion-format #[0 "\300\207" [("%s %s <%s>" firstname name email)] 1 #1#] "A list specifying the format of the expansion of inline queries.\nThis variable controls what `eudc-expand-inline' actually inserts in\nthe buffer.  First element is a string passed to `format'.  Remaining\nelements are symbols indicating attribute names; the corresponding values\nare passed as additional arguments to `format'." (list (string :tag "Format String") (repeat :inline t :tag "Attributes" (choice :tag "Attribute" (const :menu-tag "First Name" :tag "First Name" firstname) (const :menu-tag "Surname" :tag "Surname" name) (const :menu-tag "Email Address" :tag "Email Address" email) (const :menu-tag "Phone" :tag "Phone" phone) (symbol :menu-tag "Other") (symbol :tag "Attribute name")))) eudc-inline-expansion-servers #[0 "\300\207" [server-then-hotlist] 1 #1#] "Which servers to contact for the expansion of inline queries.\nPossible values are:\n  `current-server': the EUDC current server.\n  `hotlist': the servers of the hotlist in the order they appear,\n  `server-then-hotlist': the current server and then the servers of\n  the hotlist." (choice :tag "Servers" :menu-tag "Servers" (const :menu-tag "Current server" current-server) (const :menu-tag "Servers in the hotlist" hotlist) (const :menu-tag "Current server then hotlist" server-then-hotlist)) eudc-max-servers-to-query #[0 "\300\207" [nil] 1 #1#] "Maximum number of servers to query for an inline expansion.\nIf nil, query all servers available from `eudc-inline-expansion-servers'." "Max Number of Servers to Query" (choice :tag "Max. Servers" :menu-tag "Max. Servers" (const :menu-tag "No limit" nil) (const :menu-tag "1" 1) (const :menu-tag "2" 2) (const :menu-tag "3" 3) (const :menu-tag "4" 4) (const :menu-tag "5" 5) (integer :menu-tag "Set")) eudc-query-form-attributes #[0 "\300\207" [(name firstname email phone)] 1 #1#] "A list of attributes presented in the query form." "Attributes in Query Forms" (repeat (choice :tag "Attribute" (const :menu-tag "First Name" :tag "First Name" firstname) (const :menu-tag "Surname" :tag "Surname" name) (const :menu-tag "Email Address" :tag "Email Address" email) (const :menu-tag "Phone" :tag "Phone" phone) (symbol :menu-tag "Other" :tag "Attribute name"))) eudc-user-attribute-names-alist #[0 "\300\207" [((url . "URL") (callsign . "HAM Call Sign") (id . "ID") (email . "E-Mail") (firstname . "First Name") (cn . "Full Name") (sn . "Surname") (givenname . "First Name") (ou . "Unit") (labeledurl . "URL") (postaladdress . "Address") (postalcode . "Postal Code") (l . "Location") (c . "Country") (o . "Organization") (roomnumber . "Office") (telephonenumber . "Phone") (uniqueidentifier . "ID") (objectclass . "Object Class"))] 1 #1#] "Alist of user-defined names for directory attributes.\nThese names are used as prompt strings in query/response forms\ninstead of the raw directory attribute names.\nPrompt strings for attributes that are not listed here\nare derived by splitting the attribute name\nat `_' characters and capitalizing the individual words." "User-defined Names of Directory Attributes" (repeat (cons :tag "Field" (symbol :tag "Directory attribute") (string :tag "User friendly name "))) eudc-use-raw-directory-names #[0 "\300\207" [nil] 1 #1#] "If non-nil, use attributes names as defined in the directory.\nOtherwise, directory query/response forms display the user attribute\nnames defined in `eudc-user-attribute-names-alist'." eudc-attribute-display-method-alist #[0 "\300\207" [nil] 1 #1#] "An alist specifying methods to display attribute values.\nEach member of the list is of the form (NAME . FUNC) where NAME is a lowercased\nstring naming a directory attribute (translated according to\n`eudc-user-attribute-names-alist' if `eudc-use-raw-directory-names' is\nnon-nil) and FUNC a function that will be passed the corresponding\nattribute values for display." "Attribute Decoding Functions" (repeat (cons :tag "Attribute" (symbol :tag "Name") (symbol :tag "Display Function"))) eudc-external-viewers #[0 "\300\207" [(("ImageMagick" "display" "-") ("ShowAudio" "showaudio"))] 1 #1#] "A list of viewer program specifications.\nViewers are programs which can be piped a directory attribute value for\ndisplay or arbitrary processing.  Each specification is a list whose\nfirst element is a string naming the viewer.  The second element is the\nexecutable program which should be invoked, and following elements are\narguments that should be passed to the program." "External Viewer Programs" (repeat (list :tag "Viewer" (string :tag "Name") (string :tag "Executable program") (repeat :tag "Arguments" :inline t (string :tag "Argument")))) eudc-options-file #[0 "\300\301\302\"\207" [locate-user-emacs-file "eudc-options" ".eudc-options"] 3 #1#] "A file where the `servers' hotlist is stored." (file :Tag "File Name:") eudc-mode-hook #[0 "\300\207" [nil] 1 #1#] "Normal hook run on entry to EUDC mode." hook custom-declare-group eudc-ph nil "Emacs Unified Directory Client - CCSO PH/QI Backend." :group eudc eudc-ph-bbdb-conversion-alist #[0 "\300\207" [((name . name) (net . email) (address eudc-bbdbify-address address "Address") (phone (eudc-bbdbify-phone phone "Phone") (eudc-bbdbify-phone office_phone "Office Phone")))] 1 #1#] "A mapping from BBDB to PH/QI fields.\nThis is a list of cons cells (BBDB-FIELD . SPEC-OR-LIST) where\nBBDB-FIELD is the name of a field that must be defined in your BBDB\nenvironment (standard field names are `name', `company', `net', `phone',\n`address' and `notes').  SPEC-OR-LIST is either a single SPEC or a list\nof SPECs.  Lists of specs are valid only for the `phone' and `address'\nBBDB fields.  SPECs are sexps which are evaluated:\n  a string evaluates to itself,\n  a symbol evaluates to the symbol value.  Symbols naming PH/QI fields\n    present in the record evaluate to the value of the field in the record,\n  a form is evaluated as a function.  The argument list may contain PH/QI\n    field names which eval to the corresponding values in the\n    record.  The form evaluation should return something appropriate for\n    the particular BBDB-FIELD (see `bbdb-create-internal').\n    `eudc-bbdbify-phone' and `eudc-bbdbify-address' are provided as convenience\n    functions to parse phones and addresses." "BBDB to PH Field Name Mapping" (repeat (cons :tag "Field Name" (symbol :tag "BBDB Field") (sexp :tag "Conversion Spec"))) make-obsolete-variable "the EUDC PH/QI backend is obsolete." eudc-ldap "Emacs Unified Directory Client - LDAP Backend." eudc-ldap-bbdb-conversion-alist #[0 "\300\207" [((name . cn) (net . mail) (address eudc-bbdbify-address postaladdress "Address") (phone eudc-bbdbify-phone telephonenumber "Phone") (company eudc-bbdbify-company o))] 1 #1#] "A mapping from BBDB to LDAP attributes.\nThis is a list of cons cells (BBDB-FIELD . SPEC-OR-LIST) where\nBBDB-FIELD is the name of a field that must be defined in your BBDB\nenvironment (standard field names are `name', `company', `net', `phone',\n`address' and `notes').  SPEC-OR-LIST is either a single SPEC or a list\nof SPECs.  Lists of specs are valid only for the `phone' and `address'\nBBDB fields.  SPECs are sexps which are evaluated:\n  a string evaluates to itself,\n  a symbol evaluates to the symbol value.  Symbols naming LDAP attributes\n    present in the record evaluate to the value of the field in the record,\n  a form is evaluated as a function.  The argument list may contain LDAP\n    field names which eval to the corresponding values in the\n    record.  The form evaluation should return something appropriate for\n    the particular BBDB-FIELD (see `bbdb-create-internal').\n    `eudc-bbdbify-phone' and `eudc-bbdbify-address' are provided as convenience\n    functions to parse phones and addresses." "BBDB to LDAP Attribute Names Mapping" (repeat (cons :tag "Field Name" (symbol :tag "BBDB Field") (sexp :tag "Conversion Spec"))) eudc-bbdb "Emacs Unified Directory Client - BBDB Backend." eudc-bbdb-use-locations-as-attribute-names #[0 "\300\207" [t] 1 #1#] "If non-nil, BBDB address and phone locations are used as attribute names.\nThis has no effect on queries (you can't search for a specific location)\nbut influences the way records are displayed." eudc-bbdb-enable-substring-matches #[0 "\300\207" [t] 1 #1#] "If non-nil, authorize substring match in the same way BBDB does.\nOtherwise records must match queries exactly." provide eudc-vars] 12)