mcgrath@paris.Berkeley.EDU (Roland McGrath) (05/01/89)
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.