From teyc at bluebottle.com Sun May 14 04:44:23 2006 From: teyc at bluebottle.com (Chui Tey) Date: Sun, 14 May 2006 14:44:23 +1000 Subject: [mel-base-devel] CLISP Windows Patches Message-ID: <003b01c67711$13e56d30$0401a8c0@CHUIDELL> Environment.lisp: #+(and :clisp :unix) (defun gethostname () (posix:uname-nodename (posix:uname))) #+(and :clisp :win32) (ffi:def-call-out c-gethostname (:name \"gethostname\") (:arguments (name (ffi:c-ptr (ffi:c-array-max ffi:char 256)) :out :alloca) (len ffi:int)) (:language :stdc) (:return-type ffi:int) (:library "wsock32.dll")) #+(and :clisp :win32) (defun gethostname () "Returns the hostname" (multiple-value-bind (success name) (c-gethostname 256) (if (zerop success) (ext:convert-string-from-bytes name custom:*FOREIGN-ENCODING*) (error (strerr errno))))) Rfc822.lisp: ((#\space #\tab #-(or clisp abcl openmcl) #\vt) (loop (let ((c (get-char))) (case c ((#\space #\tab #-(or clisp abcl openmcl) #\vt) nil) Chui Tey From matthieu.villeneuve at free.fr Mon May 29 08:30:24 2006 From: matthieu.villeneuve at free.fr (matthieu.villeneuve at free.fr) Date: Mon, 29 May 2006 10:30:24 +0200 Subject: [mel-base-devel] Hints about "idiomatic" use? Message-ID: <1148891424.447ab1208831d@imp1-g19.free.fr> Hello, I am writing a toy email reader application (to learn CLIM with a practical example), and I was wondering what is the preferred (or simplest) way to get emails using MEL-BASE. I have read the manual included in the distribution, but a few questions remain. So far I have a POP3 folder, and a kind of "send/receive" command that fetches all messages from that folder, using the MEL:MESSAGES function. I can already see the message headers correctly positioned. Does that look like the right way to start? Once this is done, it looks like a message can be either a MEL:RFC2822-BASIC-MESSAGE, or a MEL:MIME-MESSAGE. In both cases, is there a simple way to get the message body? Any help is appreciated... Thanks in advance, -- Matthieu Villeneuve