Commit bbddee06 authored by David Byers's avatar David Byers
Browse files

Fixed bug 1054

Detailed changes:
> 2003-06-04  David Byers  <byers@lysator.liu.se>
>
> 	Fix bug 1054:
> 	* filter.el (lyskom-create-filter-function-body): Handle a null
> 	author.
> 	(lyskom-filter-text-p-3): Allow a null author.
>
parent 6c122f87
2003-06-04 David Byers <byers@lysator.liu.se>
Fix bug 1054:
* filter.el (lyskom-create-filter-function-body): Handle a null
author.
(lyskom-filter-text-p-3): Allow a null author.
2003-06-01 David Byers <byers@lysator.liu.se>
Fix bug 587:
......
......@@ -178,8 +178,7 @@ invalid-value until a filter action has been selected.")
(lyskom-use 'filter 'lyskom-filter-text-p-3 text-stat))))
(defun lyskom-filter-text-p-3 (author text &rest data)
(if (or (null text)
(null author))
(if (null text)
(setq lyskom-filter-hack nil)
(let (subject text-stat)
......@@ -302,17 +301,17 @@ invalid-value until a filter action has been selected.")
(cond
((eq key 'author)
(lyskom-filter-check-args 'stringp args)
(` (string-match (, (regexp-quote args))
(conf-stat->name author))))
(` (and author (string-match (, (regexp-quote args))
(conf-stat->name author)))))
((eq key 'author-re)
(lyskom-filter-check-args 'regexpp args)
(` (string-match (, args)
(conf-stat->name author))))
(` (and author (string-match (, args)
(conf-stat->name author)))))
((eq key 'author-no)
(lyskom-filter-check-args 'integerp args)
(` (= (, args) (conf-stat->conf-no author))))
(` (and author (= (, args) (conf-stat->conf-no author)))))
((eq key 'recipient)
(lyskom-filter-check-args 'stringp args)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment