procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fold rfc2047 headers correctly when narrowed to header value

Browse source 
* lisp/mail/rfc2047.el (rfc2047-fold-region): Fold headers
correctly if narrowed to the header value.
This commit is contained in:
Lars Ingebrigtsen 2019-07-13 01:09:19 +02:00
parent 38e420af45
commit ebd3f61a56
1 changed files with 13 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
lisp/mail/rfc2047.el
View file

@ -732,12 +732,19 @@ Point moves to the end of the region."
(save-restriction
(narrow-to-region b e)
(goto-char (point-min))
(let ((break nil)
(qword-break nil)
(first t)
(bol (save-restriction
(widen)
(point-at-bol))))
(let* ((break nil)
(qword-break nil)
(bol (save-restriction
(widen)
(line-beginning-position)))
;; This function is either called with the Header: name in
;; the region or not. If it's not in the region, then we
;; may already have a space.
(first (or (= bol (point))
(save-restriction
(widen)
(save-excursion
(not (re-search-backward "[ \t]" bol t)))))))
(while (not (eobp))
(when (and (or break qword-break)
(> (- (point) bol) 76))