Backslash cleanup in Elisp source files

[gnu-emacs] / lisp / gnus / nndoc.el

diff --git a/lisp/gnus/nndoc.el b/lisp/gnus/nndoc.el
index 70d803faf541391eef92a8f2df1bf3db10ee1684..cca341875e0c4ec39b7e79cc0d7d746bf90b4993 100644 (file)
--- a/lisp/gnus/nndoc.el
+++ b/lisp/gnus/nndoc.el
@@ -742,7 +742,7 @@ from the document.")
                                   nil t)
            (setq subject (concat (match-string 1) subject))
            (setq from (concat (match-string 2) " " from))))))
-    (while (and from (string-match "(\[^)\]*)" from))
+    (while (and from (string-match "([^)]*)" from))
       (setq from (replace-match "" t t from)))
     (insert "From: "  (or from "unknown")
            "\nSubject: " (or subject "(no subject)") "\n")