From xemacs-m  Sat Mar 22 19:10:41 1997
Received: from mecca.spd.louisville.edu (mecca.spd.louisville.edu [136.165.40.148])
	by xemacs.org (8.8.5/8.8.5) with SMTP id TAA01790
	for <xemacs-beta@xemacs.org>; Sat, 22 Mar 1997 19:10:40 -0600 (CST)
Received: (from tjchol01@localhost) by mecca.spd.louisville.edu (950413.SGI.8.6.12/8.6.12) id BAA08510; Sun, 23 Mar 1997 01:10:49 GMT
Date: Sun, 23 Mar 1997 01:10:49 GMT
Message-Id: <199703230110.BAA08510@mecca.spd.louisville.edu>
From: "Tomasz J. Cholewo" <tjchol01@mecca.spd.louisville.edu>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
To: XEmacs-Beta Mailing List <xemacs-beta@xemacs.org>
Subject: [patch] 20.1b9: user-mail-address
X-Mailer: VM 6.21 under 20.1 XEmacs Lucid (beta9)

This patch corrects two bugs in (user-mail-address) which make sending
mail impossible after answering 'y' to "Save address for future
sessions?" prompt:
- call to custom-save-all which is not preloaded
- parentheses closed in wrong place

Tom
=====
Sat Mar 22 14:25:47 1997  Tomasz J. Cholewo  <t.cholewo@ieee.org>

	* modes/sendmail.el (user-mail-address): Require cus-edit.
	Fix when scope.
 
diff -urd xemacs-20.1-b9-orig/lisp/modes/sendmail.el xemacs-20.1-b9-x/lisp/modes/sendmail.el
--- xemacs-20.1-b9-orig/lisp/modes/sendmail.el	Sat Mar 22 01:02:26 1997
+++ xemacs-20.1-b9-x/lisp/modes/sendmail.el	Sat Mar 22 19:53:22 1997
@@ -312,12 +312,13 @@
 	(put 'user-mail-address 'saved-value
 	     (list user-mail-address))
 	(put 'query-user-mail-address 'saved-value '(nil))
-	(custom-save-all)))
-    (if user-mail-address
-	user-mail-address
-      (setq user-mail-address (concat (user-login-name) "@"
-				      (or mail-host-address
-					  (system-name)))))))
+        (require 'cus-edit)
+	(custom-save-all))))
+  (if user-mail-address
+      user-mail-address
+    (setq user-mail-address (concat (user-login-name) "@"
+                                    (or mail-host-address
+                                        (system-name))))))
 
 (defun mail-setup (to subject in-reply-to cc replybuffer actions)
   (or mail-default-reply-to

