From: ichikawa <ichikawa>
Date: Mon, 29 Jun 1998 08:50:35 +0000 (+0000)
Subject: lisp/gnus-spec.el: bug fix.
X-Git-Tag: gnus-6_7_8~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a608b7902d9cea9082dc989bfe5527979a2474d9;p=elisp%2Fgnus.git-

lisp/gnus-spec.el: bug fix.
---

diff --git a/ChangeLog b/ChangeLog
index fc4c146..a053395 100644
--- 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
--- 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."