mcgrath@paris.Berkeley.EDU (Roland McGrath) (04/02/89)
These diffs to the last gnus-kill-ring.el I posted make yanking work at the
end of the buffer.
*** gnus-kill-ring.el.~4~ Thu Mar 23 15:27:30 1989
--- gnus-kill-ring.el Sat Apr 1 15:35:38 1989
***************
*** 184,189 ****
--- 184,190 ----
"Put N newsgroups from CONS before GROUP.
Point is left on the line containing the first group yanked.
The mark is set at the beginning of line containing GROUP.
+ If GROUP is nil, the newsgroups are put at the end.
(nthcdr N CONS) is returned."
(let ((buffer-read-only nil)
(newsrc (cons nil gnus-newsrc-assoc))
***************
*** 190,198 ****
(newsrc-buffer (find-file-noselect gnus-startup-file))
(newsgroup-buffer (current-buffer))
assoc)
! ;; Find the elt of gnus-newsrc-assoc whose car matches GROUP.
! (while (and newsrc (not (equal group (car (car newsrc)))))
! (setq newsrc (cdr newsrc)))
(and (null newsrc)
(error "Can't find %s in gnus-newsrc-assoc!" group))
;; Take the yanked groups out of CONS and put
--- 191,200 ----
(newsrc-buffer (find-file-noselect gnus-startup-file))
(newsgroup-buffer (current-buffer))
assoc)
! (and group
! ;; Find the elt of gnus-newsrc-assoc whose car matches GROUP.
! (while (and newsrc (not (equal group (car (car newsrc)))))
! (setq newsrc (cdr newsrc))))
(and (null newsrc)
(error "Can't find %s in gnus-newsrc-assoc!" group))
;; Take the yanked groups out of CONS and put
***************
*** 201,208 ****
(push-mark) ; Set mark after the last one yanked.
(set-buffer newsrc-buffer)
(goto-char (point-min))
! (re-search-forward (concat "^" (regexp-quote group) "[:!]"))
! (beginning-of-line)
(while (> n 0)
(setq n (1- n))
(setq assoc (car cons))
--- 203,213 ----
(push-mark) ; Set mark after the last one yanked.
(set-buffer newsrc-buffer)
(goto-char (point-min))
! (if group
! (progn
! (re-search-forward (concat "^" (regexp-quote group) "[:!]"))
! (beginning-of-line))
! (end-of-buffer))
(while (> n 0)
(setq n (1- n))
(setq assoc (car cons))
--
Roland McGrath
Free Software Foundation, Inc.
roland@wheaties.ai.mit.edu, mit-eddie!wheaties.ai.mit.edu!roland