(Saving Articles): Addition.

[gnus] / texi / gnus-news.el

diff --git a/texi/gnus-news.el b/texi/gnus-news.el
index df35446..3c25d99 100644 (file)
--- a/texi/gnus-news.el
+++ b/texi/gnus-news.el
@@ -1,5 +1,5 @@
 ;;; gnus-news.el --- a hack to create GNUS-NEWS from texinfo source
 ;;; gnus-news.el --- a hack to create GNUS-NEWS from texinfo source

-;; Copyright (C)  2004, 2005  Free Software Foundation, Inc.
+;; Copyright (C)  2004, 2005, 2006  Free Software Foundation, Inc.

 
 ;; Author: Reiner Steib  <Reiner.Steib@gmx.de>
 ;; Keywords: tools
 
 ;; Author: Reiner Steib  <Reiner.Steib@gmx.de>
 ;; Keywords: tools


@@ -27,15 +27,13 @@
 
 (defvar gnus-news-header-disclaimer
 "GNUS NEWS -- history of user-visible changes.
 
 (defvar gnus-news-header-disclaimer
 "GNUS NEWS -- history of user-visible changes.

-Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
+Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005,
+   2006 Free Software Foundation, Inc.

 See the end for copying conditions.
 
 Please send Gnus bug reports to bugs\@gnus.org.
 For older news, see Gnus info node \"New Features\".
 
 See the end for copying conditions.
 
 Please send Gnus bug reports to bugs\@gnus.org.
 For older news, see Gnus info node \"New Features\".
 

-\f
-* Changes in No Gnus
-

 ")
 
 (defvar gnus-news-trailer
 ")
 
 (defvar gnus-news-trailer


@@ -45,7 +43,8 @@ For older news, see Gnus info node \"New Features\".
 ----------------------------------------------------------------------
 Copyright information:
 
 ----------------------------------------------------------------------
 Copyright information:
 

-Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
+Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005,
+   2006 Free Software Foundation, Inc.

 
    Permission is granted to anyone to make or distribute verbatim copies
    of this document as received, in any medium, provided that the
 
    Permission is granted to anyone to make or distribute verbatim copies
    of this document as received, in any medium, provided that the


@@ -61,7 +60,7 @@ paragraph-separate: \"[       \f]*$\"\nend:\n")
 
 (defvar gnus-news-makeinfo-command "makeinfo")
 
 
 (defvar gnus-news-makeinfo-command "makeinfo")
 

-(defvar gnus-news-fill-column 72)
+(defvar gnus-news-fill-column 80)

 
 (defvar gnus-news-makeinfo-switches
   (concat " --no-headers --paragraph-indent=0"
 
 (defvar gnus-news-makeinfo-switches
   (concat " --no-headers --paragraph-indent=0"


@@ -98,6 +97,9 @@ paragraph-separate: \"[       \f]*$\"\nend:\n")
       (goto-char (point-min))
       (save-excursion
        (while (re-search-forward "^   \\* " nil t)
       (goto-char (point-min))
       (save-excursion
        (while (re-search-forward "^   \\* " nil t)

+         (replace-match "\f\n* ")))
+      (save-excursion
+       (while (re-search-forward "^        \\* " nil t)

          (replace-match "** ")))
       (save-excursion
        (while (re-search-forward "^     " nil t)
          (replace-match "** ")))
       (save-excursion
        (while (re-search-forward "^     " nil t)