;ELC   
;;; compiled by gutnik@multics.mit.edu on Thu Jun 10 13:05:18 2004
;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/xemacs-gnus-5.10.6/lisp/flow-fill.el
;;; emacs version 21.4 (patch 4) "Artificial Intelligence" XEmacs Lucid.
;;; bytecomp version 2.27 XEmacs; 2000-09-12.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 19.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "20")))
    (error "`flow-fill.el' was compiled for Emacs 20"))

(or (boundp 'current-load-list) (setq current-load-list nil))


(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." :type '(choice (const :tag "Standard `fill-column'" fill-column) (const :tag "Fit Window" (- (window-width) 5)) (sexp) (integer)))
(custom-declare-variable '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." :type '(choice (const :tag "Standard fill-column" fill-column) (const :tag "RFC 2646 default (66)" 66) (sexp) (integer)))
(byte-code "ÀÁÂÃ!«ƒÃªÄ\"ˆÀÅÂÆ!«ƒÆªÇ\"‡" [defalias fill-flowed-point-at-bol fboundp point-at-bol line-beginning-position fill-flowed-point-at-eol point-at-eol line-end-position] 4)
(defalias 'fill-flowed-encode #[(&optional buffer) "r®pqˆ\n­ÇeÆÇdÈÉ$‰«·Ê	!ËÉÌÍ%ˆ)bˆÇdÈÉ$`W«“ÎÏSÉ#«‹ÐcˆTÆuˆªhT‰bˆª?*É)‡" [fill-column fill-flowed-encode-column use-hard-newlines buffer start end nil text-property-any hard t eval fill-region nosqueeze to-eop re-search-forward "$" " "] 6])
(defalias 'fill-flowed #[(&optional buffer) "Šp®qˆebˆÃÄÅÆ#­øŠÇyˆÈÉ!)«oÊË!Å‰Ì˜«‚Å\n«–ÊÍ!Ì˜«ŠÇyˆÎÅwÇV«ƒÏcˆ)ŠÅÐÑˆÈÒ!ÈÓ!)«­Šm?­ŒËuˆÈÔÕ\n®Ö\"!)«™Š×ÊÍ!Ï˜«ƒÌªØ!ˆ)ÙÚ!ˆÅˆªC	¬…ÅÛÜˆ*ª)‡" [buffer sig quote re-search-forward " $" nil t 0 looking-at "^\\(>*\\)\\( ?\\)" match-string 1 "" 2 ">" " " (forward-char -3) ((error)) "-- " "[^-][^-] " format "^\\(%s\\)\\([^>\n]\\)" " ?" replace-match "\\2" backward-delete-char -1 (byte-code "­ƒÅPÆ!ÇÈÉ Ê Td^ËÌ$ˆ+Ç‡" [fill-prefix fill-column filladapt-mode fill-flowed-display-column quote " " eval nil fill-region fill-flowed-point-at-bol fill-flowed-point-at-eol left nosqueeze] 5) ((error (forward-line 1)))] 5])
(byte-code "À	BÂÀ!¬‚ÃÀ‡" [fill-flowed-encode-tests current-load-list boundp (("> 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?\n" . "> 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 "ÆÇÈ!!ˆÉ ˆÊË‰«Ä@Ë‰Ìcˆ@cˆÍcˆÎcˆ`@cˆŒ`}ˆÏ ˆ)d{Ðcˆ\nA˜¬ŠÑcˆAcˆÒcˆÓcˆ*A‰¬<*db‡" [fill-flowed-encode-tests show-trailing-whitespace output start #1=#:--dolist-temp--11426 test 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"] 3 nil ""])
(provide 'flow-fill)