From: yamaoka <yamaoka>
Date: Mon, 25 Jun 2001 22:09:06 +0000 (+0000)
Subject: Synch with Oort Gnus.
X-Git-Tag: t-gnus-6_15_4-02-quimby-last-~7
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c696a99ae427f386402b49fd2952fa909af22cb2;p=elisp%2Fgnus.git-

Synch with Oort Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1accf40..8b5f481 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,16 @@
+2001-06-25 10:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+	* nnslashdot.el (nnslashdot-write-groups): Use gnus-prin1.
+
+	* nnrss.el (nnrss-save-server-data): Bind print-level and print-length.
+	(nnrss-save-group-data): Ditto.
+	
+	* gnus-agent.el (gnus-agent-save-alist): Ditto.
+
+2001-06-25  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* message.el (message-do-send-housekeeping): Narrow to headers.
+
 2001-06-24  Simon Josefsson  <jas@extundo.com>
 
 	* rfc2047.el (rfc2047-fold-region): The check to skip WSP
diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index e9d3f53..1d09cf0 100644
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -1069,7 +1069,8 @@ the actual number of articles toggled is returned."
 (defun gnus-agent-save-alist (group &optional articles state dir)
   "Save the article-state alist for GROUP."
   (let ((file-name-coding-system nnmail-pathname-coding-system)
-	(pathname-coding-system nnmail-pathname-coding-system))
+	(pathname-coding-system nnmail-pathname-coding-system)
+	print-level print-length)
     (with-temp-file (if dir
 			(expand-file-name ".agentview" dir)
 		      (gnus-agent-article-name ".agentview" group))
diff --git a/lisp/message.el b/lisp/message.el
index 9e0133c..9d2aa99 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -4631,8 +4631,10 @@ than 988 characters long, and if they are not, trim them until they are."
 		     (string-equal name "mail")
 		     (string-equal name "news")))
 	    (setq name (concat "*sent " name "*"))
+	  (message-narrow-to-headers)
 	  (setq to (message-fetch-field "to"))
 	  (setq group (message-fetch-field "newsgroups"))
+	  (widen)
 	  (setq name
 		(cond
 		 (to (concat "*sent mail to "
diff --git a/lisp/nnrss.el b/lisp/nnrss.el
index 6079d34..ce41298 100644
--- a/lisp/nnrss.el
+++ b/lisp/nnrss.el
@@ -368,7 +368,8 @@ To use the description in headers, put this name into `nnmail-extra-headers'.")
 				     "-")
 			server ".el"))
 	       nnrss-directory)))
-    (let ((coding-system-for-write 'binary))
+    (let ((coding-system-for-write 'binary)
+          print-level print-length)
       (with-temp-file file
 	(insert "(setq nnrss-server-data '"
 		(prin1-to-string nnrss-server-data)
@@ -410,7 +411,8 @@ To use the description in headers, put this name into `nnmail-extra-headers'.")
 				   "-")
 			server ".el"))
 	       nnrss-directory)))
-    (let ((coding-system-for-write 'binary))
+    (let ((coding-system-for-write 'binary)
+          print-level print-length)
       (with-temp-file file
 	(insert "(setq nnrss-group-data '"
 		(prin1-to-string nnrss-group-data)
diff --git a/lisp/nnslashdot.el b/lisp/nnslashdot.el
index b122cd7..1fed7fe 100644
--- a/lisp/nnslashdot.el
+++ b/lisp/nnslashdot.el
@@ -542,7 +542,7 @@
 
 (defun nnslashdot-write-groups ()
   (with-temp-file (expand-file-name "groups" nnslashdot-directory)
-    (prin1 nnslashdot-groups (current-buffer))))
+    (gnus-prin1 nnslashdot-groups)))
 
 (defun nnslashdot-init (server)
   "Initialize buffers and such."