Function: article--check-suspicious-addresses

article--check-suspicious-addresses is a byte-compiled function defined in gnus-art.el.gz.

Signature

(article--check-suspicious-addresses ADDRESSES)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-art.el.gz
(defun article--check-suspicious-addresses (addresses)
  (setq addresses (replace-regexp-in-string "\\`[^:]+:[ \t\n]*" "" addresses))
  (dolist (header (mail-header-parse-addresses addresses t))
    (when-let* ((address (car (ignore-errors
                                (mail-header-parse-address header))))
                (warning (and (string-match "@" address)
                              (textsec-suspicious-p address 'email-address))))
      (goto-char (point-min))
      (while (search-forward address nil t)
        (put-text-property (match-beginning 0) (match-end 0)
                           'textsec-suspicious warning)))))