Update copyright year to 2016
[gnus] / texi / gnus-news.el
index 0a07685..5ccd3f4 100644 (file)
@@ -1,15 +1,15 @@
 ;;; 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, 2006  Free Software Foundation, Inc.
+;; Copyright (C) 2004-2016 Free Software Foundation, Inc.
 
 ;; Author: Reiner Steib  <Reiner.Steib@gmx.de>
 ;; Keywords: tools
 
 ;; This file is part of GNU Emacs.
 
 
 ;; Author: Reiner Steib  <Reiner.Steib@gmx.de>
 ;; Keywords: tools
 
 ;; This file is part of GNU Emacs.
 
-;; GNU Emacs is free software; you can redistribute it and/or modify
+;; GNU Emacs is free software: you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
 ;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
@@ -17,9 +17,7 @@
 ;; GNU General Public License for more details.
 
 ;; You should have received a copy of the GNU General Public License
 ;; GNU General Public License for more details.
 
 ;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
-;; Boston, MA 02110-1301, USA.
+;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
 
 ;;; Commentary:
 
 
 ;;; Commentary:
 
 
 (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, 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\".
+Copyright (C) 1999-2016 Free Software Foundation, Inc.
+See the end of the file for license conditions.
 
 
-\f
-* Changes in No Gnus
-
-")
+Please send Gnus bug reports to bugs@gnus.org.
+For older news, see Gnus info node \"New Features\".\n\n")
 
 (defvar gnus-news-trailer
 "\f
 * For older news, see Gnus info node \"New Features\".
 
 ----------------------------------------------------------------------
 
 (defvar gnus-news-trailer
 "\f
 * For older news, see Gnus info node \"New Features\".
 
 ----------------------------------------------------------------------
-Copyright information:
+\f
+This file is part of GNU Emacs.
 
 
-Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
+GNU Emacs is free software: you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation, either version 3 of the License, or
+\(at your option) any later version.
 
 
-   Permission is granted to anyone to make or distribute verbatim copies
-   of this document as received, in any medium, provided that the
-   copyright notice and this permission notice are preserved,
-   thus giving the recipient permission to redistribute in turn.
+GNU Emacs is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
 
 
-   Permission is granted to distribute modified versions
-   of this document, or of portions of it,
-   under the above conditions, provided also that they
-   carry prominent notices stating who last changed them.
 \f\nLocal variables:\nmode: outline
 paragraph-separate: \"[        \f]*$\"\nend:\n")
 
 (defvar gnus-news-makeinfo-command "makeinfo")
 
 \f\nLocal variables:\nmode: outline
 paragraph-separate: \"[        \f]*$\"\nend:\n")
 
 (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"
@@ -88,7 +85,7 @@ paragraph-separate: \"[       \f]*$\"\nend:\n")
         (infile (concat dir infile))
         (buffer (find-file-noselect (concat dir outfile))))
     (with-temp-buffer
         (infile (concat dir infile))
         (buffer (find-file-noselect (concat dir outfile))))
     (with-temp-buffer
-      ;; Could be done using `texinfmt' stuff as in `infohack.el'.
+      ;; Could be done using 'texinfmt' stuff as in 'infohack.el'.
       (insert
        (shell-command-to-string
        (concat gnus-news-makeinfo-command " "
       (insert
        (shell-command-to-string
        (concat gnus-news-makeinfo-command " "
@@ -98,11 +95,14 @@ 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 "")))
          (replace-match "** ")))
       (save-excursion
        (while (re-search-forward "^     " nil t)
          (replace-match "")))
-      ;; Avoid `*' from @ref at beginning of line:
+      ;; Avoid '*' from @ref at beginning of line:
       (save-excursion
        (while (re-search-forward "^\\*Note" nil t)
          (replace-match " \\&")))
       (save-excursion
        (while (re-search-forward "^\\*Note" nil t)
          (replace-match " \\&")))
@@ -112,5 +112,4 @@ paragraph-separate: \"[     \f]*$\"\nend:\n")
       (insert gnus-news-trailer)
       (write-region (point-min) (point-max) outfile))))
 
       (insert gnus-news-trailer)
       (write-region (point-min) (point-max) outfile))))
 
-;;; arch-tag: e23cdd27-eafd-4ba0-816f-98f5edb0dc29
 ;;; gnus-news.el ends here
 ;;; gnus-news.el ends here