Re: Improved gnus-mime-save-part-and-strip to v5-10

[Reiner Steib <reinersteib+gmane@imap.cc>]

On Mon, Oct 11 2004, Katsumi Yamaoka wrote:

>>>>>>	Reiner Steib <reinersteib+gmane@imap.cc> wrote:
>
>> | Debugger entered--Lisp error: (invalid-function (macro . #[(&rest
>> |   forms) "[...]" [forms let ((default-enable-multibyte-characters t))]
>> |   3
>> |   ("/import/xtra/emacs/HEAD/share/emacs/21.3.50/lisp/gnus/mm-util.elc"
>> |   . 17775)])) 
>> |   mm-with-multibyte("~/some/directory/")
>> |   mm-save-part((#<buffer  *mm*<3>> ("image/pjpeg" (name .
>> |   "100_0385.JPG")) base64 nil ("attachment" (filename .
>> |   "100_0385.JPG")) nil nil nil))
>> |   gnus-mime-save-part-and-strip()
>> |   call-interactively(gnus-mime-save-part-and-strip)
>
> Hm, you encountered another error, didn't you?

Maybe.  I simply started No Gnus and it worked fine.  

> It seems to be the case where mm-decode.elc has been compiled
> without loading mm-util.elc.

But adding (require 'mm-util) to `mm-decode.el' (and recompiling) in
v5-10 [1] doesn't fix the problem:

,----
| ELISP> (featurep 'mm-decode)
| t
| ELISP> (featurep 'mm-util)
| t
| ELISP> (fboundp 'mm-with-multibyte)
| t
`----

I still get a (the same?) backtrace:

,----
| Debugger entered--Lisp error: (invalid-function (macro . #[(&rest
|   forms) "[BYTE CODE]" [forms let ((default-enable-multibyte-characters t))] 3
|   ("/import/xtra/emacs/HEAD/share/emacs/21.3.50/lisp/gnus/mm-util.elc"
|   . 17775)]))
|   mm-with-multibyte("/tmp/ste/100_0385.JPG")
|   mm-save-part((#<buffer  *mm*<3>> ("image/pjpeg" (name .
|   "100_0385.JPG")) base64 nil ("attachment" (filename .
|   "100_0385.JPG")) nil nil nil))
|   gnus-mime-save-part-and-strip()
|   call-interactively(gnus-mime-save-part-and-strip)
`----

After loading the *.el (not *.elc) files (mm-decode.el, mm-util.el) it
worked.  (I had to hit `C-c C-c' to finish editing, which is no longer
needed in the trunk.)

Bye, Reiner.

[1] Well, it was not in v5-10 but in the Emacs files, but this
    shouldn't matter as there are no changes pending in this area.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/