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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a3efab7..b5c5d02 100644 (file)
--- 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 d5c9017..ef2b661 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -1048,7 +1048,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))
+  (let ((file-name-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 53815df..ffa1b45 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3816,8 +3816,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 (file)
--- 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 8d95721..7fe58cb 100644 (file)
--- a/lisp/nnslashdot.el
+++ b/lisp/nnslashdot.el
@@ -541,7 +541,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."