* mu-cite.el (fill-column-for-fill-cited-region): New user option.

(fill-cited-region): Prefer `fill-column-for-fill-cited-region' if it is an
 integer rather than `fill-column'.

diff --git a/ChangeLog b/ChangeLog
index b90738b..231b98e 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,12 @@
+2001-03-09  Katsumi Yamaoka   <yamaoka@jpl.org>
+
+       * mu-cite.el (fill-column-for-fill-cited-region): New user option.
+       (fill-cited-region): Prefer `fill-column-for-fill-cited-region' if
+       it is an integer rather than `fill-column'.
+
 2001-02-23  Katsumi Yamaoka   <yamaoka@jpl.org>
 
-       * mu-cite.el: (char-category): Force redefine as a function because
+       * mu-cite.el (char-category): Force redefine as a function because
        it may have been defined by emu.el;  don't use `int-char' for
        XEmacs if the function `char-category-list' returns a list of
        characters;  enclose the whole form with `eval-and-compile'.

diff --git a/NEWS b/NEWS
index 82df4d1..f5bb536 100644 (file)
--- a/NEWS
+++ b/NEWS
@@ -1,6 +1,14 @@
 MU-CITE NEWS -- history of major-changes.
 Copyright (C) 1999 Free Software Foundation, Inc.
 
+* Changes in MU-CITE 8.2
+========================
+
+** New user option `fill-column-for-fill-cited-region' specifies an
+integer value to override `fill-column' while `fill-cited-region' is
+being executed.
+
+\f
 * Changes in MU-CITE 8.1
 ========================
 

diff --git a/mu-cite.el b/mu-cite.el
index aeb4337..d292937 100644 (file)
--- a/mu-cite.el
+++ b/mu-cite.el
@@ -455,6 +455,13 @@ TABLE defaults to the current buffer's category table."
             (buffer-substring (line-beginning-position)(point)))
            (t "")))))
 
+(defcustom fill-column-for-fill-cited-region nil
+  "Integer to override `fill-column' while `fill-cited-region' is being
+executed."
+  :type (` (choice (const :tag "Off" nil)
+                  (integer (, default-fill-column))))
+  :group 'mu-cite)
+
 ;;;###autoload
 (defun fill-cited-region (beg end)
   "Fill each of the paragraphs in the region as a cited text."
@@ -468,7 +475,8 @@ TABLE defaults to the current buffer's category table."
       (let* ((fill-prefix (detect-paragraph-cited-prefix))
             (fill-column (max (+ 1 (current-left-margin)
                                  (string-width fill-prefix))
-                              (current-fill-column)))
+                              (or fill-column-for-fill-cited-region
+                                  (current-fill-column))))
             (pat (concat fill-prefix "\n"))
             filladapt-mode)
        (goto-char (point-min))