(mh-send-sub): Look for mh-comp-formfile in

mh-etc, too.

diff --git a/lisp/mail/mh-comp.el b/lisp/mail/mh-comp.el
index bd12688cbc1fc6147c8077c5c96a1105c549ba6f..0a0841b2e6c0be82203d72af974965711074520d 100644 (file)
--- a/lisp/mail/mh-comp.el
+++ b/lisp/mail/mh-comp.el
@@ -26,7 +26,7 @@
 
 ;;; Change Log:
 
-;; $Id: mh-comp.el,v 1.15 1999/09/04 00:08:17 rms Exp $
+;; $Id: mh-comp.el,v 1.16 1999/11/10 10:46:01 gerd Exp $
 
 ;;; Code:
 
@@ -515,6 +515,10 @@ See also documentation for `\\[mh-send]' function."
                       (setq components
                             (expand-file-name mh-comp-formfile mh-lib)))
                      components)
+                    ((file-exists-p
+                      (setq components
+                            (expand-file-name mh-comp-formfile mh-etc)))
+                     components)
                     (t
                      (error (format "Can't find components file \"%s\""
                                     components)))))