;; print out a message on number of spam messages found:
(if (and rmail-use-spam-filter (> rsf-number-of-spam 0))
(if (= 1 new-messages)
- (format ", and found to be a spam message")
+ ", and found to be a spam message"
(if (> rsf-number-of-spam 1)
(format ", %d of which found to be spam messages"
rsf-number-of-spam)
- (format ", one of which found to be a spam message")))
+ ", one of which found to be a spam message"))
""))
(if (and rmail-use-spam-filter (> rsf-number-of-spam 0))
(progn (if rmail-spam-filter-beep (beep t))