mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-05 07:01:11 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
end of the buffer.
(gnus-adjust-marked-articles): Don't remove illegal ticked
articles (for forwards compatability).
This commit is contained in:
Richard M. Stallman 1996-02-04 17:57:48 +00:00
parent 824832011f
commit fc103e781d
1 changed files with 10 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lisp/gnus.el
View file

@ -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))