[Emacs-commit] emacs/lisp/mh-e mh-comp.el

[Bill Wohler]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Branch:         
Changes by:     Bill Wohler <address@hidden>    06/02/01 23:17:50

Modified files:
        lisp/mh-e      : mh-comp.el 

Log message:
        (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.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-comp.el.diff?tr1=1.46&tr2=1.47&r1=text&r2=text

Patches:
Index: emacs/lisp/mh-e/mh-comp.el
diff -u emacs/lisp/mh-e/mh-comp.el:1.46 emacs/lisp/mh-e/mh-comp.el:1.47
--- emacs/lisp/mh-e/mh-comp.el:1.46     Mon Jan 30 04:03:11 2006
+++ emacs/lisp/mh-e/mh-comp.el  Wed Feb  1 23:17:50 2006
@@ -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))