+(defun spam-enter-blacklist (address)
+ "Enter ADDRESS into the blacklist."
+ (interactive "sAddress: ")
+ (spam-enter-whitelist address t))
+
+(eval-and-compile
+ (defalias 'spam-point-at-eol (if (fboundp 'point-at-eol)
+ 'point-at-eol
+ 'line-end-position)))
+