diff options
| author | Karl Heuer | 1999-03-09 03:02:55 +0000 |
|---|---|---|
| committer | Karl Heuer | 1999-03-09 03:02:55 +0000 |
| commit | 067427f540d72ea332e5c7a528978f31601c845b (patch) | |
| tree | f1dbeda35a5de784aea49f4ff7ee93e853105eba | |
| parent | 7e37faa3567ef7c4a101b0c1a182ce45920a4648 (diff) | |
| download | emacs-067427f540d72ea332e5c7a528978f31601c845b.tar.gz emacs-067427f540d72ea332e5c7a528978f31601c845b.zip | |
(smtpmail-do-bcc): Fix regexp.
| -rw-r--r-- | lisp/mail/smtpmail.el | 21 |
1 files changed, 9 insertions, 12 deletions
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'.") | |||
| 673 | There may be multiple BCC: lines, and each may have arbitrarily | 673 | There may be multiple BCC: lines, and each may have arbitrarily |
| 674 | many continuation lines." | 674 | many continuation lines." |
| 675 | (let ((case-fold-search t)) | 675 | (let ((case-fold-search t)) |
| 676 | (save-excursion (goto-char (point-min)) | 676 | (save-excursion |
| 677 | ;; iterate over all BCC: lines | 677 | (goto-char (point-min)) |
| 678 | (while (re-search-forward "^\(RESENT-\)?BCC:" header-end t) | 678 | ;; iterate over all BCC: lines |
| 679 | (delete-region (match-beginning 0) (progn (forward-line 1) (point))) | 679 | (while (re-search-forward "^\\(RESENT-\\)?BCC:" header-end t) |
| 680 | ;; get rid of any continuation lines | 680 | (delete-region (match-beginning 0) |
| 681 | (while (and (looking-at "^[ \t].*\n") (< (point) header-end)) | 681 | (progn (forward-line 1) (point))) |
| 682 | (replace-match "")) | 682 | ;; get rid of any continuation lines |
| 683 | ) | 683 | (while (and (looking-at "^[ \t].*\n") (< (point) header-end)) |
| 684 | ) ;; save-excursion | 684 | (replace-match "")))))) |
| 685 | ) ;; let | ||
| 686 | ) | ||
| 687 | |||
| 688 | 685 | ||
| 689 | 686 | ||
| 690 | (provide 'smtpmail) | 687 | (provide 'smtpmail) |