Index: lisp/gnus-sieve.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gnus-sieve.el,v
retrieving revision 7.2
diff -u -p -r7.2 gnus-sieve.el
--- lisp/gnus-sieve.el	20 May 2004 08:02:39 -0000	7.2
+++ lisp/gnus-sieve.el	26 Apr 2005 11:55:09 -0000
@@ -106,7 +106,7 @@ See the documentation for these variable
   (find-file gnus-sieve-file)
   (goto-char (point-min))
   (if (re-search-forward (regexp-quote gnus-sieve-region-start) nil t)
-      (delete-region (match-end 0)
+      (delete-region (match-beginning 0)
 		     (or (re-search-forward (regexp-quote
 					     gnus-sieve-region-end) nil t)
 			 (point)))