🚀 go-pugleaf

The function define-mail-alias in emacs version 18.49.20 is
wrong.  It incorrectly assumes that blanks in a mail address are
meant to separate mail addresses.  It adds commas after every
word of a multi-word mail address which creates havoc if
build-mail-aliases is used to create aliases from a .mailrc file
which contains many such addresses.

The problem arises because of addresses in the form

lots of words <real-adress@place.domain>

This form of addressing comes up very frequently when mailing to
institutions (like the military or IBM) which restrict access to
electonic mail to whole departments rather than individuals.

The required fix is to replace define-mail-alias with the
following:


;;; This definition fails to trash addresses in the form 
;;; "Roland H. Pesch <saxony!pesch@sun.com>"  The way it is defined
;;; in /public/gnu/dist/lisp/mailalias.el is completely wrong.
;;; -Michael Berry Wed Sep 14 1988


(defun define-mail-alias (name definition)
  "Define NAME as a mail-alias that translates to DEFINITION."
  (interactive "sDefine mail alias: \nsDefine %s as mail alias for: ")
  ;; Read the defaults first, if we have not done so.
  (if (eq mail-aliases t)
      (progn
	(setq mail-aliases nil)
	(if (file-exists-p "~/.mailrc")
	    (build-mail-aliases))))
  ;removed code wich mistakenly inserted commas -mjab Wed Sep 14 1988
      (setq mail-aliases (cons (cons name definition) mail-aliases)))

I have tested this patch.  With it, aliases like the following
one are properly translated.


alias x3j3   Jeanne Adams -NCAR <jeanne%hao.ucar.edu@relay.cs.net>, Bob Allison -Microsoft <microsoft!bobal@uunet.uu.net>, Michael Berry -Thinking Machines <mjab@Think.COM>, Walter Brainerd -Unicomp <brainerd%unmvax.unm.edu@relay.cs.net>, Carl Burch -HP <
cdb%hpda@hplabs.hp.com>, Gary Campbell - Sun <gcampbell@sun.com>, Tim Dodd -Modcomp <mtune!codas!novavax!modcom!tim@uunet.uu.net>, Miles Ellis -Oxford <ctcmiles%uk.ac.oxford.vax@nss.cs.ucl.ac.uk>, Kevin Harris -DEC <harris%tle.dec@decwrl.dec.com>, Dick He
ndrickson -ETA <rhendric%rah.sunfun.eta.com@relay.cs.net>, Kurt Hirchert -Univ of Il <hirchert@newton.ncsa.uiuc.edu>, Andy Johnson -Prime <andyj%enx.prime.com@relay.cs.net>, Henry Katz -DOD <katz%umbc.bitnet@cunyvm.cuny.edu>, Sharon Lammers -Cray <gatech!
mcdchg!motmpl!hall!floral!sml@rutgers.edu>, Rochelle Lauer -DECUS <lauerc%yalehep.bitnet@cunyvm.cuny.edu>, Bill Leonard -Harris <bill%ssd.harris.com@relay.cs.net>, Neldon Marshall -INEL <egg-id!ise01!nmh@uunet.uu.net>, Jeanne Martin -LLNL <martin@lll-crg.
llnl.gov>, Alex Marusak -LANL <alm@lanl.gov>, Mike Metcalf -CERN <metcalf%cernvm.bitnet@cunyvm.cuny.edu>, Geoff Millard -EPCL <G.Millard%edinburgh.ac.uk@nss.cs.ucl.ac.uk>, Len Moss -SLAC <ljm%slacvm.bitnet@cunyvm.cuny.edu>, Dan Pearl -Masscomp <masscomp!d
anny@uunet.uu.net>, Ivor Philips -Boeing CS <philips@boeing.com>, Rich Ragan -CDC <ragan%cdccentr.bitnet@cunyvm.cuny.edu>, L Schonfelder-U Liverpool <jls%liverpool.ac.uk@nss.cs.ucl.ac.uk>, Paul Sinclair -Telesoft <telesoft!pls@ucsd.edu>, Brian Smith -ANL 
<smith@anl-mcs.arpa>, Presley Smith -Convex <convex!psmith@uunet.uu.net>, Sunnie Sund -SHARE <sunnie%slacvm.bitnet@cunyvm.cuny.edu>, Richard Swift -Alliant <alliant!swift@uunet.uu.net>, Andrew Tait - Amdahl <decwrl!amdahl!adt10@uunet.uu.net>, Brian Thomps
on-Concurrent <petsd!blt@uunet.uu.net>, Jerry Wagener - AMOCO <apctrc!jlw@uunet.uu.net>, Tammy Yan -Data General <mcnc!rti!dg-rtp!tammy@uunet.uu.net>


=============================================
Michael J. A. Berrry

Internet: mjab@think.com
uucp:     {harvard, ihnp4, seismo}!think!mjab
=============================================