(smtpmail-do-bcc): Fix regexp.

diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el
index af22f6341f85e98ec3c8b44bd9424401cef53e9f..ab42363de2c1eb61ce8eda99b4c8268454281ee6 100644 (file)
--- a/lisp/mail/smtpmail.el
+++ b/lisp/mail/smtpmail.el
@@ -673,18 +673,15 @@ This is relative to `smtpmail-queue-dir'.")
 There may be multiple BCC: lines, and each may have arbitrarily
 many continuation lines."
   (let ((case-fold-search t))
-       (save-excursion (goto-char (point-min))
-         ;; iterate over all BCC: lines
-         (while (re-search-forward "^\(RESENT-\)?BCC:" header-end t)
-               (delete-region (match-beginning 0) (progn (forward-line 1) (point)))
-               ;; get rid of any continuation lines
-               (while (and (looking-at "^[ \t].*\n") (< (point) header-end))
-                 (replace-match ""))
-               )
-         ) ;; save-excursion
-       ) ;; let
-  )
-
+    (save-excursion
+      (goto-char (point-min))
+      ;; iterate over all BCC: lines
+      (while (re-search-forward "^\\(RESENT-\\)?BCC:" header-end t)
+       (delete-region (match-beginning 0)
+                      (progn (forward-line 1) (point)))
+       ;; get rid of any continuation lines
+       (while (and (looking-at "^[ \t].*\n") (< (point) header-end))
+         (replace-match ""))))))
 
 
 (provide 'smtpmail)