[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org-contacts 5f1806a8d0 012/154: org-contacts: fix erro
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org-contacts 5f1806a8d0 012/154: org-contacts: fix errors when Gnus or ERC are not loaded |
Date: |
Fri, 9 Sep 2022 15:58:22 -0400 (EDT) |
branch: externals/org-contacts
commit 5f1806a8d0ae631bd18f16e194af214a4fc80ad7
Author: Lomax Escarmant <lomax.e@gmail.com>
Commit: Julien Danjou <julien@danjou.info>
org-contacts: fix errors when Gnus or ERC are not loaded
Signed-off-by: Julien Danjou <julien@danjou.info>
---
org-contacts.el | 16 +++++++++-------
1 file changed, 9 insertions(+), 7 deletions(-)
diff --git a/org-contacts.el b/org-contacts.el
index f846fe22ac..545e90e88a 100644
--- a/org-contacts.el
+++ b/org-contacts.el
@@ -239,9 +239,10 @@ If both match values are nil, return all contacts."
(defun org-contacts-gnus-get-name-email ()
"Get name and email address from Gnus message."
- (gnus-with-article-headers
- (mail-extract-address-components
- (or (mail-fetch-field "From") ""))))
+ (if (gnus-alive-p)
+ (gnus-with-article-headers
+ (mail-extract-address-components
+ (or (mail-fetch-field "From") "")))))
(defun org-contacts-gnus-article-from-get-marker ()
"Return a marker for a contact based on From."
@@ -533,10 +534,11 @@ If ASK is set, ask for the email address even if there's
only one address."
(defun erc-nicknames-list ()
"Return all nicknames of all ERC buffers."
- (loop for buffer in (erc-buffer-list)
- nconc (with-current-buffer buffer
- (loop for user-entry in (mapcar 'car
(erc-get-channel-user-list))
- collect (elt user-entry 1)))))
+ (if (fboundp 'erc-buffer-list)
+ (loop for buffer in (erc-buffer-list)
+ nconc (with-current-buffer buffer
+ (loop for user-entry in (mapcar 'car
(erc-get-channel-user-list))
+ collect (elt user-entry 1))))))
(add-to-list 'org-property-set-functions-alist
`(,org-contacts-nickname-property .
org-contacts-completing-read-nickname))
- [elpa] externals/org-contacts 9bd8101c56 059/154: contrib/lisp/org-contacts: Introduce the constant `org-contacts-property-values-separators', (continued)
- [elpa] externals/org-contacts 9bd8101c56 059/154: contrib/lisp/org-contacts: Introduce the constant `org-contacts-property-values-separators', ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts beb76bf435 060/154: org-contacts: Use progress-reporter for cache update message, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 9d9246c0a5 072/154: Merge branch 'maint', ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 66e23e6403 008/154: org-contacts: added VCard 3.0 exporter and ADDRESS field, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 4d5b508f0f 007/154: org-contacts: check that completion-at-point-functions is bound, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 531d67a715 014/154: Fix Emacs 24 compatibility issue with Emacs 24, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 4f5c58197e 006/154: Fix wanderlust interface for org-contact.el, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts d0caf96afd 015/154: Replace org-mode-p with usual (eq major-mode 'org-mode) check, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts ad99d80ad3 001/154: org-contacts: import, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts e585be0859 009/154: org-contacts: added org-contacts-show-map (requires google-maps-el), ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 5f1806a8d0 012/154: org-contacts: fix errors when Gnus or ERC are not loaded,
ELPA Syncer <=
- [elpa] externals/org-contacts c297cb009f 020/154: Merge branch 'maint', ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 1b6cff5ac7 026/154: contrib/lisp/org-contacts.el: Fix indentation of the file, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 8bf8565c46 027/154: Update copyright years., ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts fb5c9dcec9 043/154: orgcontacts.el: Fix `date' being broken in `org-contacts-anniversaries'., ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts dcd313e66d 021/154: Tags/properties matcher: Fixed issues with todo-only matches, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 72d2cafa36 022/154: add a missing require for gnus-util, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 4b368d7709 045/154: Fix typo., ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 6723942283 048/154: contrib/lisp/org-contacts.el: Remove calls to cl functions, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 1d70236144 054/154: org-contacts.el (org-contacts-matcher): Better matcher, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 1b44df7267 058/154: contrib/lisp/org-contacts: Allow org links in properties, ELPA Syncer, 2022/09/09