(gnus-prin1-to-string): Bind print-length and

print-level.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6e7cbd5..96886f3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
 2003-02-01  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus.el: Use gnus-prin1-to-string throughout.
+
+       * gnus-util.el (gnus-prin1-to-string): Bind print-length and
+       print-level. 
+
        * gnus-art.el (article-display-x-face): Removed grey x-face stuff.
        (gnus-treat-display-grey-xface): Removed.
 

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index d219a9d..c391b0e 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -1022,7 +1022,7 @@ If SILENT, don't prompt the user."
   "Stringified Gnus version and Emacs version."
   (interactive)
   (concat
-   "Gnus/" (prin1-to-string (gnus-continuum-version gnus-version) t)
+   "Gnus/" (gnus-prin1-to-string (gnus-continuum-version gnus-version))
    " (" gnus-version ")"
    " "
    (cond

diff --git a/lisp/gnus-score.el b/lisp/gnus-score.el
index d6a8bd1..b967b84 100644 (file)
--- a/lisp/gnus-score.el
+++ b/lisp/gnus-score.el
@@ -1916,7 +1916,7 @@ score in `gnus-newsgroup-scored' by SCORE."
       ;; with working on them as a group.  What a hassle.
       ;; Just wait 'til you see what horrors we commit against `match'...
       (if (= gnus-score-index 9)
-         (setq this (prin1-to-string this))) ; ick.
+         (setq this (gnus-prin1-to-string this))) ; ick.
 
       (if simplify
          (setq this (gnus-map-function gnus-simplify-subject-functions this)))

diff --git a/lisp/gnus-srvr.el b/lisp/gnus-srvr.el
index 5220f2e..77596ea 100644 (file)
--- a/lisp/gnus-srvr.el
+++ b/lisp/gnus-srvr.el
@@ -359,7 +359,7 @@ The following commands are available:
       (when entry
        (gnus-dribble-enter
         (concat "(gnus-server-set-info \"" server "\" '"
-                (prin1-to-string (cdr entry)) ")\n")))
+                (gnus-prin1-to-string (cdr entry)) ")\n")))
       (when (or entry oentry)
        ;; Buffer may be narrowed.
        (save-restriction
@@ -378,7 +378,7 @@ The following commands are available:
   (when (and server info)
     (gnus-dribble-enter
      (concat "(gnus-server-set-info \"" server "\" '"
-            (prin1-to-string info) ")"))
+            (gnus-prin1-to-string info) ")"))
     (let* ((server (nth 1 info))
           (entry (assoc server gnus-server-alist))
           (cached (assoc server gnus-server-method-cache)))

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index e938a2e..0d3e7b0 100644 (file)
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -2568,7 +2568,7 @@ If FORCE is non-nil, the .newsrc file is read."
 ;; Never delete this file -- if you want to force Gnus to read the
 ;; .newsrc file (if you have one), touch .newsrc instead.\n")
     (insert "(setq gnus-newsrc-file-version "
-           (prin1-to-string gnus-version) ")\n")
+           (gnus-prin1-to-string gnus-version) ")\n")
     (let* ((gnus-killed-list
            (if (and gnus-save-killed-list
                     (stringp gnus-save-killed-list))

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index 20df7f9..a90d784 100644 (file)
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -629,9 +629,13 @@ Bind `print-quoted' and `print-readably' to t while printing."
     (prin1 form (current-buffer))))
 
 (defun gnus-prin1-to-string (form)
-  "The same as `prin1', but bind `print-quoted' and `print-readably' to t."
+  "The same as `prin1'.
+Bind `print-quoted' and `print-readably' to t, and `print-length'
+and `print-level' to nil."
   (let ((print-quoted t)
-       (print-readably t))
+       (print-readably t)
+       (print-length nil)
+       (print-level nil))
     (prin1-to-string form)))
 
 (defun gnus-make-directory (directory)