Lines Matching +defs:nnheader +defs:insert +defs:head
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
64 "*Max length of the head of articles.
67 indefinitely until a complete head is found\; t means always read the
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
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)
261 (insert "\n")
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)
366 (insert-buffer-substring cur beg end)
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)
422 (insert
432 (insert "\t")
434 (insert "\t")
436 (insert "Xref: " (mail-header-xref header)))
439 (insert "\t"))
443 (insert (symbol-name (caar extra))
446 (insert "\n")
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)
469 (insert
477 (insert "\n\n"))
479 (defun nnheader-insert-article-line (article)
481 (insert "220 ")
483 (insert " Article retrieved.\n")
487 (insert "."))
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)
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'
595 ;; `insert-file-contents' returns.
597 (while (and (eq nnheader-head-chop-length
598 (nth 1 (mm-insert-file-contents
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 ()
625 (defun nnheader-insert-references (references message-id)
635 (insert references))
637 (insert " "))
639 (insert message-id))
645 (defun nnheader-replace-header (header new-value)
646 "Remove HEADER and insert the NEW-VALUE."
649 (nnheader-narrow-to-headers)
653 (insert header ": " new-value "\n")))))
655 (defun nnheader-narrow-to-headers ()
656 "Narrow to the head of an article."
665 (defun nnheader-remove-body ()
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)
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)
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)
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)
805 "Clear the communication buffer and insert FORMAT and ARGS into the buffer.
812 (insert (apply 'format format args))
813 (apply 'insert format 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)
937 "Like `insert-file-contents', q.v., but only reads in the file.
942 (let ((coding-system-for-read nnheader-file-coding-system))
943 (mm-insert-file-contents filename visit beg end replace)))
945 (defun nnheader-insert-nov-file (file first)
951 (nnheader-insert-file-contents file)
953 ;; not, we just insert the rest of the file as well.
955 (nnheader-insert-file-contents file nil (- size cutoff) size)
963 (nnheader-insert-file-contents file)))))))
965 (defun nnheader-find-file-noselect (&rest args)
972 (after-insert-file-functions nil)
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*"))
1012 (insert-buffer-substring
1015 ,(when to `(insert ,to))
1018 (insert-buffer-substring
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