From 7b55f6a420ef4e5d6ecd6c79b49053734d978b71 Mon Sep 17 00:00:00 2001 From: Sacha Chua Date: Thu, 25 Sep 2025 18:52:54 -0400 Subject: keep unwrapping message bodies --- emacsconf-mail.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'emacsconf-mail.el') diff --git a/emacsconf-mail.el b/emacsconf-mail.el index b48cead..aec6506 100644 --- a/emacsconf-mail.el +++ b/emacsconf-mail.el @@ -363,8 +363,8 @@ insert into the current buffer instead of drafting e-mails." (defun emacsconf-mail-parse-submission (body) "Extract data from EmacsConf submissions in BODY." - (when (listp body) (setq body (plist-get (car body) :content))) - (when (listp body) (setq body (plist-get (car body) :content))) + (while (and (listp body) (plist-get (car body) :content)) + (setq body (plist-get (car body) :content))) (let* ((data (list :body body)) (fields '((:title "^[* ]*Talk title") (:description "^[* ]*Talk description") -- cgit v1.2.3