| Server IP : 217.160.0.212 / Your IP : 216.73.216.141 Web Server : Apache System : Linux www 6.18.51-i1-ampere #1196 SMP Fri Sep 11 20:43:55 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/mail/ |
Upload File : |
;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. (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 #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 #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\205J e\303\304d\305\306$\211\262\203G \214}\210\307 \306\"\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 (#$ . 944)]) (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\305\"eb\210m?\205\355 \306\307!\203\222 \310 \206! `Sf\311=\203\222 \312\313!\313\225b\210\306\314!\2048 \314c\210\310 \206> `Sf\311=\203t m\204t \212\315y\210\306\316\317\"!)\203t \320\210m\2048 \212\315y\210\306\316\317\"!)\2038 `\315\225|\210\2028 \3211\215 \211\314P\320\322\323 \310 \324\325$*0\266\202\347 \266\202\347 g\311=\203\234 \326\315!\210\306\327!\204\347 \310 \206\250 `Sf\311=\203\347 m\204\322 \310 \206\271 `Sf\311=\203\322 \320\210\211\203\313 \326\330!\210\326\315!\210\202\257 \3311\346 \332\322\323 \310 \324\325$)0\210\202\347 \210\315y\210\202 *\207" [fill-flowed-display-column fill-column adaptive-fill-mode fill-prefix eval t looking-at "^>+" line-end-position 32 match-string 0 " " 1 format "\\(%s ?\\)[^>]" nil (error) fill-region line-beginning-position left nosqueeze delete-char "-- $" -1 (error) ""] 8 (#$ . 1687)]) (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 ""]) (byte-code "\300\301\302\303#\210\304\305!\207" [make-obsolete fill-flowed-test nil "27.1" provide flow-fill] 4)