Current File : //proc/thread-self/root/kunden/usr/share/emacs/27.2/lisp/gnus/spam-wash.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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)