* message.el (message-put-addresses-in-ecomplete): Use

gnus-replace-in-string.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4d227c0..38a548c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2006-04-16  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * message.el (message-put-addresses-in-ecomplete): Use
+       gnus-replace-in-string. 
+
        * gnus-sum.el (gnus-summary-limit-to-bodies): New command and
        keystroke. 
 

diff --git a/lisp/ecomplete.el b/lisp/ecomplete.el
index 483cff7..e615a35 100644 (file)
--- a/lisp/ecomplete.el
+++ b/lisp/ecomplete.el
@@ -29,7 +29,7 @@
   (require 'cl))
 
 (defgroup ecomplete nil
-  "Suppression of duplicate articles."
+  "Electric completion of email addresses and the like."
   :group 'mail)
 
 (defcustom ecomplete-database-file "~/.ecompleterc"
@@ -41,6 +41,7 @@
 
 (defvar ecomplete-database nil)
 
+;;;###autoload
 (defun ecomplete-setup ()
   (when (file-exists-p ecomplete-database-file)
     (with-temp-buffer

diff --git a/lisp/message.el b/lisp/message.el
index bfcf16d..18c03fe 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -7170,9 +7170,9 @@ From headers in the original article."
     (let ((value (message-fetch-field header)))
       (dolist (string (mail-header-parse-addresses value 'raw))
        (setq string
-             (replace-regexp-in-string
+             (gnus-replace-in-string
               "\n" "" 
-              (replace-regexp-in-string "^ +\\| *$" "" string)))
+              (gnus-replace-in-string "^ +\\| *$" "" string)))
        (ecomplete-add-item 'mail (car (mail-header-parse-address string))
                            string))))
   (ecomplete-save))