From 163e192b1d963305cebd7af61d305be9953519bd Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Wed, 29 Sep 2010 16:56:34 +0200 Subject: [PATCH] Be way more permissive when interpreting the structures. --- lisp/ChangeLog | 3 +++ lisp/nnimap.el | 8 +++++++- 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6d00f81ef..3b794a961 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2010-09-29 Lars Magne Ingebrigtsen + * nnimap.el (nnimap-insert-partial-structure): Be way more permissive + when interpreting the structures. + * nnregistry.el: Added. * nndraft.el (nndraft-request-expire-articles): Use the group name diff --git a/lisp/nnimap.el b/lisp/nnimap.el index a61a02899..2f432a160 100644 --- a/lisp/nnimap.el +++ b/lisp/nnimap.el @@ -510,7 +510,13 @@ textual parts.") (defun nnimap-insert-partial-structure (structure parts &optional subp) (let ((type (car (last structure 4))) - (boundary (cadr (member "BOUNDARY" (car (last structure 3)))))) + (boundary (let ((bstruc structure)) + (while (consp (car bstruc)) + (pop bstruc)) + (setq bstruc (car (cdr bstruc))) + (and (stringp (car bstruc)) + (string= (downcase (car bstruc)) "boundary") + (cadr bstruc))))) (when subp (insert (format "Content-type: multipart/%s; boundary=%S\n\n" (downcase type) boundary))) -- 2.25.1