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.