;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:34 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/flow-fill.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301\302\303\304\305\306\307\310\311&	\210\300\312\313\314\304\305\306\307\310\315&	\207" [custom-declare-variable fill-flowed-display-column 'fill-column "Column beyond which format=flowed lines are wrapped, when displayed.\nThis 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) (integer)) fill-flowed-encode-column 66 "Column beyond which format=flowed lines are wrapped, in outgoing messages.\nThis can be a Lisp expression or an integer.\nRFC 2646 suggests 66 characters for readability." (choice (const :tag "Standard fill-column" fill-column) (const :tag "RFC 2646 default (66)" 66) (sexp) (integer))] 10)
(defalias 'fill-flowed-encode #[(&optional buffer) "r\206pq\210	\205He\306\307d\310\311$\211\203F\214\n}\210\312\f!\313 \210)eb\210\314\315\306\311#\203<\316\317\311\211#\210\202+dT\211b\210)\202*\311)\207" [buffer use-hard-newlines end start fill-flowed-encode-column fill-column nil text-property-any hard t eval fill-flowed-fill-buffer re-search-forward "\n" replace-match " \n"] 5])
(defalias 'fill-flowed-fill-buffer #[nil "\304\211eeb\210m\204>\305\306!\205\307\310!\211	\232\203#\311y\210\202	\214`}\210	\312ed\313\314\315%\210)db\210)\n`\202	\214`}\210	\312ed\313\314\315%-\207" [start prev-prefix prefix fill-prefix nil looking-at "[> ]+" match-string 0 1 fill-region t nosqueeze to-eop] 7])
(defalias 'fill-flowed #[(&optional buffer delete-space) "rp\206q\210eb\210\304\305\306\307#\203\310\311!\210\312y\210\202eb\210\304\313\306\307#\205\266\212\314 \210\315\316!)\203 \317\312!\306\211\320\230\203A\306\n\203]\317\321!\320\230\203]\212\314 \210\322\306w\323V\203\\\324c\210)\212\306\325\326\217\210\315\327!\315\330!)\203\251\212m?\205\201\312u\210\315\331\332\n\206\333\"!)\203\251\212\334\317\321!\324\230\203\223\320\202\224\335!\210)\336\311!\210\203\243\310\311!\210\306\210\202]	\204\262\306\337\340\217\210*\202 )\207" [buffer sig quote delete-space re-search-forward "^\\( \\|>+ $\\)" nil t delete-char -1 1 " $" beginning-of-line looking-at "^\\(>*\\)\\( ?\\)" match-string "" 2 ">" 0 " " (forward-char -3) ((error)) "-- " "[^-][^-] " format "^\\(%s\\)\\([^>\n
]\\)" " ?" replace-match "\\2" backward-delete-char (byte-code "\205\306P\307	!\310\211\311\312 \313 Td^\314\315$\210,\310\207" [quote fill-flowed-display-column adaptive-fill-mode filladapt-mode fill-column fill-prefix " " eval nil fill-region point-at-bol point-at-eol left nosqueeze] 5) ((error (forward-line 1)))] 5])
(defvar fill-flowed-encode-tests (byte-code "\300\301BC\207" ["> Thou villainous ill-breeding spongy dizzy-eyed \n> reeky elf-skinned pigeon-egg! \n>> Thou artless swag-bellied milk-livered \n>> dismal-dreaming idle-headed scut!\n>>> Thou errant folly-fallen spleeny reeling-ripe \n>>> unmuzzled ratsbane!\n>>>> Henceforth, the coding style is to be strictly \n>>>> enforced, including the use of only upper case.\n>>>>> I've noticed a lack of adherence to the coding \n>>>>> styles, of late.\n>>>>>> Any complaints?" "> Thou villainous ill-breeding spongy dizzy-eyed reeky elf-skinned\n> pigeon-egg! \n>> Thou artless swag-bellied milk-livered dismal-dreaming idle-headed\n>> scut!\n>>> Thou errant folly-fallen spleeny reeling-ripe unmuzzled ratsbane!\n>>>> Henceforth, the coding style is to be strictly enforced,\n>>>> including the use of only upper case.\n>>>>> I've noticed a lack of adherence to the coding styles, of late.\n>>>>>> Any complaints?\n"] 2))
(defalias 'fill-flowed-test #[nil "\306\307\310!!\210\311 \210\312	\313\211\203Y@\313\211\314c\210\n@c\210\315c\210\316c\210`\n@c\210\214
`}\210\317 \210)
d{\320c\210\f\nA\230\204N\321c\210\nAc\210\322c\210\323c\210*A\211\204*db\207" [show-trailing-whitespace fill-flowed-encode-tests test --dolist-tail-- output start switch-to-buffer get-buffer-create "*Format=Flowed test output*" erase-buffer t nil "***** BEGIN TEST INPUT *****\n" "***** END TEST INPUT *****\n\n" "***** BEGIN TEST OUTPUT *****\n" fill-flowed "***** END TEST OUTPUT *****\n" "\n***** BEGIN TEST EXPECTED OUTPUT *****\n" "***** END TEST EXPECTED OUTPUT *****\n" "\n\n"] 4 nil ""])
(provide 'flow-fill)