[rfc2388-cvs] CVS rfc2388

[jdzerins]

Update of /project/rfc2388/cvsroot/rfc2388
In directory cl-net:/tmp/cvs-serv14603

Modified Files:
	rfc2388.lisp 
Log Message:
Removed unused variable (since rev. 1.12)


--- /project/rfc2388/cvsroot/rfc2388/rfc2388.lisp	2010/07/19 07:25:05	1.13
+++ /project/rfc2388/cvsroot/rfc2388/rfc2388.lisp	2010/07/19 07:30:19	1.14
@@ -418,15 +418,13 @@
   (unless (nth-value 1 (read-until-next-boundary input boundary t))
     (return-from parse-mime nil))
   
-  (let ((result ())
-        content-type-header)
+  (let ((result ()))
     (loop
       (let ((headers (loop
                       for header = (parse-header input)
                       while header
                       when (string-equal "CONTENT-TYPE" (header-name header))
-                      do (setf content-type-header header 
-                               (header-value header) (parse-content-type (header-value header)))
+                      do (setf (header-value header) (parse-content-type (header-value header)))
                       collect header)))
         (let ((file-name (get-file-name headers)))
           (cond ((and write-content-to-file