1 files 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))