annotate lisp/net/eudcb-mab.el @ 74864:e97d916ee47b

(allout-encrypt-string): Inhibit use of agent within body of let form where encryption happens. Acknowledge non-use of gpg-agent in docstring. (allout-toggle-subtree-encryption): Acknowledge non-use of gpg-agent in docstring.
author Chong Yidong <cyd@stupidchicken.com>
date Sun, 24 Dec 2006 01:08:43 +0000
parents 0245a94c8ed9
children e3694f1cb928
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
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
68648
067115a6e738 Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 66651
diff changeset
3 ;; Copyright (C) 2003, 2004, 2005, 2006 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
4
a30dfd31ff22 (eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff changeset
5 ;; Author: John Wiegley <johnw@newartisans.com>
74624
0245a94c8ed9 No maintainer.
Richard M. Stallman <rms@gnu.org>
parents: 68648
diff changeset
6 ;; Maintainer: FSF
66592
a30dfd31ff22 (eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff changeset
7 ;; Keywords: comm
a30dfd31ff22 (eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff changeset
8
66648
3dbeee07bb77 Now part of GNU Emacs. Update FSF's address. Update copyright years.
Romain Francoise <romain@orebokech.com>
parents: 66623
diff changeset
9 ;; 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
10
a30dfd31ff22 (eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff changeset
11 ;; This program is free software; you can redistribute it and/or
a30dfd31ff22 (eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff changeset
12 ;; modify it under the terms of the GNU General Public License as
a30dfd31ff22 (eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff changeset
13 ;; published by the Free Software Foundation; either version 2, or (at
a30dfd31ff22 (eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff changeset
14 ;; your option) any later version.
a30dfd31ff22 (eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff changeset
15
a30dfd31ff22 (eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff changeset
16 ;; This program is distributed in the hope that it will be useful, but
a30dfd31ff22 (eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff changeset
17 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
a30dfd31ff22 (eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff changeset
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
a30dfd31ff22 (eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff changeset
19 ;; General Public License for more details.
a30dfd31ff22 (eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff changeset
20
a30dfd31ff22 (eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff changeset
21 ;; You should have received a copy of the GNU General Public License
a30dfd31ff22 (eudc-mab-query-internal): Added backend support for OS/X's
John Wiegley <johnw@newartisans.com>
parents:
diff changeset
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
66648
3dbeee07bb77 Now part of GNU Emacs. Update FSF's address. Update copyright years.
Romain Francoise <romain@orebokech.com>
parents: 66623
diff changeset
23 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
3dbeee07bb77 Now part of GNU Emacs. Update FSF's address. Update copyright years.
Romain Francoise <romain@orebokech.com>
parents: 66623
diff changeset
24 ;; Boston, MA 02110-1301, USA.
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
b1ed59f3db23 Add arch tagline
Miles Bader <miles@gnu.org>
parents: 66592
diff changeset
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