comparison lisp/mh-e/mh-comp.el @ 68199:5012e59a73c7

* mh-comp.el (mh-pgp-support-flag): Move here from mh-utils.el; needed to help remove dependency on mh-utils. * mh-exec.el: New file. Move process support routines here from mh-utils.el. * mh-init.el (mh-utils): Remove require. (mh-exec): Add require. (mh-profile-component, mh-profile-component-value): Move here from mh-utils.el. * mh-utils.el (mh-pgp-support-flag): Move to mh-comp.el to reduce dependencies on mh-utils.el. (mh-profile-component, mh-profile-component-value): Move to mh-init.el since that's the only place that uses them. (Other than mh-alias.el; I'm thinking that mh-find-path can set variable from the Aliasfile component like it does the other components). (mh-index-max-cmdline-args, mh-xargs, mh-quote-for-shell) (mh-exec-cmd, mh-exec-cmd-error, mh-exec-cmd-daemon) (mh-exec-cmd-env-daemon, mh-process-daemon, mh-exec-cmd-quiet) (defvar, mh-exec-cmd-output) (mh-exchange-point-and-mark-preserving-active-mark) (mh-exec-lib-cmd-output, mh-handle-process-error): Move to new file mh-exec.el so that mh-init.el doesn't have to depend on mh-utils.el, breaking circular dependency. * mh-alias.el: mh-customize.el: mh-e.el: mh-funcs.el: mh-gnus.el: * mh-identity.el: mh-inc.el: mh-junk.el: mh-mime.el: mh-print.el: * mh-search.el: mh-seq.el: mh-speed.el: Added debugging statements (commented out) around requires to help find dependency loops. Will remove them when issues are resolved.
author Bill Wohler <wohler@newt.com>
date Sun, 15 Jan 2006 08:17:56 +0000
parents 03bac2d0a4aa
children 0c77c0b9a620 7beb78bc1f8e
comparison
equal deleted inserted replaced
68198:f00134dbd2a6 68199:5012e59a73c7
31 31
32 ;;; Change Log: 32 ;;; Change Log:
33 33
34 ;;; Code: 34 ;;; Code:
35 35
36 ;;(message "> mh-comp")
36 (eval-when-compile (require 'mh-acros)) 37 (eval-when-compile (require 'mh-acros))
37 (mh-require-cl) 38 (mh-require-cl)
38 39
39 (require 'easymenu) 40 (require 'easymenu)
40 (require 'gnus-util) 41 (require 'gnus-util)
42 (require 'mh-e) 43 (require 'mh-e)
43 (require 'mh-gnus) 44 (require 'mh-gnus)
44 45
45 (eval-when (compile load eval) 46 (eval-when (compile load eval)
46 (ignore-errors (require 'mailabbrev))) 47 (ignore-errors (require 'mailabbrev)))
48 ;;(message "< mh-comp")
47 49
48 50
49 51
50 ;;; Autoloads 52 ;;; Autoloads
51 53
860 862
861 863
862 864
863 ;;; Mode for composing and sending a draft message. 865 ;;; Mode for composing and sending a draft message.
864 866
867 (defvar mh-pgp-support-flag (not (not (locate-library "mml2015")))
868 "Non-nil means PGP support is available.")
869
865 (put 'mh-letter-mode 'mode-class 'special) 870 (put 'mh-letter-mode 'mode-class 'special)
866 871
867 ;; Menu extracted from mh-menubar.el V1.1 (31 July 2001) 872 ;; Menu extracted from mh-menubar.el V1.1 (31 July 2001)
868 (eval-when-compile (defvar mh-letter-menu nil)) 873 (eval-when-compile (defvar mh-letter-menu nil))
869 (easy-menu-define 874 (easy-menu-define