Function: nnfeed--print-content

nnfeed--print-content is a byte-compiled function defined in nnfeed.el.gz.

Signature

(nnfeed--print-content CONTENT ATTRIBUTES LINKS)

Documentation

Return CONTENT formatted according to ATTRIBUTES, with LINKS possibly added.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/nnfeed.el.gz
;; The default content printing function, which should be suitable for
;; most inheriting backends.

(defun nnfeed--print-content (content attributes links)
  "Return CONTENT formatted according to ATTRIBUTES, with LINKS possibly added."
  (let ((links (and (memq 'links attributes) links)))
    (when (or content links)
      (concat
       (and content (format "%s\n\n" content))
       (mapconcat (lambda (link)
                    (cdr (assoc (cdr (assq 'Content-Type attributes)) link
                                (lambda (types type)
                                  (if (stringp types) (string= types type)
                                    (member type types))))))
                  links)))))