[elpa] externals/ebdb b228892 04/15: Change interactive behavior of ebdb-mail-aliases

[Eric Abrahamsen]

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

    Change interactive behavior of ebdb-mail-aliases
    
    * ebdb-com.el (ebdb-mail-aliases): Remove optional "noisy" argument,
      nothing was using it. Instead use `called-interactively-p' to decide
      whether to add a message.
---
 ebdb-com.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/ebdb-com.el b/ebdb-com.el
index 4789817..1643ef9 100644
--- a/ebdb-com.el
+++ b/ebdb-com.el
@@ -2589,7 +2589,7 @@ If we are past `fill-column', wrap at the previous comma."
 ;;; interface to mail-abbrevs.el.
 
 ;;;###autoload
-(defun ebdb-mail-aliases (&optional noisy)
+(defun ebdb-mail-aliases ()
   "Add aliases from the database to the global alias table.
 \\<ebdb-mode-map>Give records a \"mail alias\" field to define
 an alias for that record.
@@ -2600,8 +2600,7 @@ of all of these people.
 
 This function is automatically called each time an EBDB buffer is
 created.  Alternately, use \\[ebdb-mail-aliases] in an *EBDB*
-buffer to force an update.  With optional argument NOISY, print a
-message when updating is done."
+buffer to force an update."
   (interactive)
 
   ;; Build `mail-aliases' if not yet done.
@@ -2638,7 +2637,8 @@ message when updating is done."
                        ',(mapcar (lambda (r) (ebdb-record-uuid (car r)))
                                  (cdr entry)))))))
 
-  (if noisy (message "EBDB mail alias: rebuilding done")))
+  (when (called-interactively-p 'any)
+    (message "EBDB mail alias: rebuilding done")))
 
 (defun ebdb-mail-abbrev-expand-hook (_alias records)
   "Function substituted for `mail-abbrev-expand-hook' when expanding RECORDS.