procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/mh-e/mh-comp.el (mh-regexp-in-field-p): Fix previous change.

Browse source
This commit is contained in:
Glenn Morris 2013-05-20 21:59:36 -04:00
parent b4da2cbb0d
commit 195eea0f0b
2 changed files with 17 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/mh-e/ChangeLog
View file

@ -1,3 +1,7 @@
2013-05-21 Glenn Morris <rgm@gnu.org>
* mh-comp.el (mh-regexp-in-field-p): Fix previous change.
2013-05-09 Glenn Morris <rgm@gnu.org>
* mh-e.el (mh-sortm-args, mh-default-folder-for-message-function):

27
lisp/mh-e/mh-comp.el
View file

@ -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 <wohler@newt.com>
;; Maintainer: Bill Wohler <wohler@newt.com>
@ -1204,18 +1203,18 @@ discarded."
(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