Index: lisp/gnus-sieve.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gnus-sieve.el,v
retrieving revision 7.6
diff -u -p -r7.6 gnus-sieve.el
--- lisp/gnus-sieve.el	8 Feb 2006 04:17:15 -0000	7.6
+++ lisp/gnus-sieve.el	6 Apr 2006 20:26:01 -0000
@@ -107,7 +107,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)))