Synch to No Gnus 200507171410.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a7fa3e4..3c6ad2c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,21 @@
+2005-07-17  Romain Francoise  <romain@orebokech.com>
+
+       * mml2015.el (mml2015-clean-buffer): Prefix buffer name with a
+       space as it's generally not especially interesting to the user.
+
+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).
+       Update copyright notice.
+
 2005-07-15  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gnus-art.el (gnus-article-next-page): Use gnus-end-of-window.

diff --git a/lisp/gnus-uu.el b/lisp/gnus-uu.el
index 3f864a5..2850c97 100644 (file)
--- a/lisp/gnus-uu.el
+++ b/lisp/gnus-uu.el
@@ -1,6 +1,6 @@
 ;;; gnus-uu.el --- extract (uu)encoded files in Gnus
 ;; Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1996, 1997, 1998, 2000,
-;;        2001, 2002, 2003, 2004 Free Software Foundation, Inc.
+;;        2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
 ;; Created: 2 Oct 1993
@@ -844,7 +844,7 @@ When called interactively, prompt for REGEXP."
              (erase-buffer)
              (insert (format
                       "Date: %s\nFrom: %s\nSubject: %s Digest\n\n"
-                      (current-time-string) name name))
+                      (message-make-date) name name))
              (insert "Topics:\n")))
        (when (not (eq in-state 'end))
          (setq state (list 'middle))))

diff --git a/lisp/mml2015.el b/lisp/mml2015.el
index 4c6f2b6..87dea72 100644 (file)
--- a/lisp/mml2015.el
+++ b/lisp/mml2015.el
@@ -867,7 +867,7 @@ Valid packages include `pgg', `gpg' and `mailcrypt'.")
        (erase-buffer)
        t)
     (setq mml2015-result-buffer
-         (gnus-get-buffer-create "*MML2015 Result*"))
+         (gnus-get-buffer-create " *MML2015 Result*"))
     nil))
 
 (defsubst mml2015-clear-decrypt-function ()

diff --git a/lisp/nnfolder.el b/lisp/nnfolder.el
index d9c6c29..26ba911 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)
@@ -1071,7 +1071,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)))