* gnus-sum.el (gnus-summary-catchup-and-exit): Doc fix.

(gnus-get-newsgroup-headers): Return -1 for articles without Lines
or Chars.
(gnus-summary-line-format-alist): ?l is now a string.
(gnus-summary-prepare-threads): Output ? for unknown lines.
(gnus-summary-insert-line): Ditto.
(gnus-summary-print-article): Unbalanced parentheses.

* gnus-msg.el (gnus-inews-do-gcc): Check group to allow it to find
out whether new stuff has arrived.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7001d0e..a2b6645 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,16 @@
+2001-03-31 02:56:55  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-sum.el (gnus-summary-catchup-and-exit): Doc fix. 
+       (gnus-get-newsgroup-headers): Return -1 for articles without Lines
+       or Chars. 
+       (gnus-summary-line-format-alist): ?l is now a string.
+       (gnus-summary-prepare-threads): Output ? for unknown lines.
+       (gnus-summary-insert-line): Ditto.
+       (gnus-summary-print-article): Unbalanced parentheses.
+
+       * gnus-msg.el (gnus-inews-do-gcc): Check group to allow it to find
+       out whether new stuff has arrived.
+
 2001-03-31 02:14:38  Alan Shutko  <ats@acm.org>
 
        * gnus-sum.el: Let printing work on ttys on Emacs.

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index a49c515..238609c 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -1153,7 +1153,7 @@ this is a reply."
            (while (setq group (pop groups))
              (gnus-check-server
               (setq method (gnus-inews-group-method group)))
-             (unless (gnus-request-group group t method)
+             (unless (gnus-request-group group nil method)
                (gnus-request-create-group group method))
              (save-excursion
                (nnheader-set-temp-buffer " *acc*")

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 04b267d..fa31f57 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -1012,7 +1012,7 @@ when prompting the user for which type of files to save."
     (?M ,(macroexpand '(mail-header-id gnus-tmp-header)) ?s)
     (?r ,(macroexpand '(mail-header-references gnus-tmp-header)) ?s)
     (?c (or (mail-header-chars gnus-tmp-header) 0) ?d)
-    (?L gnus-tmp-lines ?d)
+    (?L gnus-tmp-lines ?s)
     (?I gnus-tmp-indentation ?s)
     (?T (if (= gnus-tmp-level 0) "" (make-string (frame-width) ? )) ?s)
     (?R gnus-tmp-replied ?c)
@@ -2889,7 +2889,9 @@ buffer that was in action when the last article was fetched."
     (when (string= gnus-tmp-name "")
       (setq gnus-tmp-name gnus-tmp-from))
     (unless (numberp gnus-tmp-lines)
-      (setq gnus-tmp-lines 0))
+      (setq gnus-tmp-lines -1))
+    (when (= gnus-tmp-lines -1)
+      (setq gnus-tmp-lines "?"))
     (gnus-put-text-property
      (point)
      (progn (eval gnus-summary-line-format-spec) (point))
@@ -4257,7 +4259,9 @@ or a straight list of headers."
            (when (string= gnus-tmp-name "")
              (setq gnus-tmp-name gnus-tmp-from))
            (unless (numberp gnus-tmp-lines)
-             (setq gnus-tmp-lines 0))
+             (setq gnus-tmp-lines -1))
+           (when (= gnus-tmp-lines -1)
+             (setq gnus-tmp-lines "?"))
            (gnus-put-text-property
             (point)
             (progn (eval gnus-summary-line-format-spec) (point))
@@ -5028,15 +5032,15 @@ The resulting hash table is returned, or nil if no Xrefs were found."
              (goto-char p)
              (if (search-forward "\nchars: " nil t)
                  (if (numberp (setq chars (ignore-errors (read cur))))
-                     chars 0)
-               0))
+                     chars -1)
+               -1))
            ;; Lines.
            (progn
              (goto-char p)
              (if (search-forward "\nlines: " nil t)
                  (if (numberp (setq lines (ignore-errors (read cur))))
-                     lines 0)
-               0))
+                     lines -1)
+               -1))
            ;; Xref.
            (progn
              (goto-char p)
@@ -7505,7 +7509,7 @@ to save in."
                (save-excursion
                  (if window-system
                      (ps-spool-buffer-with-faces)
-                   (ps-spool-buffer))))
+                   (ps-spool-buffer)))))
          (kill-buffer buffer))))
     (gnus-summary-remove-process-mark article))
   (ps-despool filename))
@@ -8987,7 +8991,8 @@ If ALL is non-nil, also mark ticked and dormant articles as read."
 
 (defun gnus-summary-catchup-and-exit (&optional all quietly)
   "Mark all unread articles in this group as read, then exit.
-If prefix argument ALL is non-nil, all articles are marked as read."
+If prefix argument ALL is non-nil, all articles are marked as read.
+If QUIETLY is non-nil, no questions will be asked."
   (interactive "P")
   (when (gnus-summary-catchup all quietly nil 'fast)
     ;; Select next newsgroup or exit.