* gnus-sieve.el (gnus-sieve-generate): Delete from the start of
the sieve region.
+2006-04-11 Arne J\e,Ax\e(Brgensen <arne@arnested.dk> (tiny patch)
+
+ * gnus-sieve.el (gnus-sieve-generate): Delete from the start of
+ the sieve region.
+
2006-04-11 Lars Magne Ingebrigtsen <larsi@gnus.org>
* gnus.el (gnus-version-number): Bump version.
2006-04-11 Lars Magne Ingebrigtsen <larsi@gnus.org>
* gnus.el (gnus-version-number): Bump version.
(find-file gnus-sieve-file)
(goto-char (point-min))
(if (re-search-forward (regexp-quote gnus-sieve-region-start) nil t)
(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)))
(or (re-search-forward (regexp-quote
gnus-sieve-region-end) nil t)
(point)))