summaryrefslogtreecommitdiff
path: root/lisp/mh-e/mh-e.el
diff options
context:
space:
mode:
authorBill Wohler <wohler@newt.com>2006-03-10 16:56:16 +0000
committerBill Wohler <wohler@newt.com>2006-03-10 16:56:16 +0000
commit0c32f8c691129965c0d67c2f1cef9cd75e9544bf (patch)
treee3b8e535c469b8e677a493c28e0d41090830c302 /lisp/mh-e/mh-e.el
parent8775bef73be6f975fde0fc4099804f9bf72892b8 (diff)
downloademacs-0c32f8c691129965c0d67c2f1cef9cd75e9544bf.tar.gz
(mh-profile-component): Drop `s' from mhparam -components for
Mailutils compatibility (closes SF #1446985).
Diffstat (limited to 'lisp/mh-e/mh-e.el')
-rw-r--r--lisp/mh-e/mh-e.el4
1 files changed, 3 insertions, 1 deletions
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)