Function: gnus-thread-header

gnus-thread-header is a macro defined in gnus-sum.el.gz.

Signature

(gnus-thread-header THREAD)

Documentation

Return header of first article in THREAD.

Note that THREAD must never, ever be anything else than a variable - using some other form will lead to serious barfage.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-sum.el.gz
;; Written by Hallvard B Furuseth <h.b.furuseth@usit.uio.no>.
(defmacro gnus-thread-header (thread)
  "Return header of first article in THREAD.
Note that THREAD must never, ever be anything else than a variable -
using some other form will lead to serious barfage."
  (or (symbolp thread) (signal 'wrong-type-argument '(symbolp thread)))
  ;; (8% speedup to gnus-summary-prepare, just for fun :-)
  (cond
   ((and (boundp 'lexical-binding) lexical-binding)
    ;; FIXME: This version could be a "defsubst" rather than a macro.
    `(#[257 "\211:\203\16\0\211@;\203\15\0A@@\207"
            [] 2]
      ,thread))
   (t
    ;; Not sure how XEmacs handles these things, so let's keep the old code.
    (list 'byte-code "\10\211:\203\17\0\211@;\203\16\0A@@\207"
          (vector thread) 2))))