Respect the BUFFER parameter in `fill-flowed'
* lisp/mail/flow-fill.el (fill-flowed): `current-buffer' is always non-nil, so respect the BUFFER parameter. Also add a doc string.
This commit is contained in:
parent
1a20553100
commit
d54eb7347f
1 changed files with 6 additions and 1 deletions
|
@ -114,7 +114,12 @@ RFC 2646 suggests 66 characters for readability."
|
|||
|
||||
;;;###autoload
|
||||
(defun fill-flowed (&optional buffer delete-space)
|
||||
(with-current-buffer (or (current-buffer) buffer)
|
||||
"Apply RFC2646 decoding to BUFFER.
|
||||
If BUFFER is nil, default to the current buffer.
|
||||
|
||||
If DELETE-SPACE, delete RFC2646 spaces padding at the end of
|
||||
lines."
|
||||
(with-current-buffer (or buffer (current-buffer))
|
||||
(goto-char (point-min))
|
||||
;; Remove space stuffing.
|
||||
(while (re-search-forward "^\\( \\|>+ $\\)" nil t)
|
||||
|
|
Loading…
Add table
Reference in a new issue