/[emacs]/emacs/lisp/gnus/flow-fill.el
ViewVC logotype

Diff of /emacs/lisp/gnus/flow-fill.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.11 by ttn, Sat Aug 6 19:51:41 2005 UTC revision 1.12 by miles, Mon Oct 31 07:07:27 2005 UTC
# Line 161  RFC 2646 suggests 66 characters for read Line 161  RFC 2646 suggests 66 characters for read
161    (defvar show-trailing-whitespace))    (defvar show-trailing-whitespace))
162    
163  (defvar fill-flowed-encode-tests  (defvar fill-flowed-encode-tests
164    '(    `(
165      ;; The syntax of each list element is:      ;; The syntax of each list element is:
166      ;; (INPUT . EXPECTED-OUTPUT)      ;; (INPUT . EXPECTED-OUTPUT)
167      ("> Thou villainous ill-breeding spongy dizzy-eyed      (,(concat
168  > reeky elf-skinned pigeon-egg!         "> Thou villainous ill-breeding spongy dizzy-eyed \n"
169  >> Thou artless swag-bellied milk-livered         "> reeky elf-skinned pigeon-egg! \n"
170  >> dismal-dreaming idle-headed scut!         ">> Thou artless swag-bellied milk-livered \n"
171  >>> Thou errant folly-fallen spleeny reeling-ripe         ">> dismal-dreaming idle-headed scut!\n"
172  >>> unmuzzled ratsbane!         ">>> Thou errant folly-fallen spleeny reeling-ripe \n"
173  >>>> Henceforth, the coding style is to be strictly         ">>> unmuzzled ratsbane!\n"
174  >>>> enforced, including the use of only upper case.         ">>>> Henceforth, the coding style is to be strictly \n"
175  >>>>> I've noticed a lack of adherence to the coding         ">>>> enforced, including the use of only upper case.\n"
176  >>>>> styles, of late.         ">>>>> I've noticed a lack of adherence to the coding \n"
177  >>>>>> Any complaints?         ">>>>> styles, of late.\n"
178  " . "> Thou villainous ill-breeding spongy dizzy-eyed reeky elf-skinned         ">>>>>> Any complaints?")
179  > pigeon-egg!       .
180  >> Thou artless swag-bellied milk-livered dismal-dreaming idle-headed       ,(concat
181  >> scut!         "> Thou villainous ill-breeding spongy dizzy-eyed reeky elf-skinned\n"
182  >>> Thou errant folly-fallen spleeny reeling-ripe unmuzzled ratsbane!         "> pigeon-egg! \n"
183  >>>> Henceforth, the coding style is to be strictly enforced,         ">> Thou artless swag-bellied milk-livered dismal-dreaming idle-headed\n"
184  >>>> including the use of only upper case.         ">> scut!\n"
185  >>>>> I've noticed a lack of adherence to the coding styles, of late.         ">>> Thou errant folly-fallen spleeny reeling-ripe unmuzzled ratsbane!\n"
186  >>>>>> Any complaints?         ">>>> Henceforth, the coding style is to be strictly enforced,\n"
187  ")         ">>>> including the use of only upper case.\n"
188  ;    ("         ">>>>> I've noticed a lack of adherence to the coding styles, of late.\n"
189  ;> foo         ">>>>>> Any complaints?\n"
190  ;>         ))
191  ;>      ;; (,(concat
192  ;> bar      ;;    "\n"
193  ;" . "      ;;    "> foo\n"
194  ;> foo bar      ;;    "> \n"
195  ;")      ;;    "> \n"
196        ;;    "> bar\n")
197        ;;  .
198        ;;  ,(concat
199        ;;    "\n"
200        ;;    "> foo bar\n"))
201      ))      ))
202    
203  (defun fill-flowed-test ()  (defun fill-flowed-test ()

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26