void function make-annotation

void function make-annotation

[Alan Shutko]

I got a mail with an image/x-xbitmap, and mime bombed out with this
backtrace.  This is 

Pterodactyl Gnus v0.80
GNU Emacs 20.3.6.1 (alphaev5-dec-osf4.0e, X toolkit)
 of Wed Mar  3 1999 on slosf6

I can't find the make-annotation function anywhere... is this an
XEmacs thing?

Signaling: (void-function make-annotation)
  make-annotation(nil nil text)
  mm-inline-image((#<buffer  *mm*<3>> ("image/x-xbitmap" (name . "ui_route_terminals.ubm")) 7bit nil ("inline" (filename . "ui_route_terminals.ubm")) nil nil nil))
  mm-display-inline((#<buffer  *mm*<3>> ("image/x-xbitmap" (name . "ui_route_terminals.ubm")) 7bit nil ("inline" (filename . "ui_route_terminals.ubm")) nil nil nil))
  mm-display-part((#<buffer  *mm*<3>> ("image/x-xbitmap" (name . "ui_route_terminals.ubm")) 7bit nil ("inline" (filename . "ui_route_terminals.ubm")) nil nil nil) t)
  byte-code("\bƒ\x17
  gnus-mime-display-single((#<buffer  *mm*<3>> ("image/x-xbitmap" (name . "ui_route_terminals.ubm")) 7bit nil ("inline" (filename . "ui_route_terminals.ubm")) nil nil nil))
  gnus-mime-display-part((#<buffer  *mm*<3>> ("image/x-xbitmap" (name . "ui_route_terminals.ubm")) 7bit nil ("inline" (filename . "ui_route_terminals.ubm")) nil nil nil))
  mapcar(gnus-mime-display-part ((#<buffer  *mm*> ("text/plain" ...) 7bit (lambda nil ...) nil nil nil nil) (#<buffer  *mm*<2>> ("image/x-ms-bmp" ...) base64 nil ("inline" ...) nil nil nil) (#<buffer  *mm*<3>> ("image/x-xbitmap" ...) 7bit nil ("inline" ...) nil nil nil) (#<buffer  *mm*<4>> ("image/x-ms-bmp" ...) base64 nil ("inline" ...) nil nil nil) (#<buffer  *mm*<5>> ("image/x-ms-bmp" ...) base64 nil ("inline" ...) nil nil nil) (#<buffer  *mm*<6>> ("image/x-ms-bmp" ...) base64 nil ("inline" ...) nil nil nil) (#<buffer  *mm*<7>> ("image/x-ms-bmp" ...) base64 nil ("inline" ...) nil nil nil)))
  gnus-mime-display-mixed(((#<buffer  *mm*> ("text/plain" ...) 7bit (lambda nil ...) nil nil nil nil) (#<buffer  *mm*<2>> ("image/x-ms-bmp" ...) base64 nil ("inline" ...) nil nil nil) (#<buffer  *mm*<3>> ("image/x-xbitmap" ...) 7bit nil ("inline" ...) nil nil nil) (#<buffer  *mm*<4>> ("image/x-ms-bmp" ...) base64 nil ("inline" ...) nil nil nil) (#<buffer  *mm*<5>> ("image/x-ms-bmp" ...) base64 nil ("inline" ...) nil nil nil) (#<buffer  *mm*<6>> ("image/x-ms-bmp" ...) base64 nil ("inline" ...) nil nil nil) (#<buffer  *mm*<7>> ("image/x-ms-bmp" ...) base64 nil ("inline" ...) nil nil nil)))
  gnus-mime-display-part(("multipart/mixed" (#<buffer  *mm*> ("text/plain" ...) 7bit (lambda nil ...) nil nil nil nil) (#<buffer  *mm*<2>> ("image/x-ms-bmp" ...) base64 nil ("inline" ...) nil nil nil) (#<buffer  *mm*<3>> ("image/x-xbitmap" ...) 7bit nil ("inline" ...) nil nil nil) (#<buffer  *mm*<4>> ("image/x-ms-bmp" ...) base64 nil ("inline" ...) nil nil nil) (#<buffer  *mm*<5>> ("image/x-ms-bmp" ...) base64 nil ("inline" ...) nil nil nil) (#<buffer  *mm*<6>> ("image/x-ms-bmp" ...) base64 nil ("inline" ...) nil nil nil) (#<buffer  *mm*<7>> ("image/x-ms-bmp" ...) base64 nil ("inline" ...) nil nil nil)))
  gnus-display-mime()
  gnus-article-prepare-display()
  gnus-article-prepare(781 nil)
  gnus-summary-display-article(781 nil)
  gnus-summary-select-article(nil force)
  gnus-summary-show-article(nil)
  call-interactively(gnus-summary-show-article)


-- 
Alan Shutko <ats@acm.org> - By consent of the corrupted
You will become rich and famous unless you don't.

Re: void function make-annotation

[Lars Magne Ingebrigtsen]

Alan Shutko <ats@acm.org> writes:

> I can't find the make-annotation function anywhere... is this an
> XEmacs thing?

Yes.

> Signaling: (void-function make-annotation)
>   make-annotation(nil nil text)
>   mm-inline-image((#<buffer  *mm*<3>> ("image/x-xbitmap" (name . "ui_route_terminals.ubm")) 7bit nil ("inline" (filename . "ui_route_terminals.ubm")) nil nil nil))

This should only happen if

(and window-system
     (fboundp 'device-type)
     (eq (device-type) 'x))

evaluates to t.  Is that the case for you?

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

Re: void function make-annotation

[Alan Shutko]

Lars Magne Ingebrigtsen <larsi@gnus.org> writes:

> This should only happen if
> [...]
> evaluates to t.  Is that the case for you?

Yup... it looks like W3's devices.el defines device-type on Emacs.

-- 
Alan Shutko <ats@acm.org> - By consent of the corrupted
Skydivers are good till the last drop.

Re: void function make-annotation

[Lars Magne Ingebrigtsen]

Alan Shutko <ats@acm.org> writes:

> > This should only happen if
> > [...]
> > evaluates to t.  Is that the case for you?
> 
> Yup... it looks like W3's devices.el defines device-type on Emacs.

Ok; then we should check something else to see whether xbms can be
displayed.

(featurep 'xbm)
=> nil

even if XEmacs can do xbms, so what is the proper test?

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

Re: void function make-annotation

[Kim-Minh Kaplan]

Lars Magne Ingebrigtsen <larsi@gnus.org> writes:

> Alan Shutko <ats@acm.org> writes:
> 
> > Yup... it looks like W3's devices.el defines device-type on Emacs.
> 
> Ok; then we should check something else to see whether xbms can be
> displayed.
> 
> (featurep 'xbm)
> => nil
> 
> even if XEmacs can do xbms, so what is the proper test?

I think

    (and (featurep 'x)
         (fboundp 'device-type
         (eq (device-type) 'x))

should be sufficient...

Kim-Minh.
.

Re: void function make-annotation

[Colin Rafferty]

Lars Magne Ingebrigtsen writes:

> Ok; then we should check something else to see whether xbms can be
> displayed.

> (featurep 'xbm)
> => nil

> even if XEmacs can do xbms, so what is the proper test?

(featurep 'xpm)

I think.

-- 
Colin

Re: void function make-annotation

[Hrvoje Niksic]

Lars Magne Ingebrigtsen <larsi@gnus.org> writes:

> Ok; then we should check something else to see whether xbms can be
> displayed.
> 
> (featurep 'xbm)
> => nil
> 
> even if XEmacs can do xbms, so what is the proper test?

What XEmacs is that?  (featurep 'xbm) evaluates to t for me.  You
could do (featurep 'x), but XBMs can also be displayed in lateish MS
Windows XEmacsen.  I'm not sure if it's possible to compile XEmacs
without XBM support, but with X support.  If not, then this might be
the correct test:

    (or (featurep 'x)
        (featurep 'xbm))

Oh yes, you could also test it with this:

    (valid-image-instantiator-format-p 'xbm)

...which should reliably return t on all XEmacsen able to display an
XBM.

Re: void function make-annotation

[Colin Rafferty]

Hrvoje Niksic writes:
> Lars Magne Ingebrigtsen <larsi@gnus.org> writes:

>> Ok; then we should check something else to see whether xbms can be
>> displayed.
>> 
>> (featurep 'xbm)
>> => nil
>> 
>> even if XEmacs can do xbms, so what is the proper test?

> What XEmacs is that?  (featurep 'xbm) evaluates to t for me.  

In 21.0 (beta65), I was getting nil on xbm, but t on xpm.  In 21.2, I
get t for both.  And I did have xbm in my build.

> I'm not sure if it's possible to compile XEmacs without XBM support,
> but with X support.

It is possible, but the configure script complains terribly.

> Oh yes, you could also test it with this:

>     (valid-image-instantiator-format-p 'xbm)

This sounds like the right test to me.  In fact, that looks like the
right test (modulo xbm) for all the graphics types.

Of course, Lars still needs a way to figure it out in Emacs.

-- 
Colin

Re: void function make-annotation

[Hrvoje Niksic]

Colin Rafferty <craffert@ms.com> writes:

> > What XEmacs is that?  (featurep 'xbm) evaluates to t for me.
> 
> In 21.0 (beta65), I was getting nil on xbm, but t on xpm.  In 21.2,
> I get t for both.  And I did have xbm in my build.

I guess XEmacs 21.0 simply didn't provide `xbm' symbol.

> > Oh yes, you could also test it with this:
> 
> >     (valid-image-instantiator-format-p 'xbm)
> 
> This sounds like the right test to me.  In fact, that looks like the
> right test (modulo xbm) for all the graphics types.

Why "modulo xbm"?  Doesn't the above work for xbm?

> Of course, Lars still needs a way to figure it out in Emacs.

FSF Emacs cannot display images.

Re: void function make-annotation

[Colin Rafferty]

Hrvoje Niksic writes:
> Colin Rafferty <craffert@ms.com> writes:
>> Hrvoje Niksic writes:

>> > Oh yes, you could also test it with this:
>> 
>> >     (valid-image-instantiator-format-p 'xbm)
>> 
>> This sounds like the right test to me.  In fact, that looks like the
>> right test (modulo xbm) for all the graphics types.

> Why "modulo xbm"?  Doesn't the above work for xbm?

I mean, Lars can use (valid-image-instantiator-format-p 'gif) for GIF, 
and (valid-image-instantiator-format-p 'tiff) for TIFF, etc.

>> Of course, Lars still needs a way to figure it out in Emacs.

> FSF Emacs cannot display images.

Oops, silly me to forget something like that.

-- 
Colin

Re: void function make-annotation

[Kai.Grossjohann]

Hrvoje Niksic <hniksic@srce.hr> writes:

  > Colin Rafferty <craffert@ms.com> writes:
  > 
  > > > Oh yes, you could also test it with this:
  > > 
  > > >     (valid-image-instantiator-format-p 'xbm)
  > > 
  > > This sounds like the right test to me.  In fact, that looks like the
  > > right test (modulo xbm) for all the graphics types.
  > 
  > Why "modulo xbm"?  Doesn't the above work for xbm?

xbm needs to be replaced with jpeg to test for jpeg image support.

kai
-- 
Abort this operation?   [Abort]  [Cancel]

Re: void function make-annotation

[Hrvoje Niksic]

Kai.Grossjohann@CS.Uni-Dortmund.DE writes:

>   > Why "modulo xbm"?  Doesn't the above work for xbm?
> 
> xbm needs to be replaced with jpeg to test for jpeg image support.

Colin Rafferty <craffert@ms.com> writes:

> I mean, Lars can use (valid-image-instantiator-format-p 'gif) for
> GIF, and (valid-image-instantiator-format-p 'tiff) for TIFF, etc.

*doh*

Re: void function make-annotation

[Lars Magne Ingebrigtsen]

Hrvoje Niksic <hniksic@srce.hr> writes:

> Oh yes, you could also test it with this:
> 
>     (valid-image-instantiator-format-p 'xbm)

I've now changed all the image predicates to use a solution based on
this instead.

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