From 0c32f8c691129965c0d67c2f1cef9cd75e9544bf Mon Sep 17 00:00:00 2001 From: Bill Wohler Date: Fri, 10 Mar 2006 16:56:16 +0000 Subject: [PATCH] (mh-profile-component): Drop `s' from mhparam -components for Mailutils compatibility (closes SF #1446985). --- lisp/mh-e/ChangeLog | 5 +++++ lisp/mh-e/mh-e.el | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog index 0a097cb2f02..35a1b1495f1 100644 --- a/lisp/mh-e/ChangeLog +++ b/lisp/mh-e/ChangeLog @@ -1,3 +1,8 @@ +2006-03-10 Bill Wohler + + * mh-e.el (mh-profile-component): Drop `s' from mhparam + -components for Mailutils compatibility (closes SF #1446985). + 2006-03-06 Bill Wohler * mh-e.el (Version, mh-version): Add +cvs to version. diff --git a/lisp/mh-e/mh-e.el b/lisp/mh-e/mh-e.el index 64b625f3ab6..0b8961470a7 100644 --- a/lisp/mh-e/mh-e.el +++ b/lisp/mh-e/mh-e.el @@ -808,7 +808,9 @@ Currently known variants are 'MH, 'nmh, and 'mu-mh." (defun mh-profile-component (component) "Return COMPONENT value from mhparam, or nil if unset." (save-excursion - (mh-exec-cmd-quiet nil "mhparam" "-components" component) + ;; MH and nmh use -components, Mailutils uses -component. Since MH + ;; and nmh work with an unambiguous prefix, the `s' is dropped here. + (mh-exec-cmd-quiet nil "mhparam" "-component" component) (mh-profile-component-value component))) (defun mh-profile-component-value (component) -- 2.39.2