diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-08-14 17:16:37 -0700 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-08-14 17:16:37 -0700 |
| commit | d54eb7347f8d53741337884c45dd96a72d701893 (patch) | |
| tree | 32a6c837c06e38f3d20619a348afbc5dfbe8eedb /lisp/mail/flow-fill.el | |
| parent | 1a2055310055dffc664ab9d1095b38bc7afd3581 (diff) | |
| download | emacs-d54eb7347f8d53741337884c45dd96a72d701893.tar.gz emacs-d54eb7347f8d53741337884c45dd96a72d701893.tar.bz2 emacs-d54eb7347f8d53741337884c45dd96a72d701893.zip | |
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.
Diffstat (limited to 'lisp/mail/flow-fill.el')
| -rw-r--r-- | lisp/mail/flow-fill.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/mail/flow-fill.el b/lisp/mail/flow-fill.el index ed6a2df87dc..948a7d799f5 100644 --- a/lisp/mail/flow-fill.el +++ b/lisp/mail/flow-fill.el @@ -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) |