diff options
author | Robert Fenk <fenk@users.sourceforge.net> | 2000-11-16 11:59:17 +0000 |
---|---|---|
committer | Robert Fenk <fenk@users.sourceforge.net> | 2000-11-16 11:59:17 +0000 |
commit | 601e4fedf0bc1b7c5704added04a7332cadd4c7a (patch) | |
tree | 800d602fa56dfa000a938f5d12683d615fc78342 | |
parent | 3e72dca92062d673f6801dbfc17addcf5555aaa8 (diff) |
(bbdb-show-all-recipients): simplified the function and added missing headers
-rw-r--r-- | lisp/bbdb-com.el | 21 |
1 files changed, 10 insertions, 11 deletions
diff --git a/lisp/bbdb-com.el b/lisp/bbdb-com.el index 1215bc9..1c5a5d6 100644 --- a/lisp/bbdb-com.el +++ b/lisp/bbdb-com.el @@ -1766,21 +1766,20 @@ composition buffer.)" "*Display BBDB records for all recipients of the message in this buffer." (interactive) (let ((marker (bbdb-header-start)) + (fields '("from" "sender" "to" "cc" "bcc" + "resent-from" "resent-to" "resent-cc" "resent-bcc")) addrs) (message "Searching...") (save-excursion (set-buffer (marker-buffer marker)) - (goto-char marker) - (setq addrs - (append - (save-excursion - (bbdb-split (or (bbdb-extract-field-value "from") "") ",")) - (save-excursion - (bbdb-split (or (bbdb-extract-field-value "to") "") ",")) - (save-excursion - (bbdb-split (or (bbdb-extract-field-value "cc") "") ",")) - (save-excursion - (bbdb-split (or (bbdb-extract-field-value "bcc") "") ","))))) + (while fields + (goto-char marker) + (setq addrs (append (bbdb-split (or (bbdb-extract-field-value + (car fields)) + "") + ",") + addrs) + fields (cdr fields)))) (let ((rest addrs) (records '()) record) |