diff options
| author | Craig Jennings <c@cjennings.net> | 2026-04-19 06:54:06 -0500 |
|---|---|---|
| committer | Craig Jennings <c@cjennings.net> | 2026-04-19 06:54:06 -0500 |
| commit | 6ad2a129f0b8f55387cf6d2f6c759a3fd70147af (patch) | |
| tree | 44112b974edffc2bb0c514d5569b632addfcd5c5 /modules/org-contacts-config.el | |
| parent | 151d49d01dfe441b59d6dab30033b02d5b13523c (diff) | |
| download | dotemacs-6ad2a129f0b8f55387cf6d2f6c759a3fd70147af.tar.gz dotemacs-6ad2a129f0b8f55387cf6d2f6c759a3fd70147af.zip | |
refactor(org-contacts): remove dead boundp branches
cj/org-contacts-template-name and cj/org-contacts-template-email each
opened with (when (boundp 'cj/contact-name) ...) / (boundp 'cj/contact-email)
to pick up a caller-supplied preset. Neither variable is ever defined,
set, or let-bound anywhere in the config — the branches never ran. The
(or ...) fallbacks always took over, so behavior is unchanged.
Diffstat (limited to 'modules/org-contacts-config.el')
| -rw-r--r-- | modules/org-contacts-config.el | 28 |
1 files changed, 12 insertions, 16 deletions
diff --git a/modules/org-contacts-config.el b/modules/org-contacts-config.el index 924b164c..2f919c19 100644 --- a/modules/org-contacts-config.el +++ b/modules/org-contacts-config.el @@ -101,25 +101,21 @@ Added: %U" (defun cj/org-contacts-template-name () "Get name for contact template from context." - (let ((name (when (boundp 'cj/contact-name) cj/contact-name))) - (or name - (when (eq major-mode 'mu4e-headers-mode) - (mu4e-message-field (mu4e-message-at-point) :from-or-to)) - (when (eq major-mode 'mu4e-view-mode) - (mu4e-message-field mu4e~view-message :from-or-to)) - (read-string "Name: ")))) + (or (when (eq major-mode 'mu4e-headers-mode) + (mu4e-message-field (mu4e-message-at-point) :from-or-to)) + (when (eq major-mode 'mu4e-view-mode) + (mu4e-message-field mu4e~view-message :from-or-to)) + (read-string "Name: "))) (defun cj/org-contacts-template-email () "Get email for contact template from context." - (let ((email (when (boundp 'cj/contact-email) cj/contact-email))) - (or email - (when (eq major-mode 'mu4e-headers-mode) - (let ((from (mu4e-message-field (mu4e-message-at-point) :from))) - (when from (cdr (car from))))) - (when (eq major-mode 'mu4e-view-mode) - (let ((from (mu4e-message-field mu4e~view-message :from))) - (when from (cdr (car from))))) - (read-string "Email: ")))) + (or (when (eq major-mode 'mu4e-headers-mode) + (let ((from (mu4e-message-field (mu4e-message-at-point) :from))) + (when from (cdr (car from))))) + (when (eq major-mode 'mu4e-view-mode) + (let ((from (mu4e-message-field mu4e~view-message :from))) + (when from (cdr (car from))))) + (read-string "Email: "))) ;;; ------------------------- Quick Contact Functions --------------------------- |