branch: scratch/org-contacts-rebased
commit f4f5ff3daec14ae94e947a642e9c4195b2ffdca6
Author: Bastien Guerry <[email protected]>
Commit: Bastien Guerry <[email protected]>
org-contacts.el (org-contacts-export-as-vcard): Don't use non-existent
function `org-install-letbind'
* contrib/lisp/org-contacts.el (org-contacts-export-as-vcard): Don't use
non-existent function `org-install-letbind'.
Thanks to Simon Thum for reporting this.
---
org-contacts.el | 7 -------
1 file changed, 7 deletions(-)
diff --git a/org-contacts.el b/org-contacts.el
index 8172c80..534372f 100644
--- a/org-contacts.el
+++ b/org-contacts.el
@@ -151,7 +151,6 @@ This overrides `org-email-link-description-format' if set."
;; Decalre external functions and variables
(declare-function org-reverse-string "org")
-(declare-function org-install-letbind "org-exp")
(declare-function diary-ordinal-suffix "ext:diary-lib")
(declare-function wl-summary-message-number "ext:wl-summary")
(declare-function wl-address-header-extract-address "ext:wl-address")
@@ -871,20 +870,14 @@ is created and the VCard is written into that buffer."
(buffer (if to-buffer
(get-buffer-create to-buffer)
(find-file-noselect filename))))
-
(message "Exporting...")
-
(set-buffer buffer)
(let ((inhibit-read-only t)) (erase-buffer))
(fundamental-mode)
- (org-install-letbind)
-
(when (fboundp 'set-buffer-file-coding-system)
(set-buffer-file-coding-system coding-system-for-write))
-
(loop for contact in (org-contacts-filter name)
do (insert (org-contacts-vcard-format contact)))
-
(if to-buffer
(current-buffer)
(progn (save-buffer) (kill-buffer)))))
