From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Thu, 15 Aug 2019 00:16:37 +0000 (-0700)
Subject: Respect the BUFFER parameter in `fill-flowed'
X-Git-Tag: emacs-27.0.90~1628
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d54eb7347f8d53741337884c45dd96a72d701893;p=emacs.git

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.
---

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)