Mercurial > emacs

changeset 68528:bd5e46db392c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.
author Bill Wohler <wohler@newt.com>
date Wed, 01 Feb 2006 23:17:50 +0000
parents e66f443e6371
children 7daec5f4a289
files lisp/mh-e/mh-comp.el
diffstat 1 files changed, 2 insertions(+), 11 deletions(-) [+]
line wrap: on
line diff
--- 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))