Skip to content
Snippets Groups Projects
Commit 100b3c08 authored by Attila Lendvai's avatar Attila Lendvai
Browse files

nicer print-mime-part

Ignore-this: de840f9cd5f1fc03832b0a5c1dc79b5d

darcs-hash:abb9d587b89e9e6af534e21f7cd97eee30878ea4
parent 5f686d15
No related branches found
No related tags found
No related merge requests found
......@@ -59,14 +59,16 @@ You may also want to look at UCW for a real-world example."))
(:method ((object t)) nil))
(defmethod print-mime-part ((part mime-part) &optional (stream *trace-output*))
(format stream "Headers:~%")
(dolist (header (headers part))
(format stream "~S: ~S~:{; ~S=~S~}~%"
(header-name header) (header-value header)
(mapcar (lambda (attribute)
(list (car attribute) (cdr attribute)))
(header-attributes header)))
(terpri stream)
(princ (content part) stream)))
(header-attributes header))))
(format stream "~%Content:~%")
(princ (content part) stream)
(format stream "~%"))
(defgeneric get-header (part header-name)
(:documentation "Returns the mime-header object for the header
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment