(nnfolder-save-buffer): Bind `copyright-update' to

nil to avoid prompting and file modification if one of the
messages at the top of the nnfolder file contains a copyright
notice.
Update copyright notice.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0b6c749..92d4387 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,11 @@
 2005-07-16  Romain Francoise  <romain@orebokech.com>
 
+       * nnfolder.el (nnfolder-save-buffer): Bind `copyright-update' to
+       nil to avoid prompting and file modification if one of the
+       messages at the top of the nnfolder file contains a copyright
+       notice.
+       Update copyright notice.
+
        * gnus-uu.el (gnus-uu-save-article): Use `message-make-date'
        instead of `current-time-string' as the latter creates a time
        string that is not RFC 2822 compliant (it lacks the zone).

diff --git a/lisp/nnfolder.el b/lisp/nnfolder.el
index 30c85c0..4b1a81c 100644 (file)
--- a/lisp/nnfolder.el
+++ b/lisp/nnfolder.el
@@ -1,5 +1,5 @@
 ;;; nnfolder.el --- mail folder access for Gnus
-;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004
+;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005
 ;;        Free Software Foundation, Inc.
 
 ;; Author: Simon Josefsson <simon@josefsson.org> (adding MARKS)
@@ -1070,7 +1070,8 @@ This command does not work if you use short group names."
     (gnus-make-directory (file-name-directory (buffer-file-name)))
     (let ((coding-system-for-write
           (or nnfolder-file-coding-system-for-write
-              nnfolder-file-coding-system)))
+              nnfolder-file-coding-system))
+         (copyright-update nil))
       (save-buffer)))
   (unless (or gnus-nov-is-evil nnfolder-nov-is-evil)
     (nnfolder-save-nov)))