* Message.el questions
@ 1996-04-11 19:29 Lance A. Brown
1996-04-11 20:14 ` Per Abrahamsen
0 siblings, 1 reply; 3+ messages in thread
From: Lance A. Brown @ 1996-04-11 19:29 UTC (permalink / raw)
Hi,
I'm in the process of upgrading to sgnus 0.69 and re-writing my gnus
rc file to go with it. I've come across a couple irritations in
message.el.
1. I want to specify my real name instead of having message.el pull
it out of the system.
2. message-make-fqdm looks like:
...
;; We try `user-mail-address' as a backup.
((string-match "@\\([^\\s-]+\\)\\(\\'\\|\\W\\)" user-mail-address)
(match-string 1 user-mail-address))
...
My canonical email address is labrown@dg-rtp.dg.com, resulting in
message-make-fqdm returning 'dg' as my fqdm. :-( do we really need to
not include dashes in the matched portion of the domain name? I've
removed it.
--[Lance]
^ permalink raw reply [flat|nested] 3+ messages in thread
* Re: Message.el questions
1996-04-11 19:29 Message.el questions Lance A. Brown
@ 1996-04-11 20:14 ` Per Abrahamsen
1996-04-12 3:16 ` Lars Magne Ingebrigtsen
0 siblings, 1 reply; 3+ messages in thread
From: Per Abrahamsen @ 1996-04-11 20:14 UTC (permalink / raw)
>>>>> "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)))
^ permalink raw reply [flat|nested] 3+ messages in thread
* Re: Message.el questions
1996-04-11 20:14 ` Per Abrahamsen
@ 1996-04-12 3:16 ` Lars Magne Ingebrigtsen
0 siblings, 0 replies; 3+ messages in thread
From: Lars Magne Ingebrigtsen @ 1996-04-12 3:16 UTC (permalink / raw)
Per Abrahamsen <abraham@dina.kvl.dk> writes:
> 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)))
Yup. I'll be doing something similar in 0.70.
--
"Yes. The journey through the human heart
would have to wait until some other time."
^ permalink raw reply [flat|nested] 3+ messages in thread
end of thread, other threads:[~1996-04-12 3:16 UTC | newest]
Thread overview: 3+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
1996-04-11 19:29 Message.el questions Lance A. Brown
1996-04-11 20:14 ` Per Abrahamsen
1996-04-12 3:16 ` Lars Magne Ingebrigtsen
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).