(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 "21.4"
+ :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 "21.4"
+ :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 "")