From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Sat, 31 Mar 2001 00:46:09 +0000 (+0000)
Subject: * gnus-sum.el: Let printing work on ttys on Emacs.
X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=75236e28fb67879939ed725296983c90a87f8087;p=gnus

* 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 d085bc40b..7001d0eba 100644
--- 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 488167657..a49c515d2 100644
--- 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 f31aa9467..04b267d07 100644
--- 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)