(gnus-request-accept-article): Make sure there's a newline at the

end of the buffer.
(gnus-adjust-marked-articles): Don't remove illegal ticked
articles (for forwards compatability).

1 files changed, 10 insertions, 7 deletions

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 7b89b24994f..a2c2f445ff0 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -1,6 +1,6 @@
 ;;; gnus.el --- a newsreader for GNU Emacs
 
-;; Copyright (C) 1987,88,89,90,93,94,95 Free Software Foundation, Inc.
+;; Copyright (C) 1987,88,89,90,93,94,95,96 Free Software Foundation, Inc.
 
 ;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
 ;;	Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
@@ -6877,12 +6877,13 @@ If READ-ALL is non-nil, all articles in the group are selected."
       (cond ((or (eq 'tick (car prev)) (eq 'dormant (car prev)))
 	     ;; Make sure that all ticked articles are a subset of the
 	     ;; unread/unselected articles.
-	     (while m
-	       (if (or (memq (car m) gnus-newsgroup-unreads)
-		       (memq (car m) gnus-newsgroup-unselected))
-		   (setq prev m)
-		 (setcdr prev (cdr m)))
-	       (setq m (cdr m))))
+	     ;;(while m
+	     ;;  (if (or (memq (car m) gnus-newsgroup-unreads)
+	     ;;  (memq (car m) gnus-newsgroup-unselected))
+	     ;; (setq prev m)
+	     ;; (setcdr prev (cdr m)))
+	     ;; (setq m (cdr m)))
+	     )
 	    ((eq 'score (car prev))
 	     ;; Scored articles should be a subset of
 	     ;; unread/unselected articles. 
@@ -11954,6 +11955,8 @@ is returned insted of the status string."
 	     (nth 1 method) accept-function last)))
 
 (defun gnus-request-accept-article (group &optional last)
+  (goto-char (point-max))
+  (or (bolp) (insert "\n"))
   (let ((func (if (symbolp group) group
 		(car (gnus-find-method-for-group group)))))
     (funcall (intern (format "%s-request-accept-article" func))