From 479b2bdcf4d56214fccdb290a962f93da1d88db0 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Sun, 25 Jul 2004 00:32:26 +0000 Subject: [PATCH 1/1] Synch to No Gnus 200407242210. --- lisp/ChangeLog | 6 ++++++ lisp/flow-fill.el | 7 ++++++- 2 files changed, 12 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6017c7b..7ba6884 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2004-07-25 Lars Magne Ingebrigtsen + + * flow-fill.el (fill-flowed): Remove space stuffing, and only do + quotes that actually start with ">" at the beginning of the + lines. + 2004-07-23 Katsumi Yamaoka * rfc2047.el (rfc2047-encode-region): Fix last change. diff --git a/lisp/flow-fill.el b/lisp/flow-fill.el index c800699..e8f0b98 100644 --- a/lisp/flow-fill.el +++ b/lisp/flow-fill.el @@ -97,10 +97,15 @@ RFC 2646 suggests 66 characters for readability." (save-excursion (set-buffer (or (current-buffer) buffer)) (goto-char (point-min)) + ;; Remove space stuffing. + (while (re-search-forward "^ " nil t) + (delete-char -1) + (forward-line 1)) + (goto-char (point-min)) (while (re-search-forward " $" nil t) (when (save-excursion (beginning-of-line) - (looking-at "^\\(>*\\)\\( ?\\)")) + (looking-at "^\\(>+\\)\\( ?\\)")) (let ((quote (match-string 1)) sig) (if (string= quote "") -- 1.7.10.4