From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/5898
Path: main.gmane.org!not-for-mail
From: Per Abrahamsen <abraham@dina.kvl.dk>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: Message.el questions
Date: 11 Apr 1996 22:14:24 +0200
Sender: abraham@dina.kvl.dk
Message-ID: <rjpw9ev7q7.fsf@babbage.dina.kvl.dk>
References: <15693.829250953@dg-rtp.dg.com>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: text/plain; charset=US-ASCII
Content-Transfer-Encoding: 7bit
X-Trace: main.gmane.org 1035146435 1730 80.91.224.250 (20 Oct 2002 20:40:35 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sun, 20 Oct 2002 20:40:35 +0000 (UTC)
Return-Path: ding-request@ifi.uio.no
Original-Received: from ifi.uio.no (ifi.uio.no [129.240.64.2]) by deanna.miranova.com (8.7.5/8.6.9) with SMTP id NAA24170 for <steve@miranova.com>; Thu, 11 Apr 1996 13:51:05 -0700
Original-Received: from elc1.dina.kvl.dk (elc1.dina.kvl.dk [130.225.40.228]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) 
	id <WAA11159@ifi.uio.no> for <ding@ifi.uio.no> ; Thu, 11 Apr 1996 22:19:51 +0200
Original-Received: from babbage.dina.kvl.dk (babbage.dina.kvl.dk [130.225.40.217]) by elc1.dina.kvl.dk (8.6.12/8.6.4) with ESMTP id WAA08703; Thu, 11 Apr 1996 22:12:55 +0200
Original-Received: (abraham@localhost) by babbage.dina.kvl.dk (8.6.12/8.6.4) id WAA03359; Thu, 11 Apr 1996 22:14:24 +0200
Original-To: ding@ifi.uio.no
X-Face: +kRV2]2q}lixHkE{U)mY#+6]{AH=yN~S9@IFiOa@X6?GM<U{B+4e{k79.Ya{~':DblFPCg$
 @60,BfLv2@SKZ19cMWK0/C'v;tM:|6B'R}U1rp6CL&kN({9<zF/V{:JCg27yC)9oZjeqcQawzKfiNL
 t9}`vjmK["dRQC/qGFQq"%u|Q`:6{"Rz}b(dnl_"3$Jtqimi>|8MBp/
In-Reply-To: labrown@dg-rtp.dg.com's message of Thu, 11 Apr 1996 15:29:13 -0400
Original-Lines: 26
X-Mailer: September Gnus v0.69/Emacs 19.30
Xref: main.gmane.org gmane.emacs.gnus.general:5898
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:5898

>>>>> "LAB" == Lance A Brown <labrown@dg-rtp.dg.com> writes:

LAB> 1.  I want to specify my real name instead of having message.el pull
LAB>     it out of the system.

(setq user-full-name "God Emperor Lance")

LAB> 2.  message-make-fqdm looks like:

LAB>     ...
LAB>      ;; We try `user-mail-address' as a backup.
LAB>      ((string-match "@\\([^\\s-]+\\)\\(\\'\\|\\W\\)" user-mail-address)
LAB>       (match-string 1 user-mail-address))
LAB>     ...

LAB> My canonical email address is labrown@dg-rtp.dg.com, resulting in
LAB> message-make-fqdm returning 'dg' as my fqdm. :-(  do we really need to
LAB> not include dashes in the matched portion of the domain name?  I've
LAB> removed it.

This replacement code should be more reliable:

(let ((real (nth 1 (mail-extract-address-components user-mail-address))))
  (and (string-match "@\\(.*\\)\\'" real)
       (match-string 1 real)))