(message-put-addresses-in-ecomplete): Only fetch headers

from the message heads.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ee169ae..675993f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-03-27  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * message.el (message-put-addresses-in-ecomplete): Only fetch headers
+       from the message heads.
+
 2007-03-25  Kevin Greiner  <kevin.greiner@compsol.cc>
 
        * gnus-art.el (gnus-article-set-window-start): Do nothing when the 

diff --git a/lisp/message.el b/lisp/message.el
index dad2550..81126f5 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -7652,7 +7652,7 @@ From headers in the original article."
 
 (defun message-put-addresses-in-ecomplete ()
   (dolist (header '("to" "cc" "from" "reply-to"))
-    (let ((value (message-fetch-field header)))
+    (let ((value (message-field-value header)))
       (dolist (string (mail-header-parse-addresses value 'raw))
        (setq string
              (gnus-replace-in-string