# HG changeset patch
# User Simon Josefsson <jas@extundo.com>
# Date 1032985288 0
# Node ID a298684644cade75bbb7c471c544a664ba183e10
# Parent  c959ab9efa1feefe7584a8075e170c26e0faef21
(mail-extr-ignore-single-names): Change default.
(mail-extract-address-components): Doc fix.

diff -r c959ab9efa1f -r a298684644ca lisp/mail/mail-extr.el
--- a/lisp/mail/mail-extr.el	Wed Sep 25 20:17:32 2002 +0000
+++ b/lisp/mail/mail-extr.el	Wed Sep 25 20:21:28 2002 +0000
@@ -226,7 +226,7 @@
   :type 'boolean
   :group 'mail-extr)
 
-(defcustom mail-extr-ignore-single-names t
+(defcustom mail-extr-ignore-single-names nil
   "*Whether to ignore a name that is just a single word.
 If true, then when we see an address like \"Idiot <dumb@stupid.com>\"
 we will act as though we couldn't find a full name in the address."
@@ -710,7 +710,8 @@
 (defun mail-extract-address-components (address &optional all)
   "Given an RFC-822 address ADDRESS, extract full name and canonical address.
 Returns a list of the form (FULL-NAME CANONICAL-ADDRESS).
-If no name can be extracted, FULL-NAME will be nil.
+If no name can be extracted, FULL-NAME will be nil.  Also see
+`mail-extr-ignore-single-names'.
 
 If the optional argument ALL is non-nil, then ADDRESS can contain zero
 or more recipients, separated by commas, and we return a list of
@@ -719,9 +720,9 @@
 one recipients, all but the first is ignored.
 
 ADDRESS may be a string or a buffer.  If it is a buffer, the visible
- (narrowed) portion of the buffer will be interpreted as the address.
- (This feature exists so that the clever caller might be able to avoid
- consing a string.)"
+\(narrowed) portion of the buffer will be interpreted as the address.
+\(This feature exists so that the clever caller might be able to avoid
+consing a string.)"
   (let ((canonicalization-buffer (get-buffer-create " *canonical address*"))
 	(extraction-buffer (get-buffer-create " *extract address components*"))
 	value-list)