-;;; flow-fill.el --- interprete RFC2646 "flowed" text
+;;; flow-fill.el --- interpret RFC2646 "flowed" text
;; Copyright (C) 2000, 2001, 2002, 2003 Free Software Foundation, Inc.
(defcustom fill-flowed-display-column 'fill-column
"Column beyond which format=flowed lines are wrapped, when displayed.
This can be a Lisp expression or an integer."
+ :version "22.1"
+ :group 'mime-display
:type '(choice (const :tag "Standard `fill-column'" fill-column)
(const :tag "Fit Window" (- (window-width) 5))
(sexp)
"Column beyond which format=flowed lines are wrapped, in outgoing messages.
This can be a Lisp expression or an integer.
RFC 2646 suggests 66 characters for readability."
+ :version "22.1"
+ :group 'mime-display
:type '(choice (const :tag "Standard fill-column" fill-column)
(const :tag "RFC 2646 default (66)" 66)
(sexp)
(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 "")
'(
;; The syntax of each list element is:
;; (INPUT . EXPECTED-OUTPUT)
- ("> Thou villainous ill-breeding spongy dizzy-eyed
-> reeky elf-skinned pigeon-egg!
->> Thou artless swag-bellied milk-livered
+ ("> Thou villainous ill-breeding spongy dizzy-eyed
+> reeky elf-skinned pigeon-egg!
+>> Thou artless swag-bellied milk-livered
>> dismal-dreaming idle-headed scut!
->>> Thou errant folly-fallen spleeny reeling-ripe
+>>> Thou errant folly-fallen spleeny reeling-ripe
>>> unmuzzled ratsbane!
->>>> Henceforth, the coding style is to be strictly
+>>>> Henceforth, the coding style is to be strictly
>>>> enforced, including the use of only upper case.
->>>>> I've noticed a lack of adherence to the coding
+>>>>> I've noticed a lack of adherence to the coding
>>>>> styles, of late.
>>>>>> Any complaints?
" . "> Thou villainous ill-breeding spongy dizzy-eyed reeky elf-skinned
-> pigeon-egg!
+> pigeon-egg!
>> Thou artless swag-bellied milk-livered dismal-dreaming idle-headed
>> scut!
>>> Thou errant folly-fallen spleeny reeling-ripe unmuzzled ratsbane!
")
; ("
;> foo
-;>
-;>
+;>
+;>
;> bar
;" . "
;> foo bar