From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 9 Mar 1999 03:02:55 +0000 (+0000)
Subject: (smtpmail-do-bcc): Fix regexp.
X-Git-Tag: emacs-20.4~494
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=067427f540d72ea332e5c7a528978f31601c845b;p=emacs.git

(smtpmail-do-bcc): Fix regexp.
---

diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el
index af22f6341f8..ab42363de2c 100644
--- 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)