- (elmo-spam-spamfilter-decode-buffer buffer)
- (spamf-spam-buffer-p
- (current-buffer)
- (elsp-spamfilter-good-corpus-internal processor)
- (elsp-spamfilter-bad-corpus-internal processor))))
+ (elsp-spamfilter-decode-buffer buffer)
+ (let ((spam (spamf-spam-buffer-p
+ (current-buffer)
+ (elsp-spamfilter-good-corpus-internal processor)
+ (elsp-spamfilter-bad-corpus-internal processor))))
+ (when register
+ (elsp-spamfilter-register-buffer-internal
+ processor (current-buffer) spam))
+ spam)))