* canlock.el (canlock-insert-header): Remove excessive grouping in regexp.

* gnus-sum.el (gnus-summary-read-document): Ditto.
* gnus-uu.el (gnus-uu-part-number): Ditto.
* html2text.el (html2text-remove-tags): Ditto.
(html2text-format-tags): Ditto.
(html2text-format-single-elements): Ditto.
* mml.el (mml-parse-1): Ditto.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 21de9bb..137284c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,18 @@
+2004-01-08  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * canlock.el (canlock-insert-header): Remove excessive grouping in
+       regexp.
+
+       * gnus-sum.el (gnus-summary-read-document): Ditto.
+
+       * gnus-uu.el (gnus-uu-part-number): Ditto.
+
+       * html2text.el (html2text-remove-tags): Ditto.
+       (html2text-format-tags): Ditto.
+       (html2text-format-single-elements): Ditto.
+
+       * mml.el (mml-parse-1): Ditto.
+
 2004-01-08  Jesper Harder  <harder@ifa.au.dk>
 
        * gnus-sum.el (gnus-summary-update-mark): Revert previous change.

diff --git a/lisp/canlock.el b/lisp/canlock.el
index f291706..a8d3533 100644 (file)
--- a/lisp/canlock.el
+++ b/lisp/canlock.el
@@ -159,9 +159,8 @@ message."
          (unless id-for-key
            (setq id-for-key (canlock-fetch-id-for-key)))
          (if (and (setq control (mail-fetch-field "Control"))
-                  (string-match
-                   "^cancel[\t ]+\\(<[^\t\n @<>]+@[^\t\n @<>]+>\\)"
-                   control))
+                  (string-match "^cancel[\t ]+<[^\t\n @<>]+@[^\t\n @<>]+>"
+                                control))
              (setq id-for-lock nil)
            (unless id-for-lock
              (setq id-for-lock (mail-fetch-field "Message-ID"))))

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 67bb639..97bd4b9 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -8284,7 +8284,7 @@ Obeys the standard process/prefix convention."
            ;; the wrong guess.
            (message-narrow-to-head)
            (goto-char (point-min))
-           (delete-matching-lines "^\\(Path\\):\\|^From ")
+           (delete-matching-lines "^Path:\\|^From ")
            (widen)
            (if (setq egroup
                      (gnus-group-read-ephemeral-group

diff --git a/lisp/gnus-uu.el b/lisp/gnus-uu.el
index 677d266..4c731ed 100644 (file)
--- a/lisp/gnus-uu.el
+++ b/lisp/gnus-uu.el
@@ -1403,7 +1403,7 @@ When called interactively, prompt for REGEXP."
          (setq part (match-string 0 subject))
          (setq subject (substring subject (match-end 0)))))
     (or part
-       (while (string-match "\\([0-9]+\\)[^0-9]+\\([0-9]+\\)" subject)
+       (while (string-match "[0-9]+[^0-9]+[0-9]+" subject)
          (setq part (match-string 0 subject))
          (setq subject (substring subject (match-end 0)))))
     (or part "")))

diff --git a/lisp/html2text.el b/lisp/html2text.el
index 41fea4b..8822ea9 100644 (file)
--- a/lisp/html2text.el
+++ b/lisp/html2text.el
@@ -462,7 +462,7 @@ See the documentation for that variable."
   (interactive)
   (dolist (tag tag-list)
     (html2text-buffer-head)
-    (while (re-search-forward (format "\\(</?%s[^>]*>\\)" tag) (point-max) t)
+    (while (re-search-forward (format "</?%s[^>]*>" tag) (point-max) t)
       (delete-region (match-beginning 0) (match-end 0)))))
 
 (defun html2text-format-tags ()
@@ -472,12 +472,12 @@ See the documentation for that variable."
     (let ((tag      (car tag-and-function))
          (function (cdr tag-and-function)))
       (html2text-buffer-head)
-      (while (re-search-forward (format "\\(<%s\\( [^>]*\\)?>\\)" tag)
+      (while (re-search-forward (format "<%s\\( [^>]*\\)?>" tag)
                                (point-max) t)
        (let ((p1)
              (p2 (point))
              (p3) (p4)
-             (attr (match-string 1)))
+             (attr (match-string 0)))
          (search-backward "<" (point-min) t)
          (setq p1 (point))
          (re-search-forward (format "</%s>" tag) (point-max) t)
@@ -511,7 +511,7 @@ See the documentation for that variable."
     (let ((tag      (car tag-and-function))
          (function (cdr tag-and-function)))
       (html2text-buffer-head)
-      (while (re-search-forward (format "\\(<%s\\( [^>]*\\)?>\\)" tag)
+      (while (re-search-forward (format "<%s\\( [^>]*\\)?>" tag)
                                (point-max) t)
        (let ((p1)
              (p2 (point)))

diff --git a/lisp/mml.el b/lisp/mml.el
index 3b8ed9f..3b15520 100644 (file)
--- a/lisp/mml.el
+++ b/lisp/mml.el
@@ -160,9 +160,8 @@ one charsets.")
               (method (cdr (assq 'method taginfo)))
               tags)
          (save-excursion
-           (if
-               (re-search-forward
-                "<#\\(/\\)?\\(multipart\\|part\\|external\\|mml\\)." nil t)
+           (if (re-search-forward
+                "<#/?\\(multipart\\|part\\|external\\|mml\\)." nil t)
                (setq secure-mode "multipart")
              (setq secure-mode "part")))
          (save-excursion