aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorBrent Westbrook2022-11-19 09:23:57 -0500
committerThomas Fitzsimmons2022-11-19 09:26:55 -0500
commitdb3ff76dc7d3184e51cb7ed17c78ef76babb9032 (patch)
tree398f5e1d5e2eab0e417e5a50c754be0e8a47ca1c
parent91c3a276dd5cdeb6eab40d921ff2def47500a4c4 (diff)
downloademacs-db3ff76dc7d3184e51cb7ed17c78ef76babb9032.tar.gz
emacs-db3ff76dc7d3184e51cb7ed17c78ef76babb9032.zip
EUDC: Fix a void-variable error
* lisp/net/eudcb-mailabbrev.el (eudc-mailabbrev-query-internal): Check if symbol is bound before taking its value. (Bug#59369)
-rw-r--r--lisp/net/eudcb-mailabbrev.el5
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/net/eudcb-mailabbrev.el b/lisp/net/eudcb-mailabbrev.el
index 64b50af09bc..4a2dd9ad4a4 100644
--- a/lisp/net/eudcb-mailabbrev.el
+++ b/lisp/net/eudcb-mailabbrev.el
@@ -78,7 +78,10 @@ RETURN-ATTRS is a list of attributes to return, defaulting to
78 (dolist (term query) 78 (dolist (term query)
79 (let* ((attr (car term)) 79 (let* ((attr (car term))
80 (value (cdr term)) 80 (value (cdr term))
81 (raw-matches (symbol-value (intern-soft value mail-abbrevs)))) 81 (soft (intern-soft value mail-abbrevs))
82 (raw-matches (and
83 (boundp soft)
84 (symbol-value soft))))
82 (when (and raw-matches 85 (when (and raw-matches
83 (memq attr '(email firstname name))) 86 (memq attr '(email firstname name)))
84 (let* ((matches (split-string raw-matches ", ")) 87 (let* ((matches (split-string raw-matches ", "))