Function: nnml--encode-headers

nnml--encode-headers is a byte-compiled function defined in nnml.el.gz.

Signature

(nnml--encode-headers HEADERS)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/nnml.el.gz
;; RFC2047-encode Subject and From, but leave invalid headers unencoded.
(defun nnml--encode-headers (headers)
  (let ((subject (mail-header-subject headers))
	(rfc2047-encoding-type 'mime))
    (unless (string-match "\\`[[:ascii:]]*\\'" subject)
      (let ((encoded-subject
             (ignore-errors (mail-encode-encoded-word-string subject t))))
        (if encoded-subject
            (setf (mail-header-subject headers) encoded-subject)))))
  (let ((from (mail-header-from headers))
	(rfc2047-encoding-type 'address-mime))
    (unless (string-match "\\`[[:ascii:]]*\\'" from)
      (let ((encoded-from
             (ignore-errors (rfc2047-encode-string from t))))
        (if encoded-from
            (setf (mail-header-from headers) encoded-from))))))