From f16ba58809fa9b83d42f2bb6b4722599bc98b408 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 27 Dec 2017 10:50:45 -0800 Subject: [PATCH] Fix recent rfc2231 avoidance of cl * lisp/mail/rfc2231.el (rfc2231-parse-string) (rfc2231-encode-string): Replace cl forms with cl-lib versions. --- lisp/mail/rfc2231.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/mail/rfc2231.el b/lisp/mail/rfc2231.el index dab78070e43..e032597327a 100644 --- a/lisp/mail/rfc2231.el +++ b/lisp/mail/rfc2231.el @@ -180,7 +180,7 @@ must never cause a Lisp error." ;; Now collect and concatenate continuation parameters. (let ((cparams nil) elem) - (loop for (attribute value part encoded) + (cl-loop for (attribute value part encoded) in (sort parameters (lambda (e1 e2) (< (or (caddr e1) 0) (or (caddr e2) 0)))) @@ -290,7 +290,7 @@ the result of this function." (insert param "*=") (while (not (eobp)) (insert (if (>= num 0) " " "") - param "*" (format "%d" (incf num)) "*=") + param "*" (format "%d" (cl-incf num)) "*=") (forward-line 1)))) (spacep (goto-char (point-min)) -- 2.39.5