diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2020-09-21 00:26:54 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-09-21 00:26:54 +0200 |
| commit | ec6254e5527b2b0aa6d93d6c83873aa400c20db3 (patch) | |
| tree | bc22b585e64ecc3c6e9d503da774315c1cda9bec /lisp/mail/rfc2047.el | |
| parent | f4d186b3b80c513338d6c7ddaef75f5aaa5c1dcb (diff) | |
| download | emacs-ec6254e5527b2b0aa6d93d6c83873aa400c20db3.tar.gz emacs-ec6254e5527b2b0aa6d93d6c83873aa400c20db3.tar.bz2 emacs-ec6254e5527b2b0aa6d93d6c83873aa400c20db3.zip | |
Fix infloop when folding difficult headers in Message
* lisp/mail/rfc2047.el (rfc2047-fold-field): Return the end point.
* lisp/gnus/message.el (message--fold-long-headers): Use that to
reliably achieve progress.
Diffstat (limited to 'lisp/mail/rfc2047.el')
| -rw-r--r-- | lisp/mail/rfc2047.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/mail/rfc2047.el b/lisp/mail/rfc2047.el index 234f319669f..4aa0c2809b2 100644 --- a/lisp/mail/rfc2047.el +++ b/lisp/mail/rfc2047.el @@ -716,11 +716,13 @@ Point moves to the end of the region." (goto-char e))))) (defun rfc2047-fold-field () - "Fold the current header field." + "Fold the current header field. +Return the new end point." (save-excursion (save-restriction (rfc2047-narrow-to-field) - (rfc2047-fold-region (point-min) (point-max))))) + (rfc2047-fold-region (point-min) (point-max)) + (point-max)))) (defun rfc2047-fold-region (b e) "Fold long lines in region B to E." |