[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org-contacts 4a36f4a598 004/154: Merge org-contacts-wl
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org-contacts 4a36f4a598 004/154: Merge org-contacts-wl in org-contacts |
Date: |
Fri, 9 Sep 2022 15:58:22 -0400 (EDT) |
branch: externals/org-contacts
commit 4a36f4a5988e212aa0eb036ed78de2e226057d31
Author: Julien Danjou <julien@danjou.info>
Commit: Julien Danjou <julien@danjou.info>
Merge org-contacts-wl in org-contacts
* org-contacts.el: Merge org-contacts-wl.el
Signed-off-by: Julien Danjou <julien@danjou.info>
---
org-contacts.el | 26 ++++++++++++++++++++++++++
1 file changed, 26 insertions(+)
diff --git a/org-contacts.el b/org-contacts.el
index 06137d7281..3f4d97cf55 100644
--- a/org-contacts.el
+++ b/org-contacts.el
@@ -403,6 +403,32 @@ This adds `org-contacts-gnus-check-mail-address' and
(add-hook 'gnus-article-prepare-hook 'org-contacts-gnus-check-mail-address)
(add-hook 'gnus-article-prepare-hook 'org-contacts-gnus-store-last-mail))
+(defun wl-get-from-header-content ()
+ (save-excursion
+ (set-buffer (org-capture-get :original-buffer))
+ (cond
+ ((eq major-mode 'wl-summary-mode) (when wl-summary-buffer-elmo-folder
+ (elmo-message-field
+ wl-summary-buffer-elmo-folder
+ (wl-summary-message-number)
+ 'from)))
+ ((eq major-mode 'mime-view-mode) (std11-narrow-to-header)
+ (prog1
+ (std11-fetch-field "From")
+ (widen))))))
+
+(defun org-contacts-template-wl-name (&optional return-value)
+ (let ((from (wl-get-from-header-content)))
+ (or (and from (wl-address-header-extract-realname from))
+ return-value
+ "%^{Name}")))
+
+(defun org-contacts-template-wl-email (&optional return-value)
+ (let ((from (wl-get-from-header-content)))
+ (or (and from (wl-address-header-extract-address from))
+ return-value
+ (concat "%^{" org-contacts-email-property "}p"))))
+
(defun org-contacts-view-send-email (&optional ask)
"Send email to the contact at point.
If ASK is set, ask for the email address even if there's only one address."
- [elpa] branch externals/org-contacts created (now 919511eb86), ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 4a36f4a598 004/154: Merge org-contacts-wl in org-contacts,
ELPA Syncer <=
- [elpa] externals/org-contacts 6e66e4a769 003/154: org-contacts: added custom org-contacts-birthday-format, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 2f0d7e94dd 002/154: org-contacts: make Gnus usage optional, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts b78a119f7a 005/154: Add docstring for `wl-get-from-header-content'., ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 6c12101c8c 010/154: org-contacts: Use `with-current-buffer' instead of `save-excursion'+`with-current-buffer'., ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts ef5cb2484b 016/154: Copyright year fixes for contrib/., ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 7cae69fce6 011/154: org-contacts: Require cl on compilation., ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts f71963d38a 036/154: Merge branch 'maint', ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts c0f4677a74 024/154: contrib/lisp/org-contacts.el: Require 'org-agenda., ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 1313bd7bb0 040/154: org-contacts.el: Let the users decide if they want to use `org-contacts' to complete mail addresses, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 8e9ac123b1 034/154: Do not complete when it's not necessary, ELPA Syncer, 2022/09/09