diff options
| author | Stefan Monnier | 2017-05-22 16:53:18 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2017-05-22 16:53:18 -0400 |
| commit | bc78276e81956b3caa8a5eb7ef26959fa4c84b7b (patch) | |
| tree | 9e90bde7f951b1071f65849460eddc77ae419a74 | |
| parent | 62046ed3e9b1e95340eb980058b8f7aadae2447a (diff) | |
| download | emacs-bc78276e81956b3caa8a5eb7ef26959fa4c84b7b.tar.gz emacs-bc78276e81956b3caa8a5eb7ef26959fa4c84b7b.zip | |
* lisp/mail/rfc2047.el (rfc2047-decode-encoded-words): Set `words` to nil.
| -rw-r--r-- | lisp/mail/rfc2047.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/mail/rfc2047.el b/lisp/mail/rfc2047.el index bb8bc01dce5..e2af86b3246 100644 --- a/lisp/mail/rfc2047.el +++ b/lisp/mail/rfc2047.el | |||
| @@ -952,6 +952,7 @@ ENCODED-WORD)." | |||
| 952 | (push (cons cs text) rest)) | 952 | (push (cons cs text) rest)) |
| 953 | ;; Don't decode encoded-word. | 953 | ;; Don't decode encoded-word. |
| 954 | (push (cons nil (nth 3 word)) rest))) | 954 | (push (cons nil (nth 3 word)) rest))) |
| 955 | (setq words nil) | ||
| 955 | (while rest | 956 | (while rest |
| 956 | ;; FIXME: This looks O(N²). Can we make it more efficient | 957 | ;; FIXME: This looks O(N²). Can we make it more efficient |
| 957 | ;; with something like mapconcat? | 958 | ;; with something like mapconcat? |