lisp/gnus/nnheader.el

8 ;;	Lars Magne Ingebrigtsen <larsi@gnus.org>
36 ;; Requiring `gnus-util' at compile time creates a circular
37 ;; dependency between nnheader.el and gnus-util.el.
38 ;;(eval-when-compile (require 'gnus-util))
40 (require 'mail-utils)
42 (require 'gnus-util)
44   (autoload 'gnus-sorted-intersection "gnus-range")
45   (autoload 'gnus-intersection "gnus-range")
46   (autoload 'gnus-sorted-complement "gnus-range")
47   (autoload 'gnus-sorted-difference "gnus-range"))
49 (defcustom gnus-verbose-backends 7
55   :group 'gnus-start
58 (defcustom gnus-nov-is-evil nil
60   :group 'gnus-server
116   (autoload 'mail-position-on-field "sendmail")
118   (autoload 'gnus-point-at-eol "gnus-util")
119   (autoload 'gnus-buffer-live-p "gnus-util"))
134 (defmacro mail-header-number (header)
135   "Return article number in HEADER."
138 (defmacro mail-header-set-number (header number)
139   "Set article number of HEADER to NUMBER."
142 (defmacro mail-header-subject (header)
146 (defmacro mail-header-set-subject (header subject)
147   "Set article subject of HEADER to SUBJECT."
150 (defmacro mail-header-from (header)
154 (defmacro mail-header-set-from (header from)
155   "Set article author of HEADER to FROM."
158 (defmacro mail-header-date (header)
162 (defmacro mail-header-set-date (header date)
163   "Set article date of HEADER to DATE."
166 (defalias 'mail-header-message-id 'mail-header-id)
167 (defmacro mail-header-id (header)
171 (defalias 'mail-header-set-message-id 'mail-header-set-id)
172 (defmacro mail-header-set-id (header id)
173   "Set article Id of HEADER to ID."
176 (defmacro mail-header-references (header)
180 (defmacro mail-header-set-references (header ref)
181   "Set article references of HEADER to REF."
184 (defmacro mail-header-chars (header)
185   "Return number of chars of article in HEADER."
188 (defmacro mail-header-set-chars (header chars)
189   "Set number of chars in article of HEADER to CHARS."
192 (defmacro mail-header-lines (header)
196 (defmacro mail-header-set-lines (header lines)
197   "Set article lines of HEADER to LINES."
200 (defmacro mail-header-xref (header)
204 (defmacro mail-header-set-xref (header xref)
205   "Set article XREF of HEADER to xref."
208 (defmacro mail-header-extra (header)
212 (defmacro mail-header-set-extra (header extra)
216 (defsubst make-mail-header (&optional init)
217   "Create a new mail header structure initialized with INIT."
220 (defsubst make-full-mail-header (&optional number subject from date id
223   "Create a new mail header structure initialized with the parameters given."
246   (buffer-substring (point) (gnus-point-at-eol)))
292 		(1- (or (search-forward "<" (gnus-point-at-eol) t)
294 		(or (search-forward ">" (gnus-point-at-eol) t) (point)))
402   (let ((eol (gnus-point-at-eol)))
420   (princ (mail-header-number header) (current-buffer))
424      (or (mail-header-subject header) "(none)") "\t"
425      (or (mail-header-from header) "(nobody)") "\t"
426      (or (mail-header-date header) "") "\t"
427      (or (mail-header-id header)
430      (or (mail-header-references header) "") "\t")
431     (princ (or (mail-header-chars header) 0) (current-buffer))
433     (princ (or (mail-header-lines header) 0) (current-buffer))
435     (when (mail-header-xref header)
436       (insert "Xref: " (mail-header-xref header)))
437     (when (or (mail-header-xref header)
438 	      (mail-header-extra header))
440     (when (mail-header-extra header)
441       (let ((extra (mail-header-extra header)))
470    "Subject: " (or (mail-header-subject header) "(none)") "\n"
471    "From: " (or (mail-header-from header) "(nobody)") "\n"
472    "Date: " (or (mail-header-date header) "") "\n"
473    "Message-ID: " (or (mail-header-id header) (nnmail-message-id)) "\n"
474    "References: " (or (mail-header-references header) "") "\n"
476   (princ (or (mail-header-lines header) 0) (current-buffer))
479 (defun nnheader-insert-article-line (article)
482   (princ article (current-buffer))
499 (defun nnheader-find-nov-line (article)
519 	  (gnus-delete-line))
520 	(cond ((> num article)
522 	      ((< num article)
530     ;; Now we may have found the article we're looking for, or we
533 	       (not (eq num article)))
537 		      (< num article)))
541 	    (= (setq num (read cur)) article)))
542       (unless (eq num article)
545     (eq num article)))
559     (unless (gnus-buffer-live-p nntp-server-buffer)
584   "Insert the head of the article."
612 (defun nnheader-article-p ()
613   "Say whether the current buffer looks like an article."
630     (mail-position-on-field "References")
631     (let ((begin (gnus-point-at-bol))
656   "Narrow to the head of an article."
666   "Remove the body from an article in this current buffer."
696   "Take a FILE name and return the article number."
720   "Return a list of all article files in directory DIR."
728 (defun nnheader-article-to-file-alist (dir)
729   "Return an alist of article/file pairs in DIR."
849   (if (or (not (numberp gnus-verbose-backends))
850 	  (<= level gnus-verbose-backends))
856   (or (not (numberp gnus-verbose-backends))
857       (<= level gnus-verbose-backends)))