diff options
Diffstat (limited to 'lisp/gnus/spam-wash.el')
-rw-r--r-- | lisp/gnus/spam-wash.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/gnus/spam-wash.el b/lisp/gnus/spam-wash.el index 1d00a39060d..bb2a1b97ada 100644 --- a/lisp/gnus/spam-wash.el +++ b/lisp/gnus/spam-wash.el @@ -1,4 +1,4 @@ -;;; spam-wash.el --- wash spam before analysis +;;; spam-wash.el --- wash spam before analysis -*- lexical-binding: t; -*- ;; Copyright (C) 2004, 2007-2021 Free Software Foundation, Inc. @@ -43,7 +43,7 @@ (handles (or (mm-dissect-buffer nil gnus-article-loose-mime) (and gnus-article-emulate-mime (mm-uu-dissect)))) - handle) + ) ;; handle (when gnus-article-mime-handles (mm-destroy-parts gnus-article-mime-handles) (setq gnus-article-mime-handle-alist nil)) @@ -57,7 +57,7 @@ (defun spam-treat-parts (handle) (if (stringp (car handle)) - (mapcar 'spam-treat-parts (cdr handle)) + (mapcar #'spam-treat-parts (cdr handle)) (if (bufferp (car handle)) (save-restriction (narrow-to-region (point) (point)) @@ -65,7 +65,7 @@ (string-match "text" (car (mm-handle-type handle)))) (mm-insert-part handle)) (goto-char (point-max))) - (mapcar 'spam-treat-parts handle)))) + (mapcar #'spam-treat-parts handle)))) (provide 'spam-wash) |