Mercurial > emacs
changeset 14485:ea5f35baa429
(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).
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 04 Feb 1996 17:57:48 +0000 |
| parents | 6903f7c54083 |
| children | 3c4ba112108e |
| files | lisp/gnus.el |
| diffstat | 1 files changed, 10 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus.el Sun Feb 04 17:53:09 1996 +0000 +++ b/lisp/gnus.el Sun Feb 04 17:57:48 1996 +0000 @@ -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 @@ (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 @@ (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))