(mail-header-set-extra): Make into a function

because I just could't understand how to quote the list properly.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a4cc6c0..3d44b3e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2005-05-16  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * nnheader.el (mail-header-set-extra): Make into a function
+       because I just could't understand how to quote the list properly. 
+
        * dns.el (query-dns-cached): New function.
 
 2005-05-16  Katsumi Yamaoka  <yamaoka@jpl.org>

diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index e4b7746..5ee9a7f 100644 (file)
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -206,9 +206,9 @@ on your system, you could say something like:
   "Return the extra headers in HEADER."
   `(aref ,header 9))
 
-(defmacro mail-header-set-extra (header extra)
+(defun mail-header-set-extra (header extra)
   "Set the extra headers in HEADER to EXTRA."
-  `(aset ,header 9 ',extra))
+  (aset header 9 extra))
 
 (defsubst make-mail-header (&optional init)
   "Create a new mail header structure initialized with INIT."