Signed-off-by: Julien Danjou <julien@danjou.info>
2010-10-20 Julien Danjou <julien@danjou.info>
* nnimap.el (nnimap-request-article): Fix BODYSTRUCTURE retrieval.
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>
2010-10-20 Andreas Seltenreich <seltenreich@gmx.de>
(pop bstruc))
(setq type (car bstruc))
(setq bstruc (car (cdr bstruc)))
(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)))
(when subp
(insert (format "Content-type: multipart/%s; boundary=%S\n\n"
(downcase type) boundary)))