From 517841400a24e398332b0e769c95f0d57ecae7a4 Mon Sep 17 00:00:00 2001 From: Kazuhiro Ito Date: Sat, 22 Jan 2011 20:48:19 +0100 Subject: [PATCH] * flow-fill.el (fill-flowed): Make `delete-space' option correspond to "DelSp" parameter in RFC3676. --- lisp/ChangeLog | 5 +++++ lisp/flow-fill.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index db5792bb5..7b615cdcf 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2011-01-22 Kazuhiro Ito + + * flow-fill.el (fill-flowed): Make `delete-space' option correspond to + "DelSp" parameter in RFC3676. + 2011-01-22 Lars Ingebrigtsen * message.el (message-check-recipients): Display the encoded version of diff --git a/lisp/flow-fill.el b/lisp/flow-fill.el index 66422d2f7..76339c0ad 100644 --- a/lisp/flow-fill.el +++ b/lisp/flow-fill.el @@ -124,8 +124,6 @@ RFC 2646 suggests 66 characters for readability." (forward-line 1)) (goto-char (point-min)) (while (re-search-forward " $" nil t) - (when delete-space - (delete-char -1)) (when (save-excursion (beginning-of-line) (looking-at "^\\(>*\\)\\( ?\\)")) @@ -153,6 +151,8 @@ RFC 2646 suggests 66 characters for readability." (replace-match (if (string= (match-string 2) " ") "" "\\2"))) (backward-delete-char -1) + (when delete-space + (delete-char -1)) (end-of-line)) (unless sig (condition-case nil -- 2.25.1