diff options
| author | Glenn Morris | 2017-12-27 10:50:45 -0800 |
|---|---|---|
| committer | Glenn Morris | 2017-12-27 10:50:45 -0800 |
| commit | f16ba58809fa9b83d42f2bb6b4722599bc98b408 (patch) | |
| tree | 803b1bf7830028caf809bd1f96027651dddcee5e | |
| parent | 08e1438a3bf781ce85c7af75f1fa73cb826ba3dd (diff) | |
| download | emacs-f16ba58809fa9b83d42f2bb6b4722599bc98b408.tar.gz emacs-f16ba58809fa9b83d42f2bb6b4722599bc98b408.zip | |
Fix recent rfc2231 avoidance of cl
* lisp/mail/rfc2231.el (rfc2231-parse-string)
(rfc2231-encode-string): Replace cl forms with cl-lib versions.
| -rw-r--r-- | lisp/mail/rfc2231.el | 4 |
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." | |||
| 180 | ;; Now collect and concatenate continuation parameters. | 180 | ;; Now collect and concatenate continuation parameters. |
| 181 | (let ((cparams nil) | 181 | (let ((cparams nil) |
| 182 | elem) | 182 | elem) |
| 183 | (loop for (attribute value part encoded) | 183 | (cl-loop for (attribute value part encoded) |
| 184 | in (sort parameters (lambda (e1 e2) | 184 | in (sort parameters (lambda (e1 e2) |
| 185 | (< (or (caddr e1) 0) | 185 | (< (or (caddr e1) 0) |
| 186 | (or (caddr e2) 0)))) | 186 | (or (caddr e2) 0)))) |
| @@ -290,7 +290,7 @@ the result of this function." | |||
| 290 | (insert param "*=") | 290 | (insert param "*=") |
| 291 | (while (not (eobp)) | 291 | (while (not (eobp)) |
| 292 | (insert (if (>= num 0) " " "") | 292 | (insert (if (>= num 0) " " "") |
| 293 | param "*" (format "%d" (incf num)) "*=") | 293 | param "*" (format "%d" (cl-incf num)) "*=") |
| 294 | (forward-line 1)))) | 294 | (forward-line 1)))) |
| 295 | (spacep | 295 | (spacep |
| 296 | (goto-char (point-min)) | 296 | (goto-char (point-min)) |