From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: michael.cadilhac@lrde.org (=?iso-8859-1?Q?Micha=EBl?= Cadilhac) Newsgroups: gmane.emacs.devel Subject: [Proposal] Retrieve MAILADDRESS as user-mail-address default value. Date: Wed, 19 Jul 2006 13:54:30 +0200 Organization: Epita/LRDE Message-ID: <8764htizd5.fsf@lrde.org> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="===============1335763401==" X-Trace: sea.gmane.org 1153312948 9410 80.91.229.2 (19 Jul 2006 12:42:28 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Wed, 19 Jul 2006 12:42:28 +0000 (UTC) Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Wed Jul 19 14:42:22 2006 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1G3BNU-0005R2-FT for ged-emacs-devel@m.gmane.org; Wed, 19 Jul 2006 14:42:13 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1G3BNU-0003ya-0W for ged-emacs-devel@m.gmane.org; Wed, 19 Jul 2006 08:42:12 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1G3BNC-0003st-KK for emacs-devel@gnu.org; Wed, 19 Jul 2006 08:41:54 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1G3BN5-0003el-PY for emacs-devel@gnu.org; Wed, 19 Jul 2006 08:41:54 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1G3BN5-0003eX-JH for emacs-devel@gnu.org; Wed, 19 Jul 2006 08:41:47 -0400 Original-Received: from [199.232.41.67] (helo=mx20.gnu.org) by monty-python.gnu.org with esmtps (TLS-1.0:RSA_AES_256_CBC_SHA:32) (Exim 4.52) id 1G3BQC-0000wo-KC for emacs-devel@gnu.org; Wed, 19 Jul 2006 08:45:00 -0400 Original-Received: from [62.39.139.2] (helo=kualalumpur.lrde.epita.fr) by mx20.gnu.org with esmtp (Exim 4.52) id 1G3BLb-0004rV-S7 for emacs-devel@gnu.org; Wed, 19 Jul 2006 08:40:16 -0400 Original-Received: from mahaena.lrde.epita.fr ([192.168.101.66] helo=mahaena.lrde) by kualalumpur.lrde.epita.fr with esmtp (Exim 4.50) id 1G3AdI-0006zs-Je for emacs-devel@gnu.org; Wed, 19 Jul 2006 13:54:28 +0200 Original-To: emacs-devel@gnu.org Face: iVBORw0KGgoAAAANSUhEUgAAADAAAAAwBAMAAAClLOS0AAAAElBMVEU/JREXDATg1LV8UCao i1fQpmoP3Nd6AAACa0lEQVQ4jWWUQW7jMAxFqZEPICJzAjXeM6W8dyNqX9ji/a8yn04xnWIEJLD9 LJH85DcJFyJV3erqPty8ExHfBikXSdn0WVezC0hOAQiA2nCsAHOqEnPe4k+puU8zw/t+xquqjRKA 4lHsmQBT8C5pDtBwfwH8VdcHI5+FHtjRxrQRwZsf3hNjZRKAPEzHEdH9mFNSYb5dQK3r8KM6ftNy KikAirDZFWdVkDqbxjGFbAcwbQCxxc8mPRHUGOcCIMgMACV23RfJTch3gC6ofT3qCdG0NyUUPfYF yQrKCIAnuYsgX2qPzW2i9sNrfSOSPPZQiygtCNlCjlpXJV38lIKshF/AZzsAMoArdCKNHfXukPuJ ImbLh+9J2gXwap0QpZ7NjZ7ekdkFcDiqPiLGcHmuvaG/AHgy62s52Lae1ABoA7D6d2kDoAvgbnyD ZutEd6lTHOXfYPHVJDH1K8a1+oyrjoZpAGn1x5pfwPr2E9yjxSpk50/gEyKgD/+BD/KzN3tQ13b8 Cx5loF0AgnZf5IUny9hRHQOYBllHDM+6s3oviZBu77mFjDm621Np3hkjR90wE1BkTYvhdDgDgCmR xWChFfcYAOqMm5NZkVWMur8AL5+oeMQOob2FmY76FiM+PrDDZypwGdqokSlAaQOmGH6mW8KpsOwl 0YOLedjSITr6scNRF8D4PesH33QmLrx8AzjpV/3kkg025w2gfAFYKCLluJAc4Ap+h18oo4S8wzaY klDsBUTiY8EZFkg5Iass75FubC9wd8qa0u9+gRxAsAKEaRAo6iB+vwCMGmdBjvgidQGA1ntMX4CS ZYGV/wADyL80LIX/UAAAAABJRU5ErkJggg== User-Agent: Gnus/5.110006 (No Gnus v0.6) Emacs/22.0.50 (gnu/linux) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:57337 Archived-At: --===============1335763401== Content-Type: multipart/signed; boundary="==-=-="; micalg=pgp-sha1; protocol="application/pgp-signature" --==-=-= Content-Type: multipart/mixed; boundary="=-=-=" --=-=-= Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: quoted-printable Hi! A guy on the list screwed its ChangeLog entry by making it in emacs -Q, well, I'm not the last one that would make the error :-) I started to write him =AB Maybe we can set environment variables to fix that once and for all! Let's see, for the full name, we just have to use NAME. And for the email, we... Oh, what the heck ! =BB Hum... Well, I propose the following change. --=-=-= Content-Type: text/x-patch; charset=iso-8859-1 Content-Disposition: inline; filename=startup.patch Content-Transfer-Encoding: quoted-printable Index: lisp/ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /sources/emacs/emacs/lisp/ChangeLog,v retrieving revision 1.9820 diff -c -0 -r1.9820 ChangeLog *** lisp/ChangeLog 17 Jul 2006 04:07:48 -0000 1.9820 =2D-- lisp/ChangeLog 19 Jul 2006 11:21:17 -0000 *************** *** 0 **** =2D-- 1,6 ---- + 2006-07-19 Micha=EBl Cadilhac +=20 + * startup.el (user-mail-address): Initialize with `MAILADDRESS' + environment variable first. Document it. + (command-line): Ditto. +=20 Index: lisp/startup.el =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /sources/emacs/emacs/lisp/startup.el,v retrieving revision 1.409 diff -c -r1.409 startup.el *** lisp/startup.el 24 May 2006 13:22:12 -0000 1.409 =2D-- lisp/startup.el 19 Jul 2006 11:44:05 -0000 *************** *** 247,260 **** :group 'mail) =20=20 (defcustom user-mail-address (if command-line-processed ! (concat (user-login-name) "@" ! (or mail-host-address ! (system-name))) ;; Empty string means "not set yet". "") "*Full mailing address of this user. ! This is initialized based on `mail-host-address', ! after your init file is read, in case it sets `mail-host-address'." :type 'string :group 'mail) =20=20 =2D-- 247,262 ---- :group 'mail) =20=20 (defcustom user-mail-address (if command-line-processed ! (or (getenv "MAILADDRESS") ! (concat (user-login-name) "@" ! (or mail-host-address ! (system-name)))) ;; Empty string means "not set yet". "") "*Full mailing address of this user. ! This is initialized with environment variable `MAILADDRESS' or, ! as a fallback, using `mail-host-address'. This is done after your ! init file is read, in case it sets `mail-host-address'." :type 'string :group 'mail) =20=20 *************** *** 977,985 **** =20=20 ;; Do this here in case the init file sets mail-host-address. (if (equal user-mail-address "") ! (setq user-mail-address (concat (user-login-name) "@" ! (or mail-host-address ! (system-name))))) =20=20 ;; Originally face attributes were specified via ;; `font-lock-face-attributes'. Users then changed the default =2D-- 979,988 ---- =20=20 ;; Do this here in case the init file sets mail-host-address. (if (equal user-mail-address "") ! (setq user-mail-address (or (getenv "MAILADDRESS") ! (concat (user-login-name) "@" ! (or mail-host-address ! (system-name)))))) =20=20 ;; Originally face attributes were specified via ;; `font-lock-face-attributes'. Users then changed the default --=-=-= If needed, the following documents it in NEWS : --=-=-= Content-Type: text/x-patch; charset=iso-8859-1 Content-Disposition: inline; filename=NEWS.patch Content-Transfer-Encoding: quoted-printable Index: etc/ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /sources/emacs/emacs/etc/ChangeLog,v retrieving revision 1.430 diff -c -r1.430 ChangeLog *** etc/ChangeLog 14 Jul 2006 15:04:08 -0000 1.430 =2D-- etc/ChangeLog 19 Jul 2006 11:42:59 -0000 *************** *** 1,3 **** =2D-- 1,7 ---- + 2006-07-19 Micha=EBl Cadilhac +=20 + * NEWS: Document `user-mail-address' initialization. +=20 2006-07-14 Kim F. Storm =20=20 * PROBLEMS: Emacs now requires ws2_32.dll on Windows. Index: etc/NEWS =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /sources/emacs/emacs/etc/NEWS,v retrieving revision 1.1376 diff -c -r1.1376 NEWS *** etc/NEWS 14 Jul 2006 23:29:43 -0000 1.1376 =2D-- etc/NEWS 19 Jul 2006 11:42:59 -0000 *************** *** 238,243 **** =2D-- 238,248 ---- modified buffers, it saves the abbrevs too if they have changed. It can do this either silently or asking for confirmation first, according to the value of `save-abbrevs'. +=20 + +++ + ** Initialize `user-mail-address' with env variable `MAILADDRESS' first. + The variable `user-mail-address' is initialized with the environment + variable `MAILADDRESS' before defaulting it to `user-login-name'@host. * Incompatible Editing Changes in Emacs 22.1 =20=20 --=-=-= Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: quoted-printable TIA ! =2D-=20 | Micha=EBl `Micha' Cadilhac | All your base are belong to us. = | | Epita/LRDE Promo 2007 | You have no change to survive = | | http://www.lrde.org/~cadilh_m | make your time, hahaha. = | `-- - JID: micha@amessage.be --' -- Zero Wings - -= -' --=-=-=-- --==-=-= Content-Type: application/pgp-signature -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.2 (GNU/Linux) iD8DBQFEvh14ZYNf4qobZ7kRAq+GAJ99d3g5gnLzbsvNyiIi5aAwiZ5A6wCffTIK 3n2Bn4TRedZTnfwPK1Ptf0w= =33L/ -----END PGP SIGNATURE----- --==-=-=-- --===============1335763401== Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ Emacs-devel mailing list Emacs-devel@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-devel --===============1335763401==--