From bb471d30f5c0a89977c35bffcb3d81f774875ed9 Mon Sep 17 00:00:00 2001
From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Sun, 16 Apr 2006 20:31:45 +0000
Subject: [PATCH] * message.el (message-put-addresses-in-ecomplete): Use
 gnus-replace-in-string.

---
 lisp/ChangeLog    | 3 +++
 lisp/ecomplete.el | 3 ++-
 lisp/message.el   | 4 ++--
 3 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4d227c028..38a548cb9 100644
--- 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 483cff72b..e615a35cf 100644
--- 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 bfcf16d08..18c03fedf 100644
--- 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))
-- 
2.11.4.GIT