# HG changeset patch
# User Bill Wohler <wohler@newt.com>
# Date 1142009776 0
# Node ID 1f70898570ca70f0ae478e6dde7e49ceaf3bbf39
# Parent  53ca33e3b6a5d5a49d291eee019cda5fc0131b2e
(mh-profile-component): Drop `s' from mhparam -components for
Mailutils compatibility (closes SF #1446985).

diff -r 53ca33e3b6a5 -r 1f70898570ca lisp/mh-e/ChangeLog
--- a/lisp/mh-e/ChangeLog	Fri Mar 10 08:10:33 2006 +0000
+++ b/lisp/mh-e/ChangeLog	Fri Mar 10 16:56:16 2006 +0000
@@ -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 -r 53ca33e3b6a5 -r 1f70898570ca lisp/mh-e/mh-e.el
--- a/lisp/mh-e/mh-e.el	Fri Mar 10 08:10:33 2006 +0000
+++ b/lisp/mh-e/mh-e.el	Fri Mar 10 16:56:16 2006 +0000
@@ -808,7 +808,9 @@
 (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)