Mercurial > emacs

comparison lisp/gnus/message.el @ 112432:27320025ed54

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge chages made in Gnus trunk. mailcap.el (mailcap-mime-extensions): Rename text/org to text/x-org. gnus-draft.el (gnus-group-send-queue): Update the queue group in the group buffer after sending the queue. gnus-draft.el (gnus-group-send-queue): Really refresh the queue group after sending. gnus-agent.el (gnus-agent-send-mail): Ditto. gnus-group.el (gnus-group-refresh-group): New convenience function. message.el (message-bogus-addresses): Remove commented-out value. message.el (message-check-recipients): Display the encoded version of the bogus address if they differ. flow-fill.el (fill-flowed): Make `delete-space' option correspond to "DelSp" parameter in RFC3676. gnus-sum.el (gnus-summary-move-article): Protect against backends (i.e., nnimap) returning nil as the article number.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Sun, 23 Jan 2011 00:34:08 +0000
parents 75fb060ecbc3
children
comparison
equal deleted inserted replaced
112431:7a578da192b9 112432:27320025ed54
4126 (push (cons start (or next end)) regions) 4126 (push (cons start (or next end)) regions)
4127 (setq start next))) 4127 (setq start next)))
4128 (nreverse regions))) 4128 (nreverse regions)))
4129 4129
4130 (defcustom message-bogus-addresses 4130 (defcustom message-bogus-addresses
4131 ;; '("noreply" "nospam" "invalid")
4132 '("noreply" "nospam" "invalid" "@@" "[^[:ascii:]].*@" "[ \t]") 4131 '("noreply" "nospam" "invalid" "@@" "[^[:ascii:]].*@" "[ \t]")
4133 "List of regexps of potentially bogus mail addresses. 4132 "List of regexps of potentially bogus mail addresses.
4134 See `message-check-recipients' how to setup checking. 4133 See `message-check-recipients' how to setup checking.
4135 4134
4136 This list should make it possible to catch typos or warn about 4135 This list should make it possible to catch typos or warn about
4292 (when (stringp addr) 4291 (when (stringp addr)
4293 (dolist (bog (message-bogus-recipient-p addr)) 4292 (dolist (bog (message-bogus-recipient-p addr))
4294 (and bog 4293 (and bog
4295 (not (y-or-n-p 4294 (not (y-or-n-p
4296 (format 4295 (format
4297 "Address `%s' might be bogus. Continue? " bog))) 4296 "Address `%s'%s might be bogus. Continue? "
4297 bog
4298 ;; If the encoded version of the email address
4299 ;; is different from the unencoded version,
4300 ;; then we likely have invisible characters or
4301 ;; the like. Display the encoded version,
4302 ;; too.
4303 (let ((encoded (rfc2047-encode-string bog)))
4304 (if (string= encoded bog)
4305 ""
4306 (format " (%s)" encoded))))))
4298 (error "Bogus address")))))))) 4307 (error "Bogus address"))))))))
4299 4308
4300 (custom-add-option 'message-setup-hook 'message-check-recipients) 4309 (custom-add-option 'message-setup-hook 'message-check-recipients)
4301 4310
4302 (defun message-add-action (action &rest types) 4311 (defun message-add-action (action &rest types)