Function: sc-mail-process-headers

sc-mail-process-headers is an interactive and byte-compiled function defined in supercite.el.gz.

Signature

(sc-mail-process-headers START END)

Documentation

Process original mail message's mail headers.

After processing, mail headers may be nuked. Header information is stored in sc-mail-info, and any old information is lost unless an error occurs.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/mail/supercite.el.gz
;; mail processing and zapping. this is the top level entry defun to
;; all header processing.
(defun sc-mail-process-headers (start end)
  "Process original mail message's mail headers.
After processing, mail headers may be nuked.  Header information is
stored in `sc-mail-info', and any old information is lost unless an
error occurs."
  (interactive "r")
  (let ((info (copy-alist sc-mail-info))
	(attribs (copy-alist sc-attributions)))
    (setq sc-mail-info nil
	  sc-attributions nil)
    (regi-interpret sc-mail-glom-frame start end)
    (if (null sc-mail-info)
	(progn
	  (message "No mail headers found! Restoring old information.")
	  (setq sc-mail-info info
		sc-attributions attribs))
      (regi-interpret (sc-mail-build-nuke-frame)
		      sc-mail-headers-start sc-mail-headers-end))))