diff options
| author | Sacha Chua <sacha@sachachua.com> | 2025-09-25 18:52:54 -0400 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2025-09-25 18:52:54 -0400 |
| commit | 7b55f6a420ef4e5d6ecd6c79b49053734d978b71 (patch) | |
| tree | 36a525cdadf97526370c63ba697c6417269b41f7 /emacsconf-mail.el | |
| parent | f4ff6e2e46e5933d4405074cd1b8dc044e44239c (diff) | |
| download | emacsconf-el-7b55f6a420ef4e5d6ecd6c79b49053734d978b71.tar.xz emacsconf-el-7b55f6a420ef4e5d6ecd6c79b49053734d978b71.zip | |
Diffstat (limited to 'emacsconf-mail.el')
| -rw-r--r-- | emacsconf-mail.el | 4 |
1 files changed, 2 insertions, 2 deletions
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") |