(mapconcat
'identity
(delete-dups
- (cl-mapcan
- (lambda (r)
- (bbdb-record-xfield-split r gnorb-bbdb-org-tag-field))
- records))
- "|")))
+ (cl-mapcan (lambda (r)
+ (bbdb-record-xfield-split r gnorb-bbdb-org-tag-field))
- records)))
- "|")))
++ records))
++ "|")))
(if tag-string
;; C-u = all headings, not just todos
- (if (equal current-prefix-arg '(4))
- (org-tags-view nil tag-string)
- (org-tags-view t tag-string))
+ (org-tags-view (not (equal current-prefix-arg '(4)))
+ tag-string)
- (error "No org-tags field present")))
+ (error "No org-tags field present"))))
;;;###autoload
(defun gnorb-bbdb-mail-search (records)