66592
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
1 ;;; eudcb-mab.el --- Emacs Unified Directory Client - AddressBook backend
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
2
|
106815
|
3 ;; Copyright (C) 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
|
94677
|
4 ;; Free Software Foundation, Inc.
|
66592
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
5
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
6 ;; Author: John Wiegley <johnw@newartisans.com>
|
74624
|
7 ;; Maintainer: FSF
|
66592
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
8 ;; Keywords: comm
|
110015
|
9 ;; Package: eudc
|
66592
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
10
|
66648
3dbeee07bb77
Now part of GNU Emacs. Update FSF's address. Update copyright years.
Romain Francoise <romain@orebokech.com>
diff
changeset
|
11 ;; This file is part of GNU Emacs.
|
66592
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
12
|
94677
|
13 ;; GNU Emacs is free software: you can redistribute it and/or modify
|
|
14 ;; it under the terms of the GNU General Public License as published by
|
|
15 ;; the Free Software Foundation, either version 3 of the License, or
|
|
16 ;; (at your option) any later version.
|
66592
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
17
|
94677
|
18 ;; GNU Emacs is distributed in the hope that it will be useful,
|
|
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
21 ;; GNU General Public License for more details.
|
66592
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
22
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
23 ;; You should have received a copy of the GNU General Public License
|
94677
|
24 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
|
66592
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
25
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
26 ;;; Commentary:
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
27 ;; This library provides an interface to use the Mac's AddressBook,
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
28 ;; by way of the "contacts" command-line utility which can be found
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
29 ;; by searching on the Net.
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
30
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
31 ;;; Code:
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
32
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
33 (require 'eudc)
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
34 (require 'executable)
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
35
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
36 ;;{{{ Internal cooking
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
37
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
38 (defvar eudc-mab-conversion-alist nil)
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
39 (defvar eudc-buffer-time nil)
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
40 (defvar eudc-contacts-file
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
41 "~/Library/Application Support/AddressBook/AddressBook.data")
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
42
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
43 (eudc-protocol-set 'eudc-query-function 'eudc-mab-query-internal 'mab)
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
44 (eudc-protocol-set 'eudc-list-attributes-function nil 'mab)
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
45 (eudc-protocol-set 'eudc-mab-conversion-alist nil 'mab)
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
46 (eudc-protocol-set 'eudc-protocol-has-default-query-attributes nil 'mab)
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
47
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
48 (defun eudc-mab-query-internal (query &optional return-attrs)
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
49 "Query MAB with QUERY.
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
50 QUERY is a list of cons cells (ATTR . VALUE) where ATTRs should be valid
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
51 MAB attribute names.
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
52 RETURN-ATTRS is a list of attributes to return, defaulting to
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
53 `eudc-default-return-attributes'."
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
54
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
55 (let ((fmt-string "%ln:%fn:%p:%e")
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
56 (mab-buffer (get-buffer-create " *mab contacts*"))
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
57 (modified (nth 5 (file-attributes eudc-contacts-file)))
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
58 result)
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
59 (with-current-buffer mab-buffer
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
60 (make-local-variable 'eudc-buffer-time)
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
61 (goto-char (point-min))
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
62 (when (or (eobp) (time-less-p eudc-buffer-time modified))
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
63 (erase-buffer)
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
64 (call-process (executable-find "contacts") nil t nil
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
65 "-H" "-l" "-f" fmt-string)
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
66 (setq eudc-buffer-time modified))
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
67 (goto-char (point-min))
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
68 (while (not (eobp))
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
69 (let* ((args (split-string (buffer-substring (point)
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
70 (line-end-position))
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
71 "\\s-*:\\s-*"))
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
72 (lastname (nth 0 args))
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
73 (firstname (nth 1 args))
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
74 (phone (nth 2 args))
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
75 (mail (nth 3 args))
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
76 (matched t))
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
77
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
78 (if (string-match "\\s-+\\'" mail)
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
79 (setq mail (replace-match "" nil nil mail)))
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
80
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
81 (dolist (term query)
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
82 (cond
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
83 ((eq (car term) 'name)
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
84 (unless (string-match (cdr term)
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
85 (concat firstname " " lastname))
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
86 (setq matched nil)))
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
87 ((eq (car term) 'email)
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
88 (unless (string= (cdr term) mail)
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
89 (setq matched nil)))
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
90 ((eq (car term) 'phone))))
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
91
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
92 (when matched
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
93 (setq result
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
94 (cons `((firstname . ,firstname)
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
95 (lastname . ,lastname)
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
96 (name . ,(concat firstname " " lastname))
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
97 (phone . ,phone)
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
98 (email . ,mail)) result))))
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
99 (forward-line)))
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
100 (if (null return-attrs)
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
101 result
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
102 (let (eudc-result)
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
103 (dolist (entry result)
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
104 (let (entry-attrs abort)
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
105 (dolist (attr entry)
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
106 (when (memq (car attr) return-attrs)
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
107 (if (= (length (cdr attr)) 0)
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
108 (setq abort t)
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
109 (setq entry-attrs
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
110 (cons attr entry-attrs)))))
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
111 (if (and entry-attrs (not abort))
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
112 (setq eudc-result
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
113 (cons entry-attrs eudc-result)))))
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
114 eudc-result))))
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
115
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
116 ;;}}}
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
117
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
118 ;;{{{ High-level interfaces (interactive functions)
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
119
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
120 (defun eudc-mab-set-server (dummy)
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
121 "Set the EUDC server to MAB."
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
122 (interactive)
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
123 (eudc-set-server dummy 'mab)
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
124 (message "MAB server selected"))
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
125
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
126 ;;}}}
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
127
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
128
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
129 (eudc-register-protocol 'mab)
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
130
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
131 (provide 'eudcb-mab)
|
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
132
|
66623
|
133 ;; arch-tag: 4bef8e65-f109-47c7-91b9-8a6ea3ed7bb1
|
66592
a30dfd31ff22
(eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff
changeset
|
134 ;;; eudcb-mab.el ends here
|