nnimap: fix boundary detection

Signed-off-by: Julien Danjou <julien@danjou.info>

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c92cd67..6477f70 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,7 @@
 2010-10-20  Julien Danjou  <julien@danjou.info>
 
        * nnimap.el (nnimap-request-article): Fix BODYSTRUCTURE retrieval.
+       (nnimap-insert-partial-structure): Fix boundary detection.
 
 2010-10-20  Andreas Seltenreich  <seltenreich@gmx.de>
 

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 5e4e051..d6ad40e 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -565,9 +565,9 @@ textual parts.")
        (pop bstruc))
       (setq type (car bstruc))
       (setq bstruc (car (cdr bstruc)))
-      (when (and (stringp (car bstruc))
-                (string= (downcase (car bstruc)) "boundary"))
-       (setq boundary (cadr bstruc))))
+      (let ((has-boundary (member "boundary" bstruc)))
+        (when has-boundary
+          (setq boundary (cadr has-boundary)))))
     (when subp
       (insert (format "Content-type: multipart/%s; boundary=%S\n\n"
                      (downcase type) boundary)))