Lines Matching +defs:ps +defs:print +defs:header
276 "*If non-nil, which is the default, ignore subjects and do all threading based on the Reference header.
841 (mapcar (lambda (header)
842 (mail-header-set-subject
843 header
845 (mail-header-subject header) 're-only)))
898 (defcustom gnus-ps-print-hook nil
899 "*A hook run before ps-printing something from Gnus."
994 (defcustom gnus-alter-header-function nil
995 "Function called to allow alteration of article header structures.
996 The function is called with one parameter, the article header vector,
1120 "If non-nil, don't require MIME-Version header.
1122 supply the MIME-Version header or deliberately strip it from the mail.
1124 the MIME-Version header is missed."
1178 `((?N ,(macroexpand '(mail-header-number gnus-tmp-header)) ?d)
1179 (?S ,(macroexpand '(mail-header-subject gnus-tmp-header)) ?s)
1187 (?x ,(macroexpand '(mail-header-xref gnus-tmp-header)) ?s)
1188 (?D ,(macroexpand '(mail-header-date gnus-tmp-header)) ?s)
1189 (?d (gnus-dd-mmm (mail-header-date gnus-tmp-header)) ?s)
1190 (?o (gnus-date-iso8601 (mail-header-date gnus-tmp-header)) ?s)
1191 (?M ,(macroexpand '(mail-header-id gnus-tmp-header)) ?s)
1192 (?r ,(macroexpand '(mail-header-references gnus-tmp-header)) ?s)
1193 (?c (or (mail-header-chars gnus-tmp-header) 0) ?d)
1194 (?k (gnus-summary-line-message-size gnus-tmp-header) ?s)
1206 (?l (bbb-grouplens-score gnus-tmp-header) ?s)
1209 (?f (gnus-summary-from-or-to-or-newsgroups gnus-tmp-header gnus-tmp-from)
1219 (?B gnus-tmp-thread-tree-header-string ?s)
1221 ,(macroexpand '(mail-header-date gnus-tmp-header))) ?s))
1730 "t" gnus-summary-toggle-header
1881 "P" gnus-summary-print-article
1904 "t" gnus-summary-toggle-header
1936 (gnus-define-keys (gnus-summary-wash-header-map "G" gnus-summary-wash-map)
2238 ["Verbose header" gnus-summary-verbose-headers t]
2239 ["Toggle header" gnus-summary-toggle-header t]
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)
2737 ("extra header" "extra" string)
2750 header)
2760 (setq header (car headers))
2765 (list (car header))
2766 (let ((ts (cdr (assoc (nth 2 header) types)))
2774 (let ((ps perms)
2776 (while ps
2780 (caar ps)
2783 (nth 1 header)
2784 (if (or (string= (nth 1 header)
2786 (string= (nth 1 header)
2789 (list 'gnus-summary-header
2790 (nth 1 header)))
2794 (nth 1 (car ps))
2798 (setq ps (cdr ps)))
2910 (defmacro gnus-data-header (data)
2913 (defmacro gnus-data-set-header (data header)
2914 `(setf (nth 3 ,data) ,header))
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)
3007 (not (vectorp (gnus-data-header (gnus-data-find article)))))
3064 (defmacro gnus-summary-article-header (&optional number)
3065 "Return the header of article NUMBER."
3066 `(gnus-data-header (gnus-data-find
3092 `(gnus-data-header (assq ,number gnus-newsgroup-data))
3093 '(gnus-data-header (assq (gnus-summary-article-number)
3097 (mail-header-subject headers))))
3384 (header [0 "" "" "05 Apr 2001 23:33:09 +0400" "" "" 0 0 "" nil])
3387 (gnus-summary-insert-line header
3401 (gnus-summary-insert-line header
3436 (defun gnus-summary-from-or-to-or-newsgroups (header gnus-tmp-from)
3446 (let ((extra-headers (mail-header-extra header))
3459 (defun gnus-summary-insert-line (gnus-tmp-header
3469 (gnus-tmp-lines (mail-header-lines gnus-tmp-header))
3478 (gnus-tmp-number (mail-header-number gnus-tmp-header))
3500 (gnus-tmp-from (mail-header-from gnus-tmp-header))
3512 (gnus-tmp-subject (mail-header-subject gnus-tmp-header))
3580 ((memq (mail-header-number (car thread)) gnus-newsgroup-limit)
3597 (let ((c (or (mail-header-chars head) -1)))
3885 (setq whole-subject (mail-header-subject
3924 (when (setq references (mail-header-references (caar threads)))
3925 (setq id (mail-header-id (caar threads))
3939 (setcar gthread (list (mail-header-subject (caar gthread))
4017 (defsubst gnus-dependencies-add-header (header dependencies force-new)
4029 (let* ((id (mail-header-id header))
4031 parent-id ref ref-dep ref-header replaced)
4032 ;; Enter this `header' in the `dependencies' table.
4035 (setq header nil))
4036 ;; The first two cases do the normal part: enter a new `header'
4039 (set id-dep (list header)))
4041 (setcar (symbol-value id-dep) header))
4043 ;; From here the `header' was already present in the
4047 ;; just set the header part of the entry.
4048 (setcar (symbol-value id-dep) header)
4051 ;; Renames the existing `header' to a unique Message-ID.
4056 (list header))
4057 (mail-header-set-id header id))
4062 ;; Also sets `header' to `nil' meaning that the `dependencies'
4065 (mail-header-set-xref
4067 (concat (or (mail-header-xref (car (symbol-value id-dep)))
4069 (or (mail-header-xref header) "")))
4070 (setq header nil)))
4072 (when (and header (not replaced))
4074 (setq parent-id (gnus-parent-id (mail-header-references header)))
4079 (setq ref-header (car (symbol-value ref-dep))))
4084 (mail-header-set-references (car (symbol-value id-dep)) "none")
4087 (setq ref (gnus-parent-id (mail-header-references ref-header)))))
4094 header))
4105 header references generation relations
4113 (while (setq header (pop headers))
4114 (when (and (setq references (mail-header-references header))
4117 (setq child (mail-header-id header)
4118 subject (mail-header-subject header)
4119 date (mail-header-date header)
4136 (when (gnus-dependencies-add-header
4137 (make-full-mail-header
4163 (if (memq (mail-header-number (caar heads))
4167 (while (and (setq id (gnus-build-get-header id))
4184 header references in-reply-to)
4193 (setq header
4194 (make-full-mail-header
4220 (setq in-reply-to (mail-header-extra header))
4222 (mail-header-set-references
4223 header (gnus-extract-message-id-from-in-reply-to in-reply-to)))
4225 (when gnus-alter-header-function
4226 (funcall gnus-alter-header-function header))
4227 (gnus-dependencies-add-header header dependencies force-new)))
4229 (defun gnus-build-get-header (id)
4230 "Look through the buffer of NOV lines and find the header to ID.
4234 found header)
4250 (setq header (gnus-nov-parse-line
4252 (gnus-parent-id (mail-header-references header))))))
4253 (when header
4254 (let ((number (mail-header-number header)))
4256 (push header gnus-newsgroup-headers)
4271 header article)
4279 header (gnus-nov-parse-line article dependencies)))
4280 (when header
4283 (push header gnus-newsgroup-headers)
4284 (if (memq (setq article (mail-header-number header))
4295 (defun gnus-summary-update-article-line (article header)
4297 (let* ((id (mail-header-id header))
4302 (setcar thread header)
4312 header level nil
4323 (mail-header-subject
4324 (gnus-data-header
4331 (mail-header-subject header)))
4333 (mail-header-subject header))
4345 (let* ((header (gnus-summary-article-header article))
4346 (id (mail-header-id header))
4349 (references (mail-header-references header))
4364 (if (gnus-summary-insert-subject id header)
4391 (mail-header-id (caar thread)))))
4422 (defun gnus-number-to-header (number)
4423 "Return the header for article NUMBER."
4426 (not (= number (mail-header-number (car headers)))))
4440 (setq references (mail-header-references headers)))
4458 (mail-header-number (car thread)))))
4460 (defun gnus-id-to-header (id)
4467 (refs (mail-header-references (gnus-summary-article-header article)))
4484 id (gnus-parent-id (mail-header-references prev))))
4489 (cons (mail-header-number (car thread))
4539 (mail-header-number (caadr thread)))
4551 (let ((number (mail-header-number (pop thread)))
4618 (defmacro gnus-thread-header (thread)
4619 "Return header of first article in THREAD.
4629 (< (mail-header-number h1)
4630 (mail-header-number h2)))
4635 (gnus-thread-header h1) (gnus-thread-header h2)))
4644 (gnus-thread-header h1) (gnus-thread-header h2)))
4647 "Sort articles by article Lines header."
4648 (< (mail-header-lines h1)
4649 (mail-header-lines h2)))
4652 "Sort threads by root article Lines header."
4654 (gnus-thread-header h1) (gnus-thread-header h2)))
4658 (< (mail-header-chars h1)
4659 (mail-header-chars h2)))
4664 (gnus-thread-header h1) (gnus-thread-header h2)))
4671 (mail-header-from h1))))
4675 (mail-header-from h2))))
4681 (gnus-thread-header h1) (gnus-thread-header h2)))
4686 (downcase (gnus-simplify-subject-re (mail-header-subject h1)))
4687 (downcase (gnus-simplify-subject-re (mail-header-subject h2)))))
4692 (gnus-thread-header h1) (gnus-thread-header h2)))
4697 (gnus-date-get-time (mail-header-date h1))
4698 (gnus-date-get-time (mail-header-date h2))))
4703 (gnus-thread-header h1) (gnus-thread-header h2)))
4708 (> (or (cdr (assq (mail-header-number h1)
4711 (or (cdr (assq (mail-header-number h2)
4718 (gnus-thread-header h1) (gnus-thread-header h2)))
4744 (apply 'max (mapcar (lambda (header)
4745 (mail-header-number header))
4757 (lambda (header)
4760 (time-to-seconds (mail-header-parse-date
4761 (mail-header-date header)))
4766 (< (mail-header-number h1)
4767 (mail-header-number h2))))))))
4775 (cdr (gnus-id-to-thread (mail-header-id root))))
4776 (when (> (mail-header-number root) 0)
4777 (list (or (cdr (assq (mail-header-number root)
4789 (eval-when-compile (defvar gnus-tmp-header))
4790 (defun gnus-extra-header (type &optional header)
4791 "Return the extra header of TYPE."
4792 (or (cdr (assq type (mail-header-extra (or header gnus-tmp-header))))
4795 (defvar gnus-tmp-thread-tree-header-string "")
4852 gnus-tmp-header gnus-tmp-unread gnus-tmp-downloaded
4860 gnus-tmp-thread-tree-header-string "")
4882 gnus-tmp-header (caar thread)
4886 gnus-tmp-header (caar thread)
4893 gnus-tmp-header (caar thread))
4901 gnus-tmp-header (caar thread))))
4907 (if (stringp gnus-tmp-header)
4908 ;; The header is a dummy root.
4916 (lambda (h) (mail-header-number (car h)))
4925 ;; We print adopted articles with empty subject fields.
4928 (lambda (h) (mail-header-number (car h)))
4935 (setq gnus-tmp-dummy-line gnus-tmp-header)
4936 (setq gnus-tmp-prev-subject gnus-tmp-header))
4942 (setq number (mail-header-number gnus-tmp-header)
4943 subject (mail-header-subject gnus-tmp-header)
4955 gnus-tmp-header nil))
4961 (lambda (h) (mail-header-number (car h)))
4969 gnus-tmp-header nil)
4989 (when gnus-tmp-header
4995 (mail-header-subject gnus-tmp-header)))
4997 gnus-tmp-dummy-line (mail-header-number gnus-tmp-header))
5004 gnus-tmp-header gnus-tmp-level)
5037 gnus-tmp-lines (mail-header-lines gnus-tmp-header)
5070 gnus-tmp-from (mail-header-from gnus-tmp-header)
5084 gnus-tmp-thread-tree-header-string
5147 (let (header number mark)
5153 (when (memq (setq number (mail-header-number
5154 (setq header (pop headers))))
5170 (push (gnus-data-make number mark (1+ (point)) header 0)
5173 header 0 number
5177 (mail-header-subject header) nil
5188 (dolist (header gnus-newsgroup-headers)
5189 (setq subject (mail-header-subject header)
5205 (mail-header-set-subject header subject))))))
5354 (mapcar (lambda (headers) (mail-header-number headers))
5386 (mail-header-number (car gnus-newsgroup-headers))
5388 (mail-header-number
5775 (mail-header-subject gnus-current-headers))
5778 gnus-tmp-header) ;; passed as argument to any user-format-funcs
5811 start group entry number xrefs header)
5813 (setq header (pop headers))
5814 (when (and (setq xrefs (mail-header-xref header))
5815 (not (memq (setq number (mail-header-number header))
5969 in-reply-to header p lines chars)
5971 ;; Search to the beginning of the next header. Error messages
5983 header
5999 (nnheader-header-value))
6006 (nnheader-header-value))
6012 (nnheader-header-value) ""))
6032 (nnheader-header-value)
6042 ;; Get the references from the in-reply-to header if there
6043 ;; were no references and the in-reply-to header looks
6046 (setq in-reply-to (nnheader-header-value))
6076 (nnheader-header-value)))
6085 (push (cons (car extra) (nnheader-header-value))
6092 (when gnus-alter-header-function
6093 (funcall gnus-alter-header-function header)
6094 (setq id (mail-header-id header)
6095 ref (gnus-parent-id (mail-header-references header))))
6097 (when (setq header
6098 (gnus-dependencies-add-header
6099 header dependencies force-new))
6100 (push header headers))
6127 number headers header)
6147 (setq header (inline
6150 (push header headers))
6175 (and (mail-header-xref headers)
6176 (not (string= (mail-header-xref headers) "")))
6188 (mail-header-set-xref headers xref)))))))
6190 (defun gnus-summary-insert-subject (id &optional old-header use-old-header)
6192 OLD-HEADER can either be a header or a line number to insert
6194 (let* ((line (and (numberp old-header) old-header))
6195 (old-header (and (vectorp old-header) old-header))
6196 (header (cond ((and old-header use-old-header)
6197 old-header)
6199 (gnus-number-to-header id))
6200 (gnus-number-to-header id))
6202 (gnus-read-header id))))
6205 (when header
6209 old-header)
6211 (setq d (gnus-data-find (mail-header-number old-header))))
6221 (let ((gnus-newsgroup-headers (list header)))
6223 (when old-header
6224 (mail-header-set-number header (mail-header-number old-header)))
6226 (delq (setq number (mail-header-number header))
6230 (gnus-rebuild-thread (mail-header-id header) line)
6245 (and header (mail-header-number header))))
6440 (vectorp (gnus-data-header (car arts)))
6442 simp-subject (mail-header-subject (gnus-data-header (car arts))) t)
7211 "Insert the subject header for ARTICLES in the current buffer."
7256 (defun gnus-summary-display-article (article &optional all-header)
7271 (funcall gnus-summary-display-article-function article all-header)
7272 (gnus-article-prepare article all-header))
7287 If ALL-HEADERS is non-nil, show all header fields. If FORCE is
7717 If ALL-HEADERS is non-nil, no header lines are hidden.
7777 (list (mapcar (lambda (h) (mail-header-number h))
7785 (defun gnus-summary-limit-to-subject (subject &optional header not-matching)
7793 (unless header
7794 (setq header "subject"))
7798 (or header "subject") subject 'all nil nil
7845 (when (and (vectorp (gnus-data-header d))
7846 (setq date (mail-header-date (gnus-data-header d))))
7859 (defun gnus-summary-limit-to-extra (header regexp &optional not-matching)
7860 "Limit the summary buffer to articles that match an 'extra' header."
7862 (let ((header
7867 "Exclude extra header"
7868 "Limit extra header")
7874 (list header
7875 (read-string (format "%s header %s (regexp): "
7877 header))
7882 (cons 'extra header) regexp 'all nil nil
7978 (interactive (list (mail-header-id (gnus-summary-article-header))))
7986 (mail-header-subject (gnus-id-to-header id)))))
7989 (defun gnus-summary-limit-include-matching-articles (header regexp)
7991 (interactive (list (read-string "Match on header: ")
7993 (let ((articles (gnus-find-matching-articles header regexp)))
8055 (mapcar (lambda (h) (mail-header-number h))
8116 (when (memq (mail-header-number (caar threads)) gnus-newsgroup-limit)
8132 (gnus-summary-article-sparse-p (mail-header-number (car thread)))
8134 (mail-header-number (car thread))))
8138 (delq (mail-header-number (car thread))
8144 (if (memq (mail-header-number (caar th))
8218 (number (mail-header-number (car thread)))
8268 (mail-header-id (car thread))))
8282 (let* ((number (mail-header-number (car thread))))
8302 error header ref)
8308 (setq header (gnus-summary-article-header))
8309 (if (and (eq (mail-header-number header)
8315 ;; References header, since this is slightly more
8328 (mail-header-references header)))
8341 "Fetch all articles mentioned in the References header.
8344 (let ((ref (mail-header-references (gnus-summary-article-header)))
8350 ;; For each Message-ID in the References header...
8366 (let ((id (mail-header-id (gnus-summary-article-header)))
8375 (+ (mail-header-number
8376 (gnus-summary-article-header))
8405 (let* ((header (gnus-id-to-header message-id))
8406 (sparse (and header
8408 (mail-header-number header))
8409 (memq (mail-header-number header)
8414 ((and header
8416 (mail-header-number header)))
8420 (mail-header-number header) nil t)
8422 (gnus-summary-update-article (mail-header-number header)))))
8428 ;; Fetch the header,
8703 (defun gnus-find-matching-articles (header regexp)
8708 (func `(lambda (h) (,(intern (concat "mail-header-" header)) h)))
8710 (dolist (header gnus-newsgroup-headers)
8711 (when (string-match regexp (funcall func header))
8712 (push (mail-header-number header) articles)))
8715 (defun gnus-summary-find-matching (header regexp &optional backward unread
8726 (if (consp header)
8727 (if (eq (car header) 'extra)
8730 (or (cdr (assq ',(cdr header) (mail-header-extra h)))
8732 (error "%s is an invalid header" header))
8733 (unless (fboundp (intern (concat "mail-header-" header)))
8734 (error "%s is not a valid header" header))
8735 (setq func `(lambda (h) (,(intern (concat "mail-header-" header)) h))))
8743 (vectorp (gnus-data-header d)) ; It's not a pseudo.
8747 (funcall func (gnus-data-header d))))
8749 (funcall func (gnus-data-header d)))))
8753 (defun gnus-summary-execute-command (header regexp command &optional backward)
8761 (mapcar (lambda (header) (list (format "%s" header)))
8770 (when (equal header "Body")
8771 (setq header ""))
8786 (gnus-execute header regexp
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))
8845 (ps-despool filename))
8847 (defun gnus-print-buffer ()
8848 (let ((buffer (generate-new-buffer " *print*")))
8862 (let ((ps-left-header
8865 (gnus-summary-print-truncate-and-quote
8866 (mail-header-subject gnus-current-headers)
8869 (gnus-summary-print-truncate-and-quote
8870 (mail-header-from gnus-current-headers)
8872 (ps-right-header
8876 (mail-header-date gnus-current-headers) ")"))))
8877 (gnus-run-hooks 'gnus-ps-print-hook)
8880 (ps-spool-buffer-with-faces)
8881 (ps-spool-buffer)))))
8906 head header lines)
8924 (setq header (car (gnus-get-newsgroup-headers deps t))))))
8925 (gnus-data-set-header
8927 header)
8929 (cdr gnus-article-current) header)
8964 "Toggle permanent full header display.
8965 If ARG is a positive number, turn header display on.
8966 If ARG is a negative number, turn header display off."
8976 (defun gnus-summary-toggle-header (&optional arg)
8978 If ARG is a positive number, show the entire header.
8979 If ARG is a negative number, hide the unwanted header lines."
9019 "Make all header lines visible."
9021 (gnus-summary-toggle-header 1))
9029 (let ((mail-header-separator ""))
9048 (let ((mail-header-separator ""))
9182 (let ((xref (message-tokenize-header
9183 (mail-header-xref (gnus-summary-article-header article))
9205 ;; Now we have the new Xrefs header, so we insert
9207 (nnheader-replace-header "Xref" new-xref)
9223 (gnus-data-header
9299 ;; Update the Xref header in this article to point to
9305 (nnheader-replace-header "Xref" new-xref)
9312 (gnus-data-header
9481 (let ((id (mail-header-references (gnus-summary-article-header)))
9542 (gnus-data-header
9600 (id (mail-header-id (gnus-data-header
9684 ,(or (mail-header-references gnus-current-headers) "")
9726 (equal (message-tokenize-header references " ")
9727 (message-tokenize-header
9735 header)
9742 (setq header (car (gnus-get-newsgroup-headers
9746 (gnus-data-set-header
9748 header)
9750 (cdr gnus-article-current) header)
10129 (vectorp (gnus-summary-article-header article))
10176 (vectorp (gnus-summary-article-header article))
10461 (unless (gnus-summary-article-header (caar scored))
10462 (and (setq h (gnus-number-to-header (caar scored)))
10472 (mapcar (lambda (x) (push (mail-header-number x)
10641 (mail-header-subject (gnus-data-header (car data)))))
10644 (mail-header-subject (gnus-data-header (car data)))))
10656 (mail-header-subject
10657 (gnus-data-header (car data))))
10659 (mail-header-subject
10660 (gnus-data-header (car data)))))))
10673 (id (mail-header-id (gnus-summary-article-header)))
10702 (let ((message-id (mail-header-id
10703 (gnus-summary-article-header parent-article))))
10775 (defun gnus-article-unread-p (header)
10776 (memq (mail-header-number header) gnus-newsgroup-unreads))
10778 (defun gnus-article-unseen-p (header)
10779 (memq (mail-header-number header) gnus-newsgroup-unseen))
10785 (gnus-summary-article-header number))
11062 header file)
11064 (setq header (gnus-summary-article-header article))
11065 (if (not (vectorp header))
11067 (if (assq 'name header)
11068 (gnus-copy-file (cdr (assq 'name header)))
11194 (let ((mail-header-separator ""))
11361 (let ((ps (setq pslist (sort pslist 'gnus-pseudos<)))
11363 (while ps
11364 (setq action (cdr (assq 'action (car ps))))
11365 (setq files (list (cdr (assq 'name (car ps)))))
11366 (while (and ps (cdr ps)
11368 (or (cdr (assq 'action (cadr ps))) "2")))
11369 (push (cdr (assq 'name (cadr ps))) files)
11370 (setcdr ps (cddr ps)))
11375 (when (assq 'execute (car ps))
11376 (setcdr (assq 'execute (car ps))
11386 (setq ps (cdr ps)))))
11453 (setq gnus-current-headers (gnus-summary-article-header))
11459 (defun gnus-read-header (id &optional header)
11468 ;; First we check to see whether the header in question is already
11472 (setq header (or header (gnus-id-to-header id)))
11474 (setq header (or header (gnus-summary-article-header id))))
11475 (if (and header
11476 (not (gnus-summary-article-sparse-p (mail-header-number header))))
11477 ;; We have found the header.
11478 header
11479 ;; We have to really fetch the header to this article.
11491 (header (mail-header-number header))
11496 (not (setq header (car (gnus-get-newsgroup-headers nil t)))))
11498 (unless (gnus-summary-article-sparse-p (mail-header-number header))
11505 (mail-header-set-number header gnus-reffed-article-number))
11509 (gnus-remove-header (mail-header-number header))
11510 (push header gnus-newsgroup-headers)
11511 (setq gnus-current-headers header)
11512 (push (mail-header-number header) gnus-newsgroup-limit)))
11513 header)))))
11515 (defun gnus-remove-header (number)
11516 "Remove header NUMBER from `gnus-newsgroup-headers'."
11518 (= number (mail-header-number (car gnus-newsgroup-headers))))
11522 (not (= number (mail-header-number (cadr headers)))))
11735 "Add a Content-Type header to a multipart article without one."
11739 (message-remove-header "Mime-Version")
11746 (message-remove-header "Content-Type")
11844 (mail-header-number h))
11870 (mail-header-number (car gnus-newsgroup-headers))
11872 (mail-header-number