[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-commit] emacs/lisp/mh-e mh-utils.el
From: |
Bill Wohler |
Subject: |
[Emacs-commit] emacs/lisp/mh-e mh-utils.el |
Date: |
Mon, 19 May 2008 02:18:08 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Bill Wohler <wohler> 08/05/19 02:18:07
Modified files:
lisp/mh-e : mh-utils.el
Log message:
(mh-find-path): Don't throw error if MH environment variable is being
used (closes SF #1946861).
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mh-e/mh-utils.el?cvsroot=emacs&r1=1.71&r2=1.72
Patches:
Index: mh-utils.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mh-e/mh-utils.el,v
retrieving revision 1.71
retrieving revision 1.72
diff -u -b -r1.71 -r1.72
--- mh-utils.el 6 May 2008 03:56:49 -0000 1.71
+++ mh-utils.el 19 May 2008 02:18:07 -0000 1.72
@@ -184,9 +184,8 @@
(getenv "MH")))
(if (null (mh-variants))
(error "Install MH and run install-mh before running MH-E"))
- (let ((profile "~/.mh_profile"))
- (if (not (file-readable-p profile))
- (error "Run install-mh before running MH-E")))
+ (if (not (or (getenv "MH") (file-readable-p "~/.mh_profile")))
+ (error "Run install-mh before running MH-E"))
;; Read MH profile.
(setq mh-user-path (mh-profile-component "Path"))
(if (not mh-user-path)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-commit] emacs/lisp/mh-e mh-utils.el,
Bill Wohler <=