Lines Matching +defs:print +defs:level
214 "*Default article score level.
296 (defcustom gnus-thread-indent-level 4
898 (defcustom gnus-ps-print-hook nil
1153 (defvar gnus-thread-indent-array-level gnus-thread-indent-level)
1198 (?T (if (= gnus-tmp-level 0) "" (make-string (frame-width) ? )) ?s)
1202 (?\> (make-string gnus-tmp-level ? ) ?s)
1203 (?\< (make-string (max 0 (- 20 gnus-tmp-level)) ? ) ?s)
1212 (and (boundp 'thread) (car thread)) gnus-tmp-level)
1215 (and (boundp 'thread) (car thread)) gnus-tmp-level t)
1881 "P" gnus-summary-print-article
2268 ["Print" gnus-summary-print-article
2270 '(:help "Generate and print a PostScript image"))])
2612 (gnus-summary-print-article "print")
2668 (gnus-summary-print-article "gnus/print" nil :visible nil)
2916 (defmacro gnus-data-level (data)
2936 (defmacro gnus-data-make (number mark pos header level)
2937 `(list ,number ,mark ,pos ,header ,level))
2939 (defun gnus-data-enter (after-article number mark pos header level offset)
2943 (setcdr data (cons (gnus-data-make number mark pos header level)
3021 (< (gnus-data-level (car data)) ; And it has to have a higher level.
3022 (gnus-data-level (nth 1 data))))))
3027 (level (gnus-data-level (car data)))
3031 (= (gnus-data-level (car data)) (1+ level)))
3069 (defmacro gnus-summary-thread-level (&optional number)
3070 "Return the level of thread that starts with article NUMBER."
3074 (gnus-data-level (gnus-data-find
3108 (level (gnus-data-level (car data)))
3111 (> (setq l (gnus-data-level (car data))) level))
3112 (and (= (1+ level) l)
3121 (level (gnus-data-level (car data))))
3122 (if (zerop level)
3124 ;; We search until we find an article with a level less than
3127 (not (< (gnus-data-level (car data)) level))))
3360 (/= gnus-thread-indent-level gnus-thread-indent-array-level))
3362 gnus-thread-indent-array-level gnus-thread-indent-level)
3365 (make-string (* n gnus-thread-indent-level) ? ))
3460 gnus-tmp-level gnus-tmp-current
3465 (if (>= gnus-tmp-level (length gnus-thread-indent-array))
3467 gnus-tmp-level)))
3468 (let* ((gnus-tmp-indentation (aref gnus-thread-indent-array gnus-tmp-level))
3565 (defun gnus-summary-number-of-articles-in-thread (thread &optional level char)
3583 (when (and level (zerop level) gnus-tmp-new-adopts)
4307 (level (gnus-summary-thread-level)))
4312 header level nil
4466 (let ((level (gnus-summary-thread-level article))
4470 ((null level) nil)
4471 ((zerop level) t)
4474 ((and (= 1 level)
4477 (null (gnus-summary-thread-level particle)))))))
4845 (let ((gnus-tmp-level 0)
4874 (if (and (= gnus-tmp-level 0)
4880 (setq gnus-tmp-level (if gnus-tmp-root-expunged 0 1)
4897 gnus-tmp-level (car state)
4922 (setq gnus-tmp-level -1
4925 ;; We print adopted articles with empty subject fields.
4931 (setq gnus-tmp-level -1))
4940 (setq gnus-tmp-level -1)))
4950 (not (zerop gnus-tmp-level))
4970 (when (zerop gnus-tmp-level)
5004 gnus-tmp-header gnus-tmp-level)
5015 ((zerop gnus-tmp-level)
5024 (= gnus-tmp-level 1)
5030 (if (>= gnus-tmp-level (length gnus-thread-indent-array))
5033 gnus-tmp-level)))
5036 (aref gnus-thread-indent-array gnus-tmp-level)
5087 ((zerop gnus-tmp-level)
5123 (push (list (max 0 gnus-tmp-level)
5128 (incf gnus-tmp-level)
5142 (setq gnus-tmp-level 0)))))
5864 (<= (gnus-info-level info) gnus-level-subscribed))
6336 (defun gnus-summary-search-group (&optional backward use-level)
6342 backward nil (if use-level (gnus-group-group-level) nil))
7086 (if (eq gnus-keep-same-level 'best)
7088 (gnus-summary-search-group backward gnus-keep-same-level))))
7377 (if (eq gnus-keep-same-level 'best)
7379 (gnus-summary-search-group backward gnus-keep-same-level))))
7415 (if (eq gnus-keep-same-level 'best)
7417 (gnus-summary-search-group backward gnus-keep-same-level))))
8816 (defun gnus-summary-print-truncate-and-quote (string &optional len)
8823 (defun gnus-summary-print-article (&optional filename n)
8824 "Generate and print a PostScript image of the process-marked (mail) articles.
8826 If used interactively, print the current article if none are
8831 to print the next N articles. If N is negative, print the N previous
8833 mark, print these instead.
8839 (interactive (list (ps-print-preprint current-prefix-arg)))
8843 (gnus-print-buffer))
8847 (defun gnus-print-buffer ()
8848 (let ((buffer (generate-new-buffer " *print*")))
8865 (gnus-summary-print-truncate-and-quote
8869 (gnus-summary-print-truncate-and-quote
8877 (gnus-run-hooks 'gnus-ps-print-hook)
10637 (top-level (gnus-data-level (car data)))
10663 (> (gnus-data-level (car data)) top-level))
10829 "Go to the same level (or less) next thread.
10832 (let ((level (gnus-summary-thread-level))
10837 (< level (gnus-summary-thread-level)))
10849 "Go to the same level next N'th thread.
10868 "Go to the same level previous N'th thread.
10875 "Go down one level in the current thread."
10881 "Go up one level in the current thread."