Protect against malformed MIME messages that cause inf-loop (bugfix)

* lisp/gnus/gnus-art.el (gnus-article-mime-handles):
Protect against malformed MIME messages that cause inf-loop.

diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index 8fc5ebaa9bdb41f42a71844ceb0fb04c8a75280d..226a56e187063eeb0378e87b6058691c4eede71f 100644 (file)
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -6342,8 +6342,9 @@ Provided for backwards compatibility."
       ;; in each element are in the increasing order.
       (dolist (handle (reverse gnus-article-mime-handle-alist))
        (if (stringp (cadr handle))
-           (setq flat (nconc flat (gnus-article-mime-handles
-                                   (cddr handle) (list (car handle)) flat)))
+           (when (cddr handle)
+             (setq flat (nconc flat (gnus-article-mime-handles
+                                     (cddr handle) (list (car handle)) flat))))
          (delq (rassq (cdr handle) flat) flat)
          (setq flat (nconc flat (list (cons (list (car handle))
                                             (cdr handle)))))))