diff options
author | Robert Fenk <fenk@users.sourceforge.net> | 2002-04-18 12:10:31 +0000 |
---|---|---|
committer | Robert Fenk <fenk@users.sourceforge.net> | 2002-04-18 12:10:31 +0000 |
commit | 22e06df45359415287709d61df366a895b6551cc (patch) | |
tree | 6966e30e2608d52ff75405a42962403536300efe /lisp/bbdb-gnus.el | |
parent | 69a2b454a103b813839a189115ca734e8ef1633b (diff) |
lisp/bbdb-vm.el (bbdb/vm-show-all-recipients), (bbdb/vm-show-sender),
lisp/bbdb-gnus.el (bbdb/gnus-show-sender), (bbdb/gnus-show-all-recipients):
Fixed */show-all-reciepients to always do what it should do!
BUGFIX FOR the following report:
From: Gerd Boerrigter <gerd.boerrigter@gmx.net>
To: bbdb-info@lists.sourceforge.net
Date: Thu, 18 Apr 2002 10:59:50 +0200
Subject: bbdb/gnus-show-all-recipients only uses first entry
Diffstat (limited to 'lisp/bbdb-gnus.el')
-rw-r--r-- | lisp/bbdb-gnus.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/bbdb-gnus.el b/lisp/bbdb-gnus.el index a8d7bed..e3de14c 100644 --- a/lisp/bbdb-gnus.el +++ b/lisp/bbdb-gnus.el @@ -183,7 +183,8 @@ This buffer will be in `bbdb-mode', with associated keybindings." (defun bbdb/gnus-show-all-recipients () "Show all recipients of this message. Counterpart to `bbdb/vm-show-sender'." (interactive) - (bbdb/gnus-show-records 'recipients)) + (let ((bbdb-get-only-first-address-p nil)) + (bbdb/gnus-show-records 'recipients))) (defun bbdb/gnus-show-sender (&optional show-recipients) "Display the contents of the BBDB for the senders of this message. @@ -194,7 +195,8 @@ This buffer will be in `bbdb-mode', with associated keybindings." (cond ((= 4 show-recipients) (bbdb/gnus-show-all-recipients)) ((= 16 show-recipients) - (bbdb/gnus-show-records)) + (let ((bbdb-get-only-first-address-p nil)) + (bbdb/gnus-show-records))) (t (if (null (bbdb/gnus-show-records 'authors)) (bbdb/gnus-show-all-recipients))))) |