Bug? Xemacs 21.1/Flim 1.14.2: mel-b-el.elc not installed correctly

[Peter Møller Neergaard]

I am using flim with wanderlust under Xemacs.  I have had some serious
troubles getting the MIME decoding to work correctly.  I had
installed, flim using the command 

  sudo gmake install-package

without any changes to the setup.  

Whenever I tried to decode, e.g., using
mime-preview-play-current-entity, I got the error message

  Invalid function: (macro . #<compiled-function (&rest body) "...(6)" [let (selective-display) body] 3>)

which occurred with the following execution stack (I have truncated
the lines containing the message to be decoded)

  as-binary-process(0)
  base64-external-decode-string("0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQA...
  base64("0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAIg...
  mime-decode-string("0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAA...
  #<compiled-function (entity) "...(20)" [entity 11 mime-decode-string 14 15 mime-entity-encoding] 4>([mime-elmo-entity [0 0 0 0 0 0 0] #<buffer "*MMELMO-BUFFER*0"> ((type . application) (subtype . octet-stream) ("x-mac-creator" . "5843454C") ("x-mac-type" . "584C5334") ("name" . "carpool.xls")) nil [mime-elmo-entity [0 0 0 0 0 0 0] #<buffer "*MMELMO-BUFFER*0"> (... ... ...) (... #0) nil nil nil "7bit" nil nil #<buffer "*MMELMO-BUFFER*0"> 1 1535 1536 28941 nil "+correspondence/amc" 172 (... ... nil nil ...) 0] (1) ((type . attachment) ("filename" . "carpool.xls")) "base64" ((Content-Transfer-Encoding . "base64") (Content-Disposition . "attachment; filename=\"carpool.xls\"")) nil #<buffer "*MMELMO-BUFFER*0"> 3801 4000 4001 28900 nil nil nil nil nil])
  apply(#<compiled-function (entity) "...(20)" [entity 11 mime-decode-string 14 15 mime-entity-encoding] 4> [mime-elmo-entity [0 0 0 0 0 0 0] #<buffer "*MMELMO-BUFFER*0"> ((type . application) (subtype . octet-stream) ("x-mac-creator" . "5843454C") ("x-mac-type" . "584C5334") ("name" . "carpool.xls")) nil [mime-elmo-entity [0 0 0 0 0 0 0] #<buffer "*MMELMO-BUFFER*0"> (... ... ...) (... #0) nil nil nil "7bit" nil nil #<buffer "*MMELMO-BUFFER*0"> 1 1535 1536 28941 nil "+correspondence/amc" 172 (... ... nil nil ...) 0] (1) ((type . attachment) ("filename" . "carpool.xls")) "base64" ((Content-Transfer-Encoding . "base64") (Content-Disposition . "attachment; filename=\"carpool.xls\"")) nil #<buffer "*MMELMO-BUFFER*0"> 3801 4000 4001 28900 nil nil nil nil nil])
  luna-call-next-method()
  luna-apply-generic([mime-elmo-entity [0 0 0 0 0 0 0] #<buffer "*MMELMO-BUFFER*0"> ((type . application) (subtype . octet-stream) ("x-mac-creator" . "5843454C") ("x-mac-type" . "584C5334") ("name" . "carpool.xls")) nil [mime-elmo-entity [0 0 0 0 0 0 0] #<buffer "*MMELMO-BUFFER*0"> (... ... ...) (... #0) nil nil nil "7bit" nil nil #<buffer "*MMELMO-BUFFER*0"> 1 1535 1536 28941 nil "+correspondence/amc" 172 (... ... nil nil ...) 0] (1) ((type . attachment) ("filename" . "carpool.xls")) "base64" ((Content-Transfer-Encoding . "base64") (Content-Disposition . "attachment; filename=\"carpool.xls\"")) nil #<buffer "*MMELMO-BUFFER*0"> 3801 4000 4001 28900 nil nil nil nil nil] mime-entity-content [mime-elmo-entity [0 0 0 0 0 0 0] #<buffer "*MMELMO-BUFFER*0"> ((type . application) (subtype . octet-stream) ("x-mac-creator" . "5843454C") ("x-mac-type" . "584C5334") ("name" . "carpool.xls")) nil [mime-elmo-entity [0 0 0 0 0 0 0] #<buffer "*MMELMO-BUFFER*0"> (... ... ...) (... #0) nil ni!
l !
nil "7bit" nil nil #<buffer "*MMELMO-BUFFER*0"> 1 1535 1536 28941 nil "+correspondence/amc" 172 (... ... nil nil ...) 0] (1) ((type . attachment) ("filename" . "carpool.xls")) "base64" ((Content-Transfer-Encoding . "base64") (Content-Disposition . "attachment; filename=\"carpool.xls\"")) nil #<buffer "*MMELMO-BUFFER*0"> 3801 4000 4001 28900 nil nil nil nil nil])
  mime-entity-content([mime-elmo-entity [0 0 0 0 0 0 0] #<buffer "*MMELMO-BUFFER*0"> ((type . application) (subtype . octet-stream) ("x-mac-creator" . "5843454C") ("x-mac-type" . "584C5334") ("name" . "carpool.xls")) nil [mime-elmo-entity [0 0 0 0 0 0 0] #<buffer "*MMELMO-BUFFER*0"> (... ... ...) (... #0) nil nil nil "7bit" nil nil #<buffer "*MMELMO-BUFFER*0"> 1 1535 1536 28941 nil "+correspondence/amc" 172 (... ... nil nil ...) 0] (1) ((type . attachment) ("filename" . "carpool.xls")) "base64" ((Content-Transfer-Encoding . "base64") (Content-Disposition . "attachment; filename=\"carpool.xls\"")) nil #<buffer "*MMELMO-BUFFER*0"> 3801 4000 4001 28900 nil nil nil nil nil])
  mime-detect-content([mime-elmo-entity [0 0 0 0 0 0 0] #<buffer "*MMELMO-BUFFER*0"> ((type . application) (subtype . octet-stream) ("x-mac-creator" . "5843454C") ("x-mac-type" . "584C5334") ("name" . "carpool.xls")) nil [mime-elmo-entity [0 0 0 0 0 0 0] #<buffer "*MMELMO-BUFFER*0"> (... ... ...) (... #0) nil nil nil "7bit" nil nil #<buffer "*MMELMO-BUFFER*0"> 1 1535 1536 28941 nil "+correspondence/amc" 172 (... ... nil nil ...) 0] (1) ((type . attachment) ("filename" . "carpool.xls")) "base64" ((Content-Transfer-Encoding . "base64") (Content-Disposition . "attachment; filename=\"carpool.xls\"")) nil #<buffer "*MMELMO-BUFFER*0"> 3801 4000 4001 28900 nil nil nil nil nil] ((method . mime-detect-content) (encoding . "base64") (filename . "carpool.xls") (disposition-type . attachment) ("name" . "carpool.xls") ("x-mac-type" . "584C5334") ("x-mac-creator" . "5843454C") (subtype . octet-stream) (type . application) (mode . "play") (major-mode . mmelmo-original-mode)))
  mime-play-entity([mime-elmo-entity [0 0 0 0 0 0 0] #<buffer "*MMELMO-BUFFER*0"> ((type . application) (subtype . octet-stream) ("x-mac-creator" . "5843454C") ("x-mac-type" . "584C5334") ("name" . "carpool.xls")) nil [mime-elmo-entity [0 0 0 0 0 0 0] #<buffer "*MMELMO-BUFFER*0"> (... ... ...) (... #0) nil nil nil "7bit" nil nil #<buffer "*MMELMO-BUFFER*0"> 1 1535 1536 28941 nil "+correspondence/amc" 172 (... ... nil nil ...) 0] (1) ((type . attachment) ("filename" . "carpool.xls")) "base64" ((Content-Transfer-Encoding . "base64") (Content-Disposition . "attachment; filename=\"carpool.xls\"")) nil #<buffer "*MMELMO-BUFFER*0"> 3801 4000 4001 28900 nil nil nil nil nil] ((mode . "play") (major-mode . mmelmo-original-mode)))
  mime-preview-play-current-entity(nil)
  call-interactively(mime-preview-play-current-entity)

Eventually, I tracked it down to the file mel-b-el.elc: Instead of
relying on the version compiled during the installation, I manually
compiled the file mel-b-el.el within Xemacs (using byte-compile-file)
after installation.  After doing this I have no problem handling mime
messages.

My concern is now whether this problem is because I have a wrong setup
or because it is a general bug?  And are there other files that I need
to manually recompile?

For reference, 

  emacs-version: "XEmacs 21.1 (patch 12) \"Channel Islands\" [Lucid] (i386-mandrake-linux) of Tue Oct  3 2000 on rebuild.mandrakesoft.com"
  (apel-version): "APEL/10.3"
  mime-library-version: "FLIM 1.14.2 - \"Yagi-Nishiguchi\""
  mime-edit-version: "SEMI 1.14.3 - \"Ushinoya\""
  wl-version: "2.4.1"

I also attach the two different byte compile versions of mel-b-el.elc.

First, the version provided by installation:
-------------- next part --------------
A non-text attachment was scrubbed...
Name: mel-b-el.elc
Type: application/octet-stream
Size: 10868 bytes
Desc: not available
URL: <http://lists.chise.org/pipermail/emacs-mime-en/attachments/20010531/4da1460e/attachment.obj>
-------------- next part --------------

Then, the version I compiled by hand: 
-------------- next part --------------
A non-text attachment was scrubbed...
Name: mel-b-el.elc
Type: application/octet-stream
Size: 11032 bytes
Desc: not available
URL: <http://lists.chise.org/pipermail/emacs-mime-en/attachments/20010531/4da1460e/attachment-0001.obj>
-------------- next part --------------

At last, it may be worth mentioning that I had no problem running the
flim installed under emacs (with make install).

Best

Peter
-- 
http://cs-people.bu.edu/turtle/contact.html
``Deserves death! I daresay he does. Many that live deserve death. 
And some that die deserve life. Can you give it to them?  
Then do not be too eager to deal out death in judgement.'' -- Tolkien