"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 ()
(let* ((newsrc (cdr gnus-newsrc-alist))
script)
(dolist (info newsrc)
- (when (or (not method)
+ (when (or (not method)
(gnus-server-equal method (gnus-info-method info)))
(let* ((group (gnus-info-group info))
(spec (gnus-group-find-parameter group 'sieve t)))