From xemacs-m  Sun Jan 26 18:47:45 1997
Received: from venus.Sun.COM (venus.Sun.COM [192.9.25.5])
          by xemacs.org (8.8.4/8.8.4) with SMTP
	  id SAA13287 for <xemacs-beta@xemacs.org>; Sun, 26 Jan 1997 18:47:45 -0600 (CST)
Received: from infodock.com (wave.infodock.com [206.13.40.192]) by venus.Sun.COM (SMI-8.6/mail.byaddr) with ESMTP id QAA03664 for <xemacs-beta@xemacs.org>; Sun, 26 Jan 1997 16:47:16 -0800
Received: (from weiner@localhost) by infodock.com (8.7.4/8.7.3) id QAA19393; Sun, 26 Jan 1997 16:50:34 -0800
Date: Sun, 26 Jan 1997 16:50:34 -0800
From: Bob Weiner <weiner@infodock.com>
Message-Id: <199701270050.QAA19393@infodock.com>
To: xemacs-beta@xemacs.org
Subject: Patch to eliminate error when using rmail {o} command: XEmacs 20b91.

It is possible for the default-file value in rmail-output-to-rmail-file
to be nil, triggering an error when it is used as an argument to
file-name-nondirectory or file-name-directory.  The following patch
fixes it.

-----------------------------


--- rmailout.el~	Fri May 12 06:53:39 1995
+++ rmailout.el	Sun Jan 26 16:47:31 1997
@@ -61,12 +61,14 @@
 	     ;; If not suggestions, use same file as last time.
 	     (or answer rmail-last-rmail-file))))
      (list (setq rmail-last-rmail-file
-		 (read-file-name
-			    (concat "Output message to Rmail file: (default "
-				    (file-name-nondirectory default-file)
-				    ") ")
-			    (file-name-directory default-file)
-			    default-file))
+		 (if default-file
+		     (read-file-name
+		      (concat "Output message to Rmail file: (default "
+			      (file-name-nondirectory default-file)
+			      ") ")
+		      (file-name-directory default-file)
+		      default-file)
+		   (read-file-name "Output message to Rmail file: ")))
 	   (prefix-numeric-value current-prefix-arg))))
   (or count (setq count 1))
   (setq file-name

