Function: smtpmail-do-bcc

smtpmail-do-bcc is a byte-compiled function defined in smtpmail.el.gz.

Signature

(smtpmail-do-bcc HEADER-END)

Documentation

Delete [Resent-]Bcc: and their continuation lines from the header area.

There may be multiple Bcc: lines, and each may have arbitrarily many continuation lines.

Source Code

;; Defined in /usr/src/emacs/lisp/mail/smtpmail.el.gz
(defun smtpmail-do-bcc (header-end)
  "Delete [Resent-]Bcc: and their continuation lines from the header area.
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 ""))))))