[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] scratch/org-contacts-rebased e86b83d 036/118: org-contacts.el: St
From: |
Stefan Monnier |
Subject: |
[elpa] scratch/org-contacts-rebased e86b83d 036/118: org-contacts.el: Started to silent byte-compiler |
Date: |
Fri, 12 Nov 2021 15:36:59 -0500 (EST) |
branch: scratch/org-contacts-rebased
commit e86b83d310bed2b02a79dc8227a50f0c8699d11d
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 786650b..f99242c 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] scratch/org-contacts-rebased f46131e 051/118: org-contacts.el (org-contacts-matcher): Better matcher, (continued)
- [elpa] scratch/org-contacts-rebased f46131e 051/118: org-contacts.el (org-contacts-matcher): Better matcher, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 8ccb82f 052/118: org-contacts.el , fix bugs about 'tel and 'note properties, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 5ee8caa 053/118: org-contacts.el, add name alias property., Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased c0ebd3a 055/118: contrib/lisp/org-contacts: Allow org links in properties, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 1b6cff5 026/118: contrib/lisp/org-contacts.el: Fix indentation of the file, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased dcd8af9 028/118: Merge branch 'maint', Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 2d1ea82 046/118: contrib/lisp/org-contacts.el: Silence byte-compiler, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 7c908e4 043/118: org-contacts.el: Fix or add docstrings, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 02808bb 047/118: Let org-contacts.el has the ability which can export email-address list, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 927e7c7 035/118: org-contacts.el: Check if the database need a refresh in a dedicated function, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased e86b83d 036/118: org-contacts.el: Started to silent byte-compiler,
Stefan Monnier <=
- [elpa] scratch/org-contacts-rebased c08b676 032/118: Add caching mecanism, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 543f2c5 045/118: contrib/lisp/org-contacts.el: Remove calls to cl functions, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased d7412d5 054/118: contrib/lisp/org-contacts: Fix two typos in comments, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 2f0d7e9 002/118: org-contacts: make Gnus usage optional, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased ad7f57a 023/118: Fix error messages: don't use a dot at the end, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 5526110 018/118: Merge branch 'origin-maint', Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 68918fc 034/118: org-contacts: Fix Agenda format., Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 85b506b 031/118: contrib/lisp/org-contacts.el: Delete trailing whitespaces, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 30a76d5 038/118: org-contacts.el: Rename a function to follow emacs-lisp coding conventions, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 57a9545 041/118: contrib/lisp/org-contacts.el: Fix compiler warnings., Stefan Monnier, 2021/11/12