From 3938005b1c28cc359f7de252965bbbf999fc4d3f Mon Sep 17 00:00:00 2001 From: Julien Danjou Date: Wed, 20 Oct 2010 16:08:35 +0200 Subject: [PATCH] nnimap: fix boundary detection Signed-off-by: Julien Danjou --- lisp/ChangeLog | 1 + lisp/nnimap.el | 6 +++--- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c92cd6781..6477f70de 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,6 +1,7 @@ 2010-10-20 Julien Danjou * nnimap.el (nnimap-request-article): Fix BODYSTRUCTURE retrieval. + (nnimap-insert-partial-structure): Fix boundary detection. 2010-10-20 Andreas Seltenreich diff --git a/lisp/nnimap.el b/lisp/nnimap.el index 5e4e051a4..d6ad40eea 100644 --- 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))) -- 2.34.1