diff options
Diffstat (limited to 'third_party/lisp')
| -rw-r--r-- | third_party/lisp/mime4cl/mime.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/third_party/lisp/mime4cl/mime.lisp b/third_party/lisp/mime4cl/mime.lisp index 788251c374de..b3c10d79764a 100644 --- a/third_party/lisp/mime4cl/mime.lisp +++ b/third_party/lisp/mime4cl/mime.lisp @@ -761,12 +761,12 @@ returns a MIME-MESSAGE object." (with-open-file (in msg :element-type '(unsigned-byte 8)) (mime-message in))) +(defmethod mime-message ((msg stream)) + (mime-message (make-flexi-stream msg))) + (defmethod mime-message ((msg flexi-stream)) (read-mime-message msg)) -(defmethod mime-message ((msg stream)) - (read-mime-message (make-flexi-stream msg))) - ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defgeneric mime-part (object) |