[Emacs-diffs] /srv/bzr/emacs/trunk r112648: * lisp/mh-e/mh-comp.el (mh-regexp-in-field-p): Fix previous change.

[Glenn Morris]

------------------------------------------------------------
revno: 112648
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Mon 2013-05-20 21:59:36 -0400
message:
  * lisp/mh-e/mh-comp.el (mh-regexp-in-field-p): Fix previous change.
modified:
  lisp/mh-e/ChangeLog
  lisp/mh-e/mh-comp.el

=== modified file 'lisp/mh-e/ChangeLog'
--- a/lisp/mh-e/ChangeLog       2013-05-09 01:40:20 +0000
+++ b/lisp/mh-e/ChangeLog       2013-05-21 01:59:36 +0000
@@ -1,3 +1,7 @@
+2013-05-21  Glenn Morris  <address@hidden>
+
+       * mh-comp.el (mh-regexp-in-field-p): Fix previous change.
+
 2013-05-09  Glenn Morris  <address@hidden>
 
        * mh-e.el (mh-sortm-args, mh-default-folder-for-message-function):

=== modified file 'lisp/mh-e/mh-comp.el'
--- a/lisp/mh-e/mh-comp.el      2013-05-08 16:27:53 +0000
+++ b/lisp/mh-e/mh-comp.el      2013-05-21 01:59:36 +0000
@@ -1,7 +1,6 @@
 ;;; mh-comp.el --- MH-E functions for composing and sending messages
 
-;; Copyright (C) 1993, 1995, 1997, 2000-2013 Free Software Foundation,
-;; Inc.
+;; Copyright (C) 1993, 1995, 1997, 2000-2013 Free Software Foundation, Inc.
 
 ;; Author: Bill Wohler <address@hidden>
 ;; Maintainer: Bill Wohler <address@hidden>
@@ -1204,18 +1203,18 @@
         (save-excursion
           (let ((search-result nil))
             (while fields
-              (let ((field (car fields))
-                    (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)))
-                           ))))
+              (let* ((field (car fields))
+                     (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