From: yamaoka <yamaoka>
Date: Fri, 9 Mar 2001 00:38:36 +0000 (+0000)
Subject: * mu-cite.el (fill-column-for-fill-cited-region): New user option.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=9daf9fca2deca3e77b51175ededc83c12bfcfc65;p=elisp%2Fmu-cite.git

* 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
--- 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
--- 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.
+
+
 * Changes in MU-CITE 8.1
 ========================
 
diff --git a/mu-cite.el b/mu-cite.el
index aeb4337..d292937 100644
--- 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))