From: Richard M. Stallman Date: Sun, 4 Feb 1996 17:57:48 +0000 (+0000) Subject: (gnus-request-accept-article): Make sure there's a newline at the X-Git-Tag: emacs-19.34~1375 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fc103e781d906503dbdc45ec2b62bad507a067ac;p=emacs.git (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). --- 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 ;; Lars Magne Ingebrigtsen @@ -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))