lisp/gnus-spec.el: bug fix.

diff --git a/ChangeLog b/ChangeLog
index fc4c146..a053395 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 1998-06-29  Tatsuya Ichikawa  <t-ichi@po.shiojiri.ne.jp>
 
+       * lisp/gnus-art.el : Bug fix.
+       * lisp/gnus-spec.el : Bug fix.
+       
+1998-06-29  Tatsuya Ichikawa  <t-ichi@po.shiojiri.ne.jp>
+
        * lisp/gnus.el (gnus-version-number): Update to 6.7.6.
        * Sync up with Gnus 5.6.21
 

diff --git a/lisp/gnus-spec.el b/lisp/gnus-spec.el
index 9163180..4f3a103 100644 (file)
--- a/lisp/gnus-spec.el
+++ b/lisp/gnus-spec.el
@@ -239,8 +239,8 @@
 (defun gnus-face-face-function (form type)
   `(gnus-add-text-properties
     (point) (progn ,@form (point))
-    '(gnus-face t
-               face ',(symbol-value (intern (format "gnus-face-%d" type))))))
+    (list 'gnus-face t
+         'face ',(symbol-value (intern (format "gnus-face-%d" type))))))
 
 (defun gnus-tilde-max-form (el max-width)
   "Return a form that limits EL to MAX-WIDTH."