Lines Matching +defs:nnheader +defs:article
0 ;;; nnheader.el --- header access macros for Gnus and its backends
37 ;; dependency between nnheader.el and gnus-util.el.
63 (defvar nnheader-max-head-length 8192
68 entire file immediately, disregarding `nnheader-head-chop-length'.
71 `nnheader-head-chop-length'.")
73 (defvar nnheader-head-chop-length 2048
76 (defvar nnheader-read-timeout
92 (defvar nnheader-file-name-translation-alist
108 \(setq nnheader-file-name-translation-alist '((?: . ?_)))")
110 (defvar nnheader-directory-separator-character
135 "Return article number in HEADER."
139 "Set article number of HEADER to NUMBER."
147 "Set article subject of HEADER to SUBJECT."
155 "Set article author of HEADER to FROM."
163 "Set article date of HEADER to DATE."
173 "Set article Id of HEADER to ID."
181 "Set article references of HEADER to REF."
185 "Return number of chars of article in HEADER."
189 "Set number of chars in article of HEADER to CHARS."
197 "Set article lines of HEADER to LINES."
205 "Set article XREF of HEADER to xref."
228 (defvar nnheader-fake-message-id 1)
230 (defsubst nnheader-generate-fake-message-id ()
231 (concat "fake+none+" (int-to-string (incf nnheader-fake-message-id))))
233 (defsubst nnheader-fake-message-id-p (id)
239 (defsubst nnheader-remove-cr-followed-by-lf ()
244 (defsubst nnheader-header-value ()
248 (defun nnheader-parse-naked-head (&optional number)
251 ;; `nnheader-parse-head' instead of this function.
257 (nnheader-remove-cr-followed-by-lf)
276 (nnheader-header-value) "(none)"))
281 (nnheader-header-value) "(nobody)"))
286 (nnheader-header-value) ""))
297 (nnheader-generate-fake-message-id)))
302 (nnheader-header-value)
307 (setq in-reply-to (nnheader-header-value))
333 (nnheader-header-value)))
342 (push (cons (car extra) (nnheader-header-value))
349 (defun nnheader-parse-head (&optional naked)
367 (nnheader-parse-naked-head num)))))
369 (defmacro nnheader-nov-skip-field ()
372 (defmacro nnheader-nov-field ()
373 '(buffer-substring (point) (if (nnheader-nov-skip-field) (1- (point)) eol)))
375 (defmacro nnheader-nov-read-integer ()
385 (defmacro nnheader-nov-parse-extra ()
388 (setq string (nnheader-nov-field))
395 (defmacro nnheader-nov-read-message-id ()
396 '(let ((id (nnheader-nov-field)))
399 (nnheader-generate-fake-message-id))))
401 (defun nnheader-parse-nov ()
404 (nnheader-nov-read-integer) ; number
405 (nnheader-nov-field) ; subject
406 (nnheader-nov-field) ; from
407 (nnheader-nov-field) ; date
408 (nnheader-nov-read-message-id) ; id
409 (nnheader-nov-field) ; refs
410 (nnheader-nov-read-integer) ; chars
411 (nnheader-nov-read-integer) ; lines
416 (nnheader-nov-field)) ; Xref
417 (nnheader-nov-parse-extra)))) ; extra
419 (defun nnheader-insert-nov (header)
452 (defun nnheader-parse-overview-file (file)
455 (nnheader-insert-file-contents file)
459 (push (nnheader-parse-nov) headers)
463 (defun nnheader-write-overview-file (file headers)
466 (mapcar 'nnheader-insert-nov headers)))
468 (defun nnheader-insert-header (header)
479 (defun nnheader-insert-article-line (article)
482 (princ article (current-buffer))
489 (defun nnheader-nov-delete-outside-range (beg end)
492 (nnheader-find-nov-line beg)
495 (when (nnheader-find-nov-line end)
499 (defun nnheader-find-nov-line (article)
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)))
554 (defvar nnheader-callback-function nil)
556 (defun nnheader-init-server-buffer ()
571 (defun nnheader-file-error (file)
583 (defun nnheader-insert-head (file)
584 "Insert the head of the article."
586 (if (eq nnheader-max-head-length t)
588 (nnheader-insert-file-contents file)
589 ;; Read blocks of the size specified by `nnheader-head-chop-length'
597 (while (and (eq nnheader-head-chop-length
600 (incf beg nnheader-head-chop-length))))
604 (or (null nnheader-max-head-length)
605 (< beg nnheader-max-head-length))))
607 (when (mm-coding-system-p nnheader-file-coding-system)
609 nnheader-file-coding-system))))
612 (defun nnheader-article-p ()
613 "Say whether the current buffer looks like an article."
625 (defun nnheader-insert-references (references message-id)
645 (defun nnheader-replace-header (header new-value)
649 (nnheader-narrow-to-headers)
655 (defun nnheader-narrow-to-headers ()
656 "Narrow to the head of an article."
665 (defun nnheader-remove-body ()
666 "Remove the body from an article in this current buffer."
671 (defun nnheader-set-temp-buffer (name &optional noerase)
680 (defvar nnheader-numerical-files
689 (defvar nnheader-numerical-short-files (concat "^" nnheader-numerical-files)
692 (defvar nnheader-numerical-full-files (concat "/" nnheader-numerical-files)
695 (defsubst nnheader-file-to-number (file)
696 "Take a FILE name and return the article number."
697 (if (string= nnheader-numerical-short-files "^[0-9]+$")
699 (string-match nnheader-numerical-short-files file)
702 (defvar nnheader-directory-files-is-safe
709 `nnheader-directory-files-safe' is used.")
711 (defun nnheader-directory-files-safe (&rest args)
719 (defun nnheader-directory-articles (dir)
720 "Return a list of all article files in directory DIR."
721 (mapcar 'nnheader-file-to-number
722 (if nnheader-directory-files-is-safe
724 dir nil nnheader-numerical-short-files t)
725 (nnheader-directory-files-safe
726 dir nil nnheader-numerical-short-files t))))
728 (defun nnheader-article-to-file-alist (dir)
729 "Return an alist of article/file pairs in DIR."
730 (mapcar (lambda (file) (cons (nnheader-file-to-number file) file))
731 (if nnheader-directory-files-is-safe
733 dir nil nnheader-numerical-short-files t)
734 (nnheader-directory-files-safe
735 dir nil nnheader-numerical-short-files t))))
737 (defun nnheader-fold-continuation-lines ()
739 (nnheader-replace-regexp "\\(\r?\n[ \t]+\\)+" " "))
741 (defun nnheader-translate-file-chars (file &optional full)
744 (if (null nnheader-file-name-translation-alist)
783 nnheader-file-name-translation-alist)))
788 (defun nnheader-report (backend &rest args)
797 (defun nnheader-get-report (backend)
800 (nnheader-message 5 "%s" (symbol-value (intern (format "%s-status-string"
802 (error (nnheader-message 5 ""))))
804 (defun nnheader-insert (format &rest args)
816 (defsubst nnheader-replace-chars-in-string (string from to)
819 (defun nnheader-replace-duplicate-chars-in-string (string from to)
834 (defun nnheader-file-to-group (file &optional top)
836 (nnheader-replace-chars-in-string
845 nnheader-directory-separator-character ?.))
847 (defun nnheader-message (level &rest args)
854 (defun nnheader-be-verbose (level)
859 (defvar nnheader-pathname-coding-system 'iso-8859-1
862 (defun nnheader-group-pathname (group dir &optional file)
872 (nnheader-replace-chars-in-string group ?. ?/)
873 nnheader-pathname-coding-system)
879 (defun nnheader-concat (dir &rest files)
883 (defun nnheader-ms-strip-cr ()
886 (nnheader-remove-cr-followed-by-lf)))
888 (defun nnheader-file-size (file)
892 (defun nnheader-find-etc-directory (package &optional file first)
924 (defun nnheader-re-read-dir (path)
933 (defvar nnheader-file-coding-system 'raw-text
936 (defun nnheader-insert-file-contents (filename &optional visit beg end replace)
942 (let ((coding-system-for-read nnheader-file-coding-system))
945 (defun nnheader-insert-nov-file (file first)
951 (nnheader-insert-file-contents file)
955 (nnheader-insert-file-contents file nil (- size cutoff) size)
963 (nnheader-insert-file-contents file)))))))
965 (defun nnheader-find-file-noselect (&rest args)
974 (coding-system-for-read nnheader-file-coding-system)
984 (defun nnheader-directory-regular-files (dir)
994 (defun nnheader-directory-files (&rest args)
1004 (defmacro nnheader-skeleton-replace (from &optional to regexp)
1005 `(let ((new (generate-new-buffer " *nnheader replace*"))
1024 (defun nnheader-replace-string (from to)
1026 (nnheader-skeleton-replace from to))
1028 (defun nnheader-replace-regexp (from to)
1030 (nnheader-skeleton-replace from to t))
1032 (defun nnheader-strip-cr ()
1034 (nnheader-skeleton-replace "\r"))
1036 (defalias 'nnheader-run-at-time 'run-at-time)
1037 (defalias 'nnheader-cancel-timer 'cancel-timer)
1038 (defalias 'nnheader-cancel-function-timers 'cancel-function-timers)
1039 (defalias 'nnheader-string-as-multibyte 'string-as-multibyte)
1041 (defun nnheader-accept-process-output (process)
1044 (truncate nnheader-read-timeout)
1045 (truncate (* (- nnheader-read-timeout
1046 (truncate nnheader-read-timeout))
1052 (run-hooks 'nnheader-load-hook)
1054 (provide 'nnheader)
1057 ;;; nnheader.el ends here