| Current File : //kunden/usr/share/emacs/27.2/lisp/mail/flow-fill.elc |
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\306\307\310\311\312\317& \207" [custom-declare-variable fill-flowed-display-column funcall function #[0 "\300\207" [fill-column] 1] "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 #[0 "\300\207" [66] 1] "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)
#@25
(fn &optional BUFFER)
(defalias 'fill-flowed-encode #[256 "r\211\206 pq\210\205I e\303\304d\305\306$\211\262\203F \214}\210\307 !\310 \210)eb\210\311\312\303\306#\203; \313\314\306\211#\210\202* dT\211\262b\210)\202 \266\306)\207" [use-hard-newlines fill-flowed-encode-column fill-column nil text-property-any hard t eval fill-flowed-fill-buffer re-search-forward "\n" replace-match " \n"] 8 (#$ . 1258)])
(defalias 'fill-flowed-fill-buffer #[0 "\301\211eeb\210m\204> \302\303!\205 \304\305!\262\232\203! \306y\210\202 \214\211`}\210\307ed\310\311\312%\210)db\210)\262`\262\202 \214\211`}\210\307ed\310\311\312%*\207" [fill-prefix nil looking-at "[> ]+" match-string 0 1 fill-region t nosqueeze to-eop] 9])
#@189 Apply RFC2646 decoding to BUFFER.
If BUFFER is nil, default to the current buffer.
If DELETE-SPACE, delete RFC2646 spaces padding at the end of
lines.
(fn &optional BUFFER DELETE-SPACE)
(defalias 'fill-flowed #[512 "r\206 pq\210\304!eb\210m?\205\273 \305\306!\203q \307 \206 `Sf\310=\203q \311\312!\312\225b\210\305\313!\2047 \313c\210\314\210m\204m \212\315y\210\305\316\317\"!)\203m `\315\225|\210\3201h \211\313P\314\321\322 \307 \323\324$*0\202l \210\202m \210\210\202\265 g\310=\203{ \325\315!\210\305\326!\204\265 \307 \206\207 `Sf\310=\203\265 \314\210\211\203\231 \325\327!\210\325\315!\210\3301\260 \331\321\322 \307 \323\324$)0\202\264 \210\202\265 \210\315y\210\202 *\207" [fill-flowed-display-column fill-column adaptive-fill-mode fill-prefix eval looking-at "^>+" line-end-position 32 match-string 0 " " nil 1 format "\\(%s ?\\)[^>]" (error) fill-region line-beginning-position left nosqueeze delete-char "-- $" -1 (error) ""] 8 (#$ . 1997)])
(make-obsolete-variable 'fill-flowed-encode-tests nil "27.1")
(defalias 'fill-flowed-test #[0 "\300\301!\207" [user-error "This function is obsolete. Please see test/lisp/mail/flow-fill-tests.el in the Emacs source tree"] 2 nil ""])
(provide 'flow-fill)