* gnus-sum.el: Let printing work on ttys on Emacs.

* gnus-msg.el (gnus-post-news): Add an empty Newsgroups header
when forcing news.

* gnus-sum.el (gnus-summary-mark-article-as-replied): Make into a
command.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d085bc4..7001d0e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,15 @@
+2001-03-31 02:14:38  Alan Shutko  <ats@acm.org>
+
+       * gnus-sum.el: Let printing work on ttys on Emacs.
+
+2001-03-31 01:11:14  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-msg.el (gnus-post-news): Add an empty Newsgroups header
+       when forcing news.
+
+       * gnus-sum.el (gnus-summary-mark-article-as-replied): Make into a
+       command. 
+
 2001-03-31 01:04:54  Francis Litterio  <franl-removethis@world.omitthis.std.com>
 
        * message.el (message-set-auto-save-file-name): Don't use

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 4881676..a49c515 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -572,7 +572,7 @@ header line with the old Message-ID."
                (message-news (or to-group group))
              (set-buffer gnus-article-copy)
              (gnus-msg-treat-broken-reply-to)
-             (message-followup (if (or newsgroup-p force-news) nil to-group)))
+             (message-followup (if (or newsgroup-p force-news) "" to-group)))
          ;; The is mail.
          (if post
              (progn

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index f31aa94..04b267d 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -7503,7 +7503,9 @@ to save in."
                              (mail-header-date gnus-current-headers) ")"))))
                (gnus-run-hooks 'gnus-ps-print-hook)
                (save-excursion
-                 (ps-spool-buffer-with-faces))))
+                 (if window-system
+                     (ps-spool-buffer-with-faces)
+                   (ps-spool-buffer))))
          (kill-buffer buffer))))
     (gnus-summary-remove-process-mark article))
   (ps-despool filename))
@@ -8438,6 +8440,7 @@ the actual number of articles marked is returned."
 (defun gnus-summary-mark-article-as-replied (article)
   "Mark ARTICLE as replied to and update the summary line.
 ARTICLE can also be a list of articles."
+  (interactive (list (gnus-summary-article-number)))
   (let ((articles (if (listp article) article (list article))))
     (dolist (article articles)
       (push article gnus-newsgroup-replied)