Re: keybinding mystery

[Reiner Steib]

On Fri, Oct 05 2007, Michaël Cadilhac wrote:

> please, if you use a spam mail address, 

Which should be something like "@invalid.invalid" instead of
"@for.email".

> use a proper mail header to ask people not to include this address
> when replying (e.g., setting the Mail-Followup-To header).

Here's some code to warn when composing/sending mail to bogus
addresses.  I don't use it myself, but if it works, we could include
it in Gnus (message.el). 

--8<---------------cut here---------------start------------->8---
(defvar rs-message-spamtrap-regexp "noreply\\|nospam\\|invalid")
(defun rs-message-check-spamtrap ()
  "Warn before composing or sending a mail to an invalid address."
  (let ((to (save-restriction
              (message-narrow-to-headers)
              (message-fetch-field "To"))))
    (when (and (stringp to)
               (setq to (cadr (gnus-extract-address-components to)))
               (or (not
                    (string-match
                     (concat "\\(" message-valid-fqdn-regexp "\\)\\'") to))
                   (string-match rs-message-spamtrap-regexp to)))
      (unless (y-or-n-p
               (format "Warning: Address `%s' might be bogus.  Continue? " to))
        (error "Bogus address.")))))

;; Check before composing:
(add-hook 'message-setup-hook 'rs-message-check-spamtrap)
;; Check before sending:
(add-hook 'message-send-mail-hook 'rs-message-check-spamtrap)
--8<---------------cut here---------------end--------------->8---

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/