[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org-contacts 680dc1f24d 039/154: org-contacts.el: Start
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org-contacts 680dc1f24d 039/154: org-contacts.el: Started to silent byte-compiler |
Date: |
Fri, 9 Sep 2022 15:58:24 -0400 (EDT) |
branch: externals/org-contacts
commit 680dc1f24dcd14378a62a1733063a34d588e9c25
Author: Grégoire Jadi <gregoire.jadi@gmail.com>
Commit: Grégoire Jadi <gregoire.jadi@gmail.com>
org-contacts.el: Started to silent byte-compiler
* contrib/lisp/org-contacts.el: Remove some compile-time warnings by adding
the proper declarations.
(org-contacts-anniversaries): Hack around an undefined variable
because I wasn't able to understand how this function works.
(org-contacts-wl-get-from-header-content): Check whether the variable
`wl-summary-buffer-elmo-folder' is bound or not.
---
org-contacts.el | 12 ++++++++++--
1 file changed, 10 insertions(+), 2 deletions(-)
diff --git a/org-contacts.el b/org-contacts.el
index 786650b334..f99242c1f3 100644
--- a/org-contacts.el
+++ b/org-contacts.el
@@ -43,6 +43,7 @@
(require 'org))
(require 'gnus-util)
(require 'org-agenda)
+(require 'org-capture)
(defgroup org-contacts nil
"Options about contacts management."
@@ -132,6 +133,11 @@ This overrides `org-email-link-description-format' if set."
:group 'org-contacts
:type 'file)
+;; Decalre external functions and variables
+(declare-function wl-summary-message-number "ext:wl-summary" ())
+(declare-function wl-address-header-extract-address "ext:wl-address")
+(declare-function wl-address-header-extract-realname "ext:wl-address")
+
(defvar org-contacts-keymap
(let ((map (make-sparse-keymap)))
(define-key map "M" 'org-contacts-view-send-email)
@@ -501,7 +507,8 @@ Format is a string matching the following format
specification:
(let ((calendar-date-style 'american)
(entry ""))
(unless format (setq format org-contacts-birthday-format))
- (loop for contact in (org-contacts-filter)
+ (loop with date = nil ; FIXME: prevent a warning
+ for contact in (org-contacts-filter)
for anniv = (let ((anniv (cdr (assoc-string
(or field
org-contacts-birthday-property)
(caddr contact)))))
@@ -647,7 +654,8 @@ Works from wl-summary-mode and mime-view-mode - that is
while viewing email.
Depends on Wanderlust been loaded."
(with-current-buffer (org-capture-get :original-buffer)
(cond
- ((eq major-mode 'wl-summary-mode) (when wl-summary-buffer-elmo-folder
+ ((eq major-mode 'wl-summary-mode) (when (and (boundp
'wl-summary-buffer-elmo-folder)
+ wl-summary-buffer-elmo-folder)
(elmo-message-field
wl-summary-buffer-elmo-folder
(wl-summary-message-number)
- [elpa] externals/org-contacts e516efacb6 037/154: Merge branch 'maint', (continued)
- [elpa] externals/org-contacts e516efacb6 037/154: Merge branch 'maint', ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 93f982e3ba 030/154: Merge branch 'maint', ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 23af13f11a 049/154: contrib/lisp/org-contacts.el: Silence byte-compiler, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts bc11ab4130 053/154: org-contacts.el (org-contacts-export-as-vcard): Don't use non-existent function `org-install-letbind', ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 9105e22251 066/154: contrib/lisp/org-contacts.el: Add a complex org-contacts template to the file header, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 4108493c9d 055/154: org-contacts.el , fix bugs about 'tel and 'note properties, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts d6824ec3c2 069/154: org-contacts: use `org-' prefixed variants of cl functions, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts fd0f42a1bc 075/154: Update copyright years again., ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 5526110aac 018/154: Merge branch 'origin-maint', ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts d630e91dee 033/154: Add caching mecanism, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 680dc1f24d 039/154: org-contacts.el: Started to silent byte-compiler,
ELPA Syncer <=
- [elpa] externals/org-contacts 3f1509bfa2 035/154: org-contacts: Fix Agenda format., ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts abbf3a9a25 041/154: org-contacts.el: Rename a function to follow emacs-lisp coding conventions, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 5d5faa5e6b 051/154: org-contacts.el, add note property, ELPA Syncer, 2022/09/09
- [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