(mh-profile-component): Drop `s' from mhparam -components for

Mailutils compatibility (closes SF #1446985).

diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog
index 0a097cb2f02a24c98a42788c06885ced85dd70d9..35a1b1495f1bbd8d01d6db8c8e7a5e4333c1b94f 100644 (file)
--- a/lisp/mh-e/ChangeLog
+++ b/lisp/mh-e/ChangeLog
@@ -1,3 +1,8 @@
+2006-03-10  Bill Wohler  <wohler@newt.com>
+
+       * mh-e.el (mh-profile-component): Drop `s' from mhparam
+       -components for Mailutils compatibility (closes SF #1446985).
+
 2006-03-06  Bill Wohler  <wohler@newt.com>
 
        * 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 64b625f3ab66d0d7c76413990682a4acdd79f71c..0b8961470a7322dab54df8c0e72956a86acc9820 100644 (file)
--- 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)