From 8bc3c5b881b8bb6d37edaa901c299922990271a1 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Tue, 27 Mar 2007 14:50:03 +0000 Subject: [PATCH] (message-put-addresses-in-ecomplete): Only fetch headers from the message heads. --- lisp/ChangeLog | 5 +++++ lisp/message.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ee169ae8e..675993fd7 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-03-27 Lars Magne Ingebrigtsen + + * message.el (message-put-addresses-in-ecomplete): Only fetch headers + from the message heads. + 2007-03-25 Kevin Greiner * gnus-art.el (gnus-article-set-window-start): Do nothing when the diff --git a/lisp/message.el b/lisp/message.el index dad2550ca..81126f554 100644 --- 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 -- 2.25.1