From 05227fbee3ee5d14b6c0ba5ed196af471bc9d1ac Mon Sep 17 00:00:00 2001 From: Bill Wohler Date: Wed, 1 Feb 2006 23:17:50 +0000 Subject: [PATCH] (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. --- lisp/mh-e/mh-comp.el | 13 ++----------- 1 file changed, 2 insertions(+), 11 deletions(-) diff --git a/lisp/mh-e/mh-comp.el b/lisp/mh-e/mh-comp.el index 5a0907bf612..2377151eeb3 100644 --- a/lisp/mh-e/mh-comp.el +++ b/lisp/mh-e/mh-comp.el @@ -759,18 +759,9 @@ CONFIG is the window configuration before sending mail." (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)) -- 2.39.2