From d8548da3c081184bb84c45a5168a17f2355042cf Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sun, 30 Mar 2003 02:19:20 +0000 Subject: [PATCH] * 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. --- lisp/ChangeLog | 3 +++ lisp/gnus-fun.el | 2 +- lisp/gnus-start.el | 3 ++- 3 files changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5cf3e7a26..ff90dcace 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2003-03-30 Lars Magne Ingebrigtsen + * 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 04df9daa1..f8afca862 100644 --- 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 fd0bb8fce..cdca5198c 100644 --- 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) -- 2.25.1