# HG changeset patch
# User Bill Wohler <wohler@newt.com>
# Date 1138835870 0
# Node ID bd5e46db392c0c6ef8db5c9b9d5570d0c5d682ab
# Parent  e66f443e6371cceb7831078cc63a8c656360a8d6
(mh-send-sub): Don't find components file in current directory--this
seems to have been a side-effect of commenting out the use of an old
mh-etc variable. Improve error message.

diff -r e66f443e6371 -r bd5e46db392c lisp/mh-e/mh-comp.el
--- a/lisp/mh-e/mh-comp.el	Wed Feb 01 22:26:45 2006 +0000
+++ b/lisp/mh-e/mh-comp.el	Wed Feb 01 23:17:50 2006 +0000
@@ -759,18 +759,9 @@
                        (setq components
                              (expand-file-name mh-comp-formfile mh-lib)))
                       components)
-                     ((file-exists-p
-                       (setq components
-                             (expand-file-name mh-comp-formfile
-                                               ;; What is this mh-etc ??  -sm
-                                               ;; This is dead code, so
-                                               ;; remove it.
-                                        ;(and (boundp 'mh-etc) mh-etc)
-                                               )))
-                      components)
                      (t
-                      (error "Can't find components file \"%s\""
-                             components))))
+                      (error "Can't find %s in %s or %s"
+                             mh-comp-formfile mh-user-path mh-lib))))
                   nil)))
       (mh-insert-fields "To:" to "Subject:" subject "Cc:" cc)
       (goto-char (point-max))