* lisp/progmodes/f90.el (f90-mode-syntax-table): Use symbol syntax for "_".

[bpt/emacs.git] / lisp / mh-e / mh-comp.el

diff --git a/lisp/mh-e/mh-comp.el b/lisp/mh-e/mh-comp.el
index 1f07a79..9610774 100644 (file)
--- a/lisp/mh-e/mh-comp.el
+++ b/lisp/mh-e/mh-comp.el
@@ -1205,17 +1205,17 @@ discarded."
           (let ((search-result nil))
             (while fields
               (let ((field (car fields))
-                    (syntax-table mh-regexp-in-field-syntax-table))
-                (if (null syntax-table)
-                    (let ((case-fold-search t))
-                      (cond
-                       ((string-match field "^To$\\|^[BD]?cc$\\|^From$")
-                        (setq syntax-table mh-addr-syntax-table))
-                       ((string-match field "^Fcc$")
-                        (setq syntax-table mh-fcc-syntax-table))
-                       (t
-                        (setq syntax-table (syntax-table)))
-                       )))
+                    (syntax-table
+                     (or mh-regexp-in-field-syntax-table
+                         (let ((case-fold-search t))
+                           (cond
+                            ((string-match field "^To$\\|^[BD]?cc$\\|^From$")
+                             mh-addr-syntax-table)
+                            ((string-match field "^Fcc$")
+                             mh-fcc-syntax-table)
+                            (t
+                             (syntax-table)))
+                           ))))
                 (if (and (mh-goto-header-field field)
                          (set-syntax-table syntax-table)
                          (re-search-forward