I solved it like this:

  (defadvice message (around message-around (format-string &rest args)
activate))
  (defun message-force (format-string &rest args)
    (princ (apply 'format format-string args)))

Thanks!

On Tue, Mar 30, 2010 at 10:14 PM, Johan Andersson <johan.rejeep@gmail.com>wrote:

> Lennart, You're almost my private Emacs tutor :)
>
> Didn't know about advicing! Looks like it could solve it! I will look into
> it and get back with the results. But that'll have to wait until tomorrow.
>
> Thanks!
>
> On Tue, Mar 30, 2010 at 10:08 PM, Lennart Borgman <
> lennart.borgman@gmail.com> wrote:
>
>> On Tue, Mar 30, 2010 at 11:23 PM, Johan Andersson
>> <johan.rejeep@gmail.com> wrote:
>> > Hey,
>> > I have a batch program where I run some Elisp functions and then
>> print some
>> > results. The problem is that some of the functions I'm calling produces
>> > output. And I don't want that. So I'm basically looking for a way to
>> only
>> > output my printing.
>> > The first I thought about was redirecting stdout to something else. Like
>> > this:
>> >
>> > #!/usr/bin/emacs --script
>> > (let* ((buffer (get-buffer-create "output"))
>> >        (standard-output buffer))
>> >   (print "some printing"))
>> >
>> > That works fine, except that it does not bite on message. Like this:
>> >
>> > #!/usr/bin/emacs --script
>> > (let* ((buffer (get-buffer-create "output"))
>> >        (standard-output buffer))
>> >   (message "some message"))
>> >
>> > Any ideas how I can solve this?
>>
>> defadvice the `message' function?
>>
>
>