🚀 go-pugleaf

These diffs fix a few bugs in the last gnus-kill-ring.el I posted.

Send bugs, comments, etc. to roland@wheaties.ai.mit.edu.

*** gnus-kill-ring.el.~1~	Sat Apr  1 15:35:38 1989
--- gnus-kill-ring.el	Sun Apr 30 11:51:34 1989
***************
*** 66,72 ****
  	)
        (delete-region begin (point))
        ))
!   (search-forward ":")
    )
  
  (defun gnus-move-marked-group (after)
--- 66,72 ----
  	)
        (delete-region begin (point))
        ))
!   (search-forward ":" (point-max) t)
    )
  
  (defun gnus-move-marked-group (after)
***************
*** 153,162 ****
    (and gnus-kill-ring-buffer (buffer-name gnus-kill-ring-buffer)
         (if (eq gnus-number-killed (length gnus-kill-ring))
  	   (progn
! 	     (and gnus-kill-ring-one-window
  		  (delete-windows-on gnus-kill-ring-buffer))
  	     (kill-buffer gnus-kill-ring-buffer)
  	     (setq gnus-kill-ring-buffer nil)
  	     )
  	 (save-excursion
  	   (set-buffer gnus-kill-ring-buffer)
--- 153,163 ----
    (and gnus-kill-ring-buffer (buffer-name gnus-kill-ring-buffer)
         (if (eq gnus-number-killed (length gnus-kill-ring))
  	   (progn
! 	     (if gnus-kill-ring-one-window
  		  (delete-windows-on gnus-kill-ring-buffer))
  	     (kill-buffer gnus-kill-ring-buffer)
  	     (setq gnus-kill-ring-buffer nil)
+ 	     (set-buffer "*Newsgroup*")
  	     )
  	 (save-excursion
  	   (set-buffer gnus-kill-ring-buffer)
***************
*** 165,175 ****
  		 (n gnus-number-killed)
  		 begin)
  	     (goto-char (point-min))
! 	     (search-forward (concat (car (car (car cons))) "\n"))
  	     (forward-line -1)
  	     (setq begin (point))
  	     (while (> n 0)
! 	       (forward-line))
  	     (delete-region begin (point))
  	     (goto-char (point))
  	     ))
--- 166,177 ----
  		 (n gnus-number-killed)
  		 begin)
  	     (goto-char (point-min))
! 	     (search-forward (concat (car (car (car gnus-kill-ring))) "\n"))
  	     (forward-line -1)
  	     (setq begin (point))
  	     (while (> n 0)
! 	       (forward-line 1)
! 	       (setq n (1- n)))
  	     (delete-region begin (point))
  	     (goto-char (point))
  	     ))
***************
*** 222,228 ****
        (set-buffer newsrc-buffer)
        )
      (set-buffer newsgroup-buffer)
!     (search-forward ":")
      cons
      ))
  
--- 224,230 ----
        (set-buffer newsrc-buffer)
        )
      (set-buffer newsgroup-buffer)
!     (search-forward ":" (point-max) t)
      cons
      ))
  
--
	Roland McGrath
	Free Software Foundation, Inc.
roland@wheaties.ai.mit.edu, mit-eddie!wheaties.ai.mit.edu!roland
Copyright 1989 Roland McGrath, under the GNU General Public License, version 1.