.21 barfs on an unknown face

.21 barfs on an unknown face

[Karl Kleinpaste]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 2716 bytes --]

Gnus v5.6.21; nntp 5.0; nnml 1.0; nnmh 1.0; nndraft 1.0
XEmacs 20.4 "Emerald" [Lucid] (i386-pc-linux) of Wed Feb 25 1998 on threepwood.idb.hist.no

First run of .21: It doesn't even display *Group* properly.  I use
topic mode, and my *last* topic is "ClariNet", containing all my
subscribed clari.* groups.  Nothing but this one line displays (and
that, incomplete, i.e., *Group* didn't even end in a `\n').

I have no .gnus; I do no gnus face hackery in .emacs.

*Group* buffer, in its entirety:
________________

  [ ClariNet
________________

Stack trace:

Signaling: (error "No such face" quote)
  add-text-properties(5 13 (gnus-face t face (quote bold)) nil)
  gnus-add-text-properties(5 13 (gnus-face t face (quote bold)))
  (progn (gnus-add-text-properties (point) (progn ... ...) (quote ...)) (point))
)
  (gnus-put-text-property (point) (progn (gnus-add-text-properties ... ... ...) (point)) gnus-mouse-face-prop gnus-mouse-face)
)
  (progn (insert indentation "[ ") (gnus-put-text-property (point) (progn ... ...) gnus-mouse-face-prop gnus-mouse-face) (insert (format " -- %d ]%s\n" total-number-of-articles visible)))
)
  eval((progn (insert indentation "[ ") (gnus-put-text-property (point) (progn ... ...) gnus-mouse-face-prop gnus-mouse-face) (insert (format " -- %d ]%s\n" total-number-of-articles visible))))
  gnus-topic-insert-topic-line("ClariNet" t t 1 nil 0)
  gnus-topic-prepare-topic((("ClariNet" visible nil nil)) 1 2 nil nil 1)
  gnus-topic-prepare-topic((("Gnus" visible nil nil) (("Mail" visible nil nil) (...) (...) (...)) (("Cartoons" invisible nil nil)) (("JPRC" visible nil nil)) (("CMU" visible nil nil)) (("GNU" visible nil nil)) (("Local" visible nil nil)) (("Usenet" visible nil nil)) (("Linux" visible nil nil)) (("Technical" visible nil nil)) (("Slow Lane" visible nil nil)) (("Saves" visible nil nil)) (("Sex" visible nil nil) (...) (...)) (("Mozilla" visible nil nil)) (("ClariNet" visible nil nil))) 0 2 nil nil 1)
  gnus-group-prepare-topics(2 nil nil)
  gnus-group-list-groups(2)
  byte-code("\b¬ˆ	¬… ˆªÂÃÄ!ˆÅ\x0e\x06!\x16\a\x0e\b¬„\x0e	«ƒÊ ˆ\x0e\v«ˆÌ ˆÍÎÏ\"ˆÐÑ\x0e\x12\b#ˆÃÓ!ˆÔ ˆÕ\x0e\x12!ˆÖ ˆ×Ø!ˆÙ ˆÃÚ!ˆÑ‡" [dont-connect did-connect gnus-group-quit gnus-run-hooks gnus-startup-hook gnus-make-newsrc-file gnus-startup-file gnus-current-startup-file gnus-slave gnus-use-dribble-file gnus-dribble-read-file gnus-use-grouplens bbb-login add-hook gnus-summary-mode-hook gnus-grouplens-mode gnus-setup-news nil level gnus-setup-news-hook gnus-start-draft-setup gnus-group-list-groups gnus-group-first-unread-group gnus-configure-windows group gnus-group-set-mode-line gnus-started-hook] 4)
  gnus-1(2 t nil)
  gnus(2 t nil)
  gnus-no-server-1(nil nil)
  gnus-no-server(nil)
  call-interactively(gnus-no-server)

Re: .21 barfs on an unknown face

[Hrvoje Niksic]

Karl Kleinpaste <karl@jprc.com> writes:

> First run of .21: It doesn't even display *Group* properly.
[...]

I get that too.  I downgraded to .20 for now.

-- 
Hrvoje Niksic <hniksic@srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
Then...  his face does a complete change of expression.  It goes from
a "Vengeance is mine" expression, to a "What the fuck" blank look.

Re: .21 barfs on an unknown face

[SL Baur]

Karl Kleinpaste <karl@jprc.com> writes:

> First run of .21: It doesn't even display *Group* properly.

Here's a patch to fix this bomb.  Tested with XEmacs/Mule 21.0.

All the forward quotes, backward quotes, and commas make my head spin,
but I think this is the correct way to do it.

1998-06-28  SL Baur  <steve@altair.xemacs.org>

	* gnus-spec.el (gnus-face-face-function): Fix misquoting.


--- gnus-spec.el~	Sun Jun 28 00:56:46 1998
+++ gnus-spec.el	Sun Jun 28 18:16:10 1998
@@ -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."

Re: .21 barfs on an unknown face

[Lars Magne Ingebrigtsen]

SL Baur <steve@vmailer.xemacs.org> writes:

> Here's a patch to fix this bomb.  Tested with XEmacs/Mule 21.0.

Thanks for the patch.

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen