From: Kazuhiro Ito <kzhr@d1.dion.ne.jp>
Date: Sat, 22 Jan 2011 19:48:19 +0000 (+0100)
Subject: * flow-fill.el (fill-flowed): Make `delete-space' option correspond to
X-Git-Url: https://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=517841400a24e398332b0e769c95f0d57ecae7a4

* flow-fill.el (fill-flowed): Make `delete-space' option correspond to
"DelSp" parameter in RFC3676.
---

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  <kzhr@d1.dion.ne.jp>
+
+	* flow-fill.el (fill-flowed): Make `delete-space' option correspond to
+	"DelSp" parameter in RFC3676.
+
 2011-01-22  Lars Ingebrigtsen  <larsi@gnus.org>
 
 	* 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