branch: externals/ebdb
commit df9f68796b4be40b307298751add276247ee2cd1
Author: Eric Abrahamsen <e...@ericabrahamsen.net>
Commit: Eric Abrahamsen <e...@ericabrahamsen.net>
Use ebdb-string on new mail addresses in ebdb-annotate-message
* ebdb-mua.el (ebdb-annotate-message): Otherwise it dumps the actual
mail object into the minibuffer and then disappears it, which is
awfully distracting.
---
ebdb-mua.el | 12 ++++++++----
1 file changed, 8 insertions(+), 4 deletions(-)
diff --git a/ebdb-mua.el b/ebdb-mua.el
index b3e9ff3..515907b 100644
--- a/ebdb-mua.el
+++ b/ebdb-mua.el
@@ -998,8 +998,10 @@ Return the records matching ADDRESS or nil."
(unless ebdb-silent
(if (ebdb-record-name record)
(message "created %s's record with address \"%s\""
- (ebdb-string record) mail)
- (message "created record with naked address \"%s\"" mail)))
+ (ebdb-string record)
+ (ebdb-string mail))
+ (message "created record with naked address \"%s\""
+ (ebdb-string mail))))
(ebdb-init-record record))
(change-p
@@ -1008,9 +1010,11 @@ Return the records matching ADDRESS or nil."
(message "noticed \"%s\"" (ebdb-string record)))
((ebdb-record-name record)
(message "noticed %s's address \"%s\""
- (ebdb-string record) mail))
+ (ebdb-string record)
+ (ebdb-string mail)))
(t
- (message "noticed naked address \"%s\"" mail))))))
+ (message "noticed naked address \"%s\""
+ (ebdb-string mail)))))))
(run-hook-with-args 'ebdb-notice-mail-hook record)
