Add function nntp-marks-directory, use it. This creates a separate

[gnus] / lisp / flow-fill.el

diff --git a/lisp/flow-fill.el b/lisp/flow-fill.el
index 2edd115..c800699 100644 (file)
--- a/lisp/flow-fill.el
+++ b/lisp/flow-fill.el
@@ -1,4 +1,4 @@
-;;; flow-fill.el --- interprete RFC2646 "flowed" text
+;;; flow-fill.el --- interpret RFC2646 "flowed" text
 
 ;; Copyright (C) 2000, 2001, 2002, 2003 Free Software Foundation, Inc.
 
@@ -70,17 +70,6 @@ RFC 2646 suggests 66 characters for readability."
                 (sexp)
                 (integer)))
 
-(eval-and-compile
-  (defalias 'fill-flowed-point-at-bol
-       (if (fboundp 'point-at-bol)
-           'point-at-bol
-         'line-beginning-position))
-
-   (defalias 'fill-flowed-point-at-eol
-       (if (fboundp 'point-at-eol)
-           'point-at-eol
-         'line-end-position)))
-
 ;;;###autoload
 (defun fill-flowed-encode (&optional buffer)
   (with-current-buffer (or buffer (current-buffer))
@@ -142,8 +131,8 @@ RFC 2646 suggests 66 characters for readability."
                (let ((fill-prefix (when quote (concat quote " ")))
                      (fill-column (eval fill-flowed-display-column))
                      filladapt-mode)
-                 (fill-region (fill-flowed-point-at-bol)
-                              (min (1+ (fill-flowed-point-at-eol))
+                 (fill-region (point-at-bol)
+                              (min (1+ (point-at-eol))
                                    (point-max))
                               'left 'nosqueeze))
              (error
@@ -152,6 +141,9 @@ RFC 2646 suggests 66 characters for readability."
 
 ;; Test vectors.
 
+(eval-when-compile
+  (defvar show-trailing-whitespace))
+
 (defvar fill-flowed-encode-tests
   '(
     ;; The syntax of each list element is:
@@ -196,7 +188,6 @@ RFC 2646 suggests 66 characters for readability."
     (let (start output)
       (insert "***** BEGIN TEST INPUT *****\n")
       (insert (car test))
-      (setq end (point))
       (insert "***** END TEST INPUT *****\n\n")
       (insert "***** BEGIN TEST OUTPUT *****\n")
       (setq start (point))