View file File name : spam-wash.elc Content :;ELC ;;; Compiled ;;; in Emacs version 27.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'gnus-art) #@50 Treat the current buffer prior to spam analysis. (defalias 'spam-wash #[nil "\306\307!\210\212\214\310\311p\312\310 \"\206 \f\205 \313 \310 \203* \314!\210\310 \205F @;\203< A\205F \315 \210`d|\210\316 !.\207" [buffer-read-only gnus-inhibit-treatment gnus-article-buffer gnus-article-loose-mime gnus-article-emulate-mime handles run-hooks gnus-article-decode-hook nil t mm-dissect-buffer mm-uu-dissect mm-destroy-parts article-goto-body spam-treat-parts handle gnus-article-mime-handles gnus-article-mime-handle-alist] 3 (#$ . 428) nil]) (defalias 'spam-treat-parts #[(handle) "@;\203\f \302\303A\"\207\304@!\203- \214``}\210\305\306\307A@@\")\203) \310!\210db)\207\302\303\"\207" [handle case-fold-search mapcar spam-treat-parts bufferp t string-match "text" mm-insert-part] 3]) (provide 'spam-wash)