From: Bill Wohler <wohler@newt.com>
Date: Mon, 30 Jan 2006 07:26:35 +0000 (+0000)
Subject: (mh-scan-format-file-check): Allow any non-nil for
X-Git-Tag: emacs-pretest-22.0.90~4492
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fd61b9aba222ac00cf8261524a12f3e51747c47c;p=emacs.git

(mh-scan-format-file-check): Allow any non-nil for
mh-adaptive-cmd-note-flag.
---

diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog
index 71ec35e0039..a018b66347e 100644
--- a/lisp/mh-e/ChangeLog
+++ b/lisp/mh-e/ChangeLog
@@ -1,5 +1,8 @@
 2006-01-29  Bill Wohler  <wohler@newt.com>
 
+	* mh-e.el (mh-scan-format-file-check): Allow any non-nil for
+	mh-adaptive-cmd-note-flag.
+
 	* mh-comp.el (sc-cite-original): Remove autoload of "sc" with old
 	docstring. sc-cite-original is autoloaded via loaddefs.el for all
 	supported versions. In addition, the package name "sc" has been
diff --git a/lisp/mh-e/mh-e.el b/lisp/mh-e/mh-e.el
index f1ee071fad2..5b738933590 100644
--- a/lisp/mh-e/mh-e.el
+++ b/lisp/mh-e/mh-e.el
@@ -1851,7 +1851,7 @@ Throw an error if user tries to set `mh-scan-format-file' to
 anything but t when `mh-adaptive-cmd-note-flag' is on. Otherwise,
 set SYMBOL to VALUE."
   (if (and (not (eq value t))
-           (eq mh-adaptive-cmd-note-flag t))
+           mh-adaptive-cmd-note-flag)
       (error "%s %s" "You must turn off `mh-adaptive-cmd-note-flag'"
              "unless you use \"Use MH-E scan Format\"")
     (set-default symbol value)))