Function: rsf-add-sender-to-spam-list

rsf-add-sender-to-spam-list is an interactive and byte-compiled function defined in rmail-spam-filter.el.gz.

Signature

(rsf-add-sender-to-spam-list)

Documentation

Add the "From" address to the spam list.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/mail/rmail-spam-filter.el.gz
(defun rsf-add-sender-to-spam-list ()
  "Add the \"From\" address to the spam list."
  (interactive)
  (let ((message-sender (regexp-quote (rmail-get-header "From"))))
    (add-to-list 'rsf-definitions-alist
		 (list `(from . ,message-sender)
		       '(to . "")
		       '(subject . "")
		       '(content-type . "")
		       '(contents . "")
		       '(action . output-and-delete))
		 t)
    (customize-mark-to-save 'rsf-definitions-alist)
    (if rsf-autosave-newly-added-definitions
	(progn
	  (custom-save-all)
          (message "Added sender `%s' to spam list, and saved it"
                   message-sender))
      (message "Added sender `%s' to spam list (remember to save it)"
               message-sender))))