2001-12-01 08:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* message.el (message-make-mft): Fix the m-s-a-file regexp.
	From Paul Jarc <prj@po.cwru.edu>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c4e2714..5e6c26b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-12-01 08:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * message.el (message-make-mft): Fix the m-s-a-file regexp.
+       From Paul Jarc <prj@po.cwru.edu>.
+       
 2001-11-30 21:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * message.el: New variable message-subscribed-address-file;

diff --git a/lisp/message.el b/lisp/message.el
index ea6eaca..9b4d5ce 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3786,7 +3786,7 @@ give as trustworthy answer as possible."
                      (setq end (point))
                      (if (bolp) (setq end (1- end)))
                      (setq item (regexp-quote (buffer-substring begin end)))
-                     (if re (setq re (concat re "\\)\\|\\(" item))
+                     (if re (setq re (concat re "\\|" item))
                        (setq re (concat "\\`\\(" item))))
                    (and re (list (concat re "\\)\\'"))))))))
         (mft-regexps (apply 'append message-subscribed-regexps