* gnus-start.el (gnus-gnus-to-quick-newsrc-format): Bind

print-length to nil.

* gnus-fun.el (gnus-fun-ppm-change-string): New function.
(gnus-grab-cam-face): Use it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5cf3e7a..ff90dca 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2003-03-30  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-start.el (gnus-gnus-to-quick-newsrc-format): Bind
+       print-length to nil.
+
        * gnus-sum.el (gnus-summary-highlight-line-0): Indent.
 
        * gnus-fun.el (gnus-fun-ppm-change-string): New function.

diff --git a/lisp/gnus-fun.el b/lisp/gnus-fun.el
index 04df9da..f8afca8 100644 (file)
--- a/lisp/gnus-fun.el
+++ b/lisp/gnus-fun.el
@@ -219,7 +219,7 @@ colors of the displayed X-Faces."
       (sleep-for 1))
     (setq file (car file))
     (shell-command
-     (format "pnmcut -left 110 -top 30 -width 144 -height 144 '%s' | ppmnorm 2>/dev/null | ppmnorm | ppmtopgm | pnmscale -width 48 -height 48 > /tmp/gnus.face.ppm"
+     (format "pnmcut -left 110 -top 30 -width 144 -height 144 '%s' | ppmnorm 2>/dev/null | pnmscale -width 48 -height 48 | ppmtopgm > /tmp/gnus.face.ppm"
             file))
     (let ((gnus-convert-image-to-face-command
           (format "cat '%%s' | ppmchange %s | ppmquant %%d | pnmtopng"

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index fd0bb8f..cdca519 100644 (file)
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -2653,7 +2653,8 @@ If FORCE is non-nil, the .newsrc file is read."
     (princ "(setq gnus-newsrc-file-version ")
     (princ (gnus-prin1-to-string gnus-version))
     (princ ")\n")
-    (let* ((gnus-killed-list
+    (let* ((print-length nil)
+          (gnus-killed-list
            (if (and gnus-save-killed-list
                     (stringp gnus-save-killed-list))
                (gnus-strip-killed-list)