mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(mh-find-path): Don't throw error if MH environment variable is being

Browse source 
used (closes SF #1946861).
This commit is contained in:
Bill Wohler 2008-05-19 02:18:24 +00:00
parent 770ea979d4
commit b78a11dc14
2 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/mh-e/ChangeLog
View file

@ -1,3 +1,8 @@
2008-05-19 Xavier Maillard <xma@gnu.org> (tiny change)
* mh-utils.el (mh-find-path): Don't throw error if MH environment
variable is being used (closes SF #1946861).
2008-05-19 Nick Dokos <nicholas.dokos@hp.com> (tiny change)
* mh-search.el (mh-mairix-regexp-builder): Add additional items to

5
lisp/mh-e/mh-utils.el
View file

@ -184,9 +184,8 @@ MH-E."
(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)