Re: Gnus v5.2.3 is released

[Steven L Baur <steve@miranova.com>]

I hadn't tried it under 19.31 yet.  Here are the patches for XEmacs:
(NOTE:  If you are using 19.14 and tm, you will have to patch the
custom.el in lisp/gnus as well, I don't know why).
===================================================================
RCS file: RCS/ChangeLog,v
retrieving revision 1.3
diff -u -r1.3 ChangeLog
--- ChangeLog	1996/05/30 06:54:24	1.3
+++ ChangeLog	1996/05/30 16:34:19
@@ -1,3 +1,8 @@
+Thu May 30 09:33:15 1996  Steven L Baur  <steve@miranova.com>
+
+	* custom.el ((and (fboundp 'modify-face) (not (featurep 'face-lock)))): 
+	Protect all calls to set-face-stipple with fboundp.
+
 Thu May 30 05:04:07 1996  Lars Magne Ingebrigtsen  <larsi@aegir.ifi.uio.no>
 
 	* gnus.el (gnus-article-hide-headers): Show boring headers as

===================================================================
RCS file: RCS/custom.el,v
retrieving revision 1.3
diff -u -r1.3 custom.el
--- custom.el	1996/05/30 06:54:24	1.3
+++ custom.el	1996/05/30 16:14:43
@@ -275,7 +275,8 @@
 	   bold-p italic-p underline-p)))
   (condition-case nil (set-face-foreground face foreground) (error nil))
   (condition-case nil (set-face-background face background) (error nil))
-  (condition-case nil (set-face-stipple face stipple) (error nil))
+  (if (fboundp 'set-face-stipple)
+      (condition-case nil (set-face-stipple face stipple) (error nil)))
   (if (string-match "XEmacs" emacs-version)
       (progn
 	(funcall (if bold-p 'make-face-bold 'make-face-unbold) face)
@@ -1545,7 +1546,8 @@
       (when (and bg
 		 (not (string-equal fg "default")))
 	(set-face-background name bg))
-      (when (and stipple
+      (when (and (fboundp 'set-face-stipple)
+		 stipple
 		 (not (eq stipple 'as-is)))
 	(set-face-stipple name))
       (when (and bold

-- 
steve@miranova.com baur
Unsolicited commercial e-mail will be proofread for $250/hour.
Andrea Seastrand: For your vote on the Telecom bill, I will vote for anyone
except you in November.