[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r112648: * lisp/mh-e/mh-comp.el (mh-r
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r112648: * lisp/mh-e/mh-comp.el (mh-regexp-in-field-p): Fix previous change. |
Date: |
Mon, 20 May 2013 21:59:36 -0400 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r112648: * lisp/mh-e/mh-comp.el (mh-regexp-in-field-p): Fix previous change.,
Glenn Morris <=