(mh-progs, mh-lib): Deleted.

1 files changed, 3 insertions, 18 deletions

diff --git a/lisp/paths.el b/lisp/paths.el
index aacbd366eb5..e72cea01c8b 100644
--- a/lisp/paths.el
+++ b/lisp/paths.el
@@ -80,28 +80,13 @@ there is no need to set this variable.")
   "*The name of your organization, as a string.
 The `ORGANIZATION' environment variable is used instead if defined.")
 
-(defvar mh-progs
-  (cond ((file-directory-p "/usr/bin/mh/") "/usr/bin/mh/") ;Ultrix 4.2
-        ((file-directory-p "/usr/new/mh/") "/usr/new/mh/") ;Ultrix <4.2
-        ((file-directory-p "/usr/local/bin/mh/") "/usr/local/bin/mh/")
-        ((file-directory-p "/usr/local/mh/") "/usr/local/mh/")
-        (t "/usr/local/bin/"))
-  "Directory containing MH commands.")
-
-(defvar mh-lib
-  (cond ((file-directory-p "/usr/lib/mh/") "/usr/lib/mh/") ;Ultrix 4.2
-        ((file-directory-p "/usr/new/lib/mh/") "/usr/new/lib/mh/") ;Ultrix <4.2
-        ((file-directory-p "/usr/local/lib/mh/") "/usr/local/lib/mh/")
-        (t "/usr/local/bin/mh/"))
-  "Directory of MH library.")
-
-(defvar rmail-file-name "~/RMAIL"
-  "Name of user's primary mail file.")
-
 (defvar gnus-startup-file "~/.newsrc"
   "The file listing groups to which user is subscribed.
 Will use `gnus-startup-file'-SERVER instead if exists.")
 
+(defvar rmail-file-name "~/RMAIL"
+  "Name of user's primary mail file.")
+
 (defconst rmail-spool-directory
   (cond ((memq system-type '(dgux hpux usg-unix-v unisoft-unix rtu irix))
          "/usr/mail/")