(w32font_full_name): New function.

[bpt/emacs.git] / lib-src / fakemail.c

diff --git a/lib-src/fakemail.c b/lib-src/fakemail.c
index a2d3135..993f90f 100644 (file)
--- a/lib-src/fakemail.c
+++ b/lib-src/fakemail.c
@@ -19,7 +19,6 @@ along with GNU Emacs; see the file COPYING.  If not, write to
 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
 Boston, MA 02110-1301, USA.  */
 
-#define NO_SHORTNAMES
 #define _XOPEN_SOURCE 500      /* for cuserid */
 
 #ifdef HAVE_CONFIG_H
@@ -135,6 +134,10 @@ struct linebuffer lb;
 #define NIL ((line_list) NULL)
 #define INITIAL_LINE_SIZE 200
 
+#ifndef MAIL_PROGRAM_NAME
+#define MAIL_PROGRAM_NAME "/bin/mail"
+#endif
+
 static char *my_name;
 static char *the_date;
 static char *the_user;
@@ -730,7 +733,7 @@ main (argc, argv)
 
   mail_program_name = getenv ("FAKEMAILER");
   if (!(mail_program_name && *mail_program_name))
-    mail_program_name = "/bin/mail";
+    mail_program_name = MAIL_PROGRAM_NAME;
   name_length = strlen (mail_program_name);
 
   my_name = MY_NAME;