diff options
| author | Thomas Fitzsimmons <fitzsim@fitzsim.org> | 2017-11-10 08:59:37 -0500 |
|---|---|---|
| committer | Thomas Fitzsimmons <fitzsim@fitzsim.org> | 2017-11-14 21:09:25 -0500 |
| commit | 6e680a78442e7586b4ea2d5f14a49786a8780552 (patch) | |
| tree | 65fa29f9a500cf7721628f54403bb60cb48ff966 | |
| parent | c80692bc69cda63a869d0402c4080aec9d7d2abb (diff) | |
| download | emacs-6e680a78442e7586b4ea2d5f14a49786a8780552.tar.gz | |
EUDC: Print multiple BBDB addresses properly
* lisp/net/eudcb-bbdb.el (eudc-bbdb-extract-addresses): Reset
val to nil on each mapcar lambda invocation.
| -rw-r--r-- | lisp/net/eudcb-bbdb.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/net/eudcb-bbdb.el b/lisp/net/eudcb-bbdb.el index 7370225c041..d606766158b 100644 --- a/lisp/net/eudcb-bbdb.el +++ b/lisp/net/eudcb-bbdb.el @@ -144,6 +144,7 @@ BBDB < 3 used `net'; BBDB >= 3 uses `mail'." (let (s c val) (nreverse (mapcar (lambda (address) + (setq val nil) (setq c (bbdb-address-streets address)) (dotimes (n 3) (unless (zerop (length (setq s (nth n c)))) |