emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/ebdb df9f687 3/7: Use ebdb-string on new mail addresses


From: Eric Abrahamsen
Subject: [elpa] externals/ebdb df9f687 3/7: Use ebdb-string on new mail addresses in ebdb-annotate-message
Date: Thu, 17 May 2018 23:33:06 -0400 (EDT)

branch: externals/ebdb
commit df9f68796b4be40b307298751add276247ee2cd1
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    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)
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]