From: yamaoka <yamaoka>
Date: Sun, 17 Jul 2005 23:17:41 +0000 (+0000)
Subject: Synch to No Gnus 200507171410.
X-Git-Tag: t-gnus-6_17_4-quimby-~458
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e6c5b208e3214cf002750247a43e72316c351859;p=elisp%2Fgnus.git-

Synch to No Gnus 200507171410.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a7fa3e4..3c6ad2c 100644
--- 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
--- 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
--- 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
--- 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)))