[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 843dc435f7: Be more resilient against invalid headers in mml-gene
From: |
Lars Ingebrigtsen |
Subject: |
master 843dc435f7: Be more resilient against invalid headers in mml-generate-mime |
Date: |
Tue, 19 Apr 2022 07:42:31 -0400 (EDT) |
branch: master
commit 843dc435f797e6804663ae074d3d88993c4cd8a4
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Be more resilient against invalid headers in mml-generate-mime
* lisp/gnus/mml.el (mml-generate-mime): Don't bug out when called
with invalid headers (bug#55014).
---
lisp/gnus/mml.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/lisp/gnus/mml.el b/lisp/gnus/mml.el
index 5a52602506..093e582ea7 100644
--- a/lisp/gnus/mml.el
+++ b/lisp/gnus/mml.el
@@ -500,7 +500,8 @@ type detected."
(when (and (consp (car cont))
(= (length cont) 1)
content-type)
- (setcdr (assq 'type (cdr (car cont))) content-type))
+ (when-let ((spec (assq 'type (cdr (car cont)))))
+ (setcdr spec content-type)))
(when (fboundp 'libxml-parse-html-region)
(setq cont (mapcar #'mml-expand-all-html-into-multipart-related cont)))
(prog1
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 843dc435f7: Be more resilient against invalid headers in mml-generate-mime,
Lars Ingebrigtsen <=