From ccd12168cda02ac588d3b3ef49cee188b2882085 Mon Sep 17 00:00:00 2001 From: Romain Francoise Date: Sat, 16 Jul 2005 10:47:15 +0000 Subject: [PATCH] (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. --- lisp/ChangeLog | 6 ++++++ lisp/nnfolder.el | 5 +++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0b6c749d1..92d43877a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,11 @@ 2005-07-16 Romain Francoise + * 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 30c85c02a..4b1a81ce3 100644 --- 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 (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))) -- 2.25.1