(gnus-sieve-guess-rule-for-article): Don't

regexp-quote, Cyrus Sieve is fixed.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f5c851b..eaa51e5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2002-07-27  Simon Josefsson  <jas@extundo.com>
 
+       * gnus-sieve.el (gnus-sieve-guess-rule-for-article): Don't
+       regexp-quote, Cyrus Sieve is fixed.
+
        * sieve-manage.el (sieve-manage-deletescript): New function.
 
        * sieve.el (sieve-manage-mode-map): Fix down-mouse-2 and down-mouse-3.  

diff --git a/lisp/gnus-sieve.el b/lisp/gnus-sieve.el
index 18300ed..2fb82f9 100644 (file)
--- a/lisp/gnus-sieve.el
+++ b/lisp/gnus-sieve.el
@@ -118,7 +118,7 @@ See the documentation for these variables and functions for details."
   "Guess a sieve rule based on RFC822 article in buffer.
 Return nil if no rule could be guessed."
   (when (message-fetch-field "sender")
-    `(sieve address "sender" ,(regexp-quote (message-fetch-field "sender")))))
+    `(sieve address "sender" ,(message-fetch-field "sender"))))
 
 ;;;###autoload
 (defun gnus-sieve-article-add-rule ()