Lines Matching +defs:file +defs:type
9 ;; This file is part of GNU Emacs.
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
160 :type '(choice :custom-show nil
170 :type '(repeat :value-to-internal (lambda (widget value)
185 :type '(repeat regexp)
202 :type '(set (const :tag "Headers with no content." empty)
221 :type 'boolean
229 :type '(choice :format "%{%t%}: %[Value Menu%]\n%v"
242 :type '(choice (const nil)
251 :type 'sexp
258 (if (or (gnus-image-type-available-p 'xface)
259 (gnus-image-type-available-p 'pbm))
262 (if (gnus-image-type-available-p 'pbm)
269 :type `(choice string
278 :type '(choice regexp (const nil))
286 :type '(repeat (cons symbol regexp))
294 :parameter-type
320 :type '(repeat
394 :type
440 :type 'regexp)
490 :type '(choice string symbol)
500 :type 'boolean)
508 `always', there the user will be prompted once for a file name for
511 :type '(choice (item always)
524 :type 'regexp)
536 * gnus-summary-save-in-file (article format)
537 * gnus-summary-save-body-in-file (article body)
539 * gnus-summary-write-to-file (article format -- overwrite)
540 * gnus-summary-write-body-to-file (article body -- overwrite)
546 only with `gnus-summary-save-in-file', `gnus-summary-save-body-in-file',
547 `gnus-summary-write-to-file', and `gnus-summary-write-body-to-file'.
551 overwrites, articles to a file. This implies that when saving many
553 articles are saved in a single file. This is meaningful only with
554 `gnus-summary-write-to-file' and `gnus-summary-write-body-to-file'.
562 :type '(radio (function-item gnus-summary-save-in-rmail)
565 (function-item gnus-summary-save-in-file)
566 (function-item gnus-summary-save-body-in-file)
568 (function-item gnus-summary-write-to-file)
569 (function-item gnus-summary-write-body-to-file)
577 "Coding system used to save decoded articles to a file.
583 * gnus-summary-save-article-file
584 * gnus-summary-save-article-body-file
585 * gnus-summary-write-article-file
586 * gnus-summary-write-article-body-file
590 * gnus-summary-save-in-file
591 * gnus-summary-save-body-in-file
592 * gnus-summary-write-to-file
593 * gnus-summary-write-body-to-file
596 buffer to a file if the value of this variable is non-nil. Note that
597 buttonized MIME parts will be lost in a saved file in that case.
600 :type `(choice
613 "A function generating a file name to save articles in Rmail format.
616 :type 'function)
619 "A function generating a file name to save articles in Unix mail format.
622 :type 'function)
625 "A function generating a file name to save articles in MH folder.
628 :type 'function)
630 (defcustom gnus-file-save-name 'gnus-numeric-save-name
631 "A function generating a file name to save articles in article format.
635 :type 'function)
642 the file \"gnus-stuff\", and articles related to VM in \"vm-stuff\",
657 a possible file name; and if it returns a non-nil list, that list will
658 be used as possible file names."
660 :type '(repeat (choice (list :value (fun) function)
668 :type 'regexp
679 :type 'string
684 :type 'hook
696 :type 'hook
701 :type 'hook
712 :type 'face
720 :type 'face
726 :type 'face
833 :type '(repeat (list (regexp :tag "Header")
846 :type 'hook)
851 :type 'function)
885 :type '(repeat regexp))
893 :type '(repeat regexp))
905 :type '(repeat regexp))
914 :type 'boolean)
922 :type '(choice (item :tag "None" :value nil)
931 :type '(repeat directory)
941 (when (file-exists-p database)
950 :type '(choice (const nil)
957 :type 'alist)
966 :type 'boolean)
978 :type '(choice
986 '(("save to file" . gnus-mime-save-part)
994 ("view as type" . gnus-mime-view-part-as-type)
999 :type '(repeat (cons (string :tag "name")
1034 :type gnus-article-treat-custom)
1043 :type gnus-article-treat-custom)
1052 :type gnus-article-treat-head-custom)
1065 :type gnus-article-treat-custom)
1075 :type gnus-article-treat-custom)
1084 :type gnus-article-treat-custom)
1093 :type gnus-article-treat-custom)
1101 :type gnus-article-treat-head-custom)
1109 :type gnus-article-treat-head-custom)
1117 :type gnus-article-treat-custom)
1125 :type gnus-article-treat-custom)
1133 :type gnus-article-treat-custom)
1141 :type gnus-article-treat-custom)
1150 :type gnus-article-treat-custom)
1161 :type gnus-article-treat-custom)
1170 :type gnus-article-treat-custom)
1178 :type gnus-article-treat-head-custom)
1187 :type gnus-article-treat-custom)
1196 :type gnus-article-treat-head-custom)
1204 :type gnus-article-treat-head-custom)
1213 :type gnus-article-treat-head-custom)
1221 :type gnus-article-treat-head-custom)
1229 :type gnus-article-treat-head-custom)
1238 :type gnus-article-treat-head-custom)
1247 :type gnus-article-treat-head-custom)
1256 :type gnus-article-treat-custom)
1267 :type gnus-article-treat-custom)
1277 :type gnus-article-treat-custom)
1285 :type gnus-article-treat-custom)
1294 :type gnus-article-treat-custom)
1303 :type gnus-article-treat-custom)
1312 :type gnus-article-treat-custom)
1320 :type gnus-article-treat-custom)
1328 (gnus-image-type-available-p 'xbm)
1342 :type gnus-article-treat-head-custom
1364 (gnus-image-type-available-p 'png)
1374 :type gnus-article-treat-head-custom)
1377 (defcustom gnus-treat-display-smileys (gnus-image-type-available-p 'xpm)
1386 :type gnus-article-treat-custom)
1390 (if (and (gnus-image-type-available-p 'xpm)
1402 :type gnus-article-treat-head-custom)
1406 (if (and (gnus-image-type-available-p 'xpm)
1418 :type gnus-article-treat-head-custom)
1422 (if (and (gnus-image-type-available-p 'xpm)
1434 :type gnus-article-treat-head-custom)
1448 :type gnus-article-treat-head-custom)
1457 :type gnus-article-treat-custom)
1466 :type gnus-article-treat-custom)
1474 :type gnus-article-treat-custom)
1483 :type gnus-article-treat-custom)
1492 :type gnus-article-treat-custom)
1503 :type gnus-article-treat-custom)
1514 :type 'string
1520 (defcustom gnus-use-idna (and (condition-case nil (require 'idna) (file-error))
1527 :type 'boolean)
1533 :type 'boolean)
1658 (gnus-add-text-properties-when 'article-type nil b e props)
1671 (defun gnus-article-hide-text-type (b e type)
1673 (gnus-add-wash-type type)
1675 b e (cons 'article-type (cons type gnus-hidden-properties))))
1677 (defun gnus-article-unhide-text-type (b e type)
1679 (gnus-delete-wash-type type)
1681 b e (cons 'article-type (cons type gnus-hidden-properties)))
1686 (defun gnus-article-hide-text-of-type (type)
1691 (while (setq b (text-property-any b e 'article-type type))
1694 (defun gnus-article-delete-text-of-type (type)
1698 (if (eq type 'multipart)
1710 (when (eq (get-text-property b 'article-type) 'multipart)
1712 (while (setq b (text-property-any b (point-max) 'article-type type))
1714 b (or (text-property-not-all b (point-max) 'article-type type)
1726 (defun gnus-article-text-type-exists-p (type)
1727 "Say whether any text of type TYPE exists in the buffer."
1728 (text-property-any (point-min) (point-max) 'article-type type))
1802 (gnus-add-wash-type 'headers)
1804 '(article-type headers dummy-invisible t))
1829 (gnus-article-hide-text-type
1959 (gnus-article-hide-text-type
2055 (gnus-article-hide-text-type (- (point) 2) (point) 'overstrike)
2058 (gnus-article-hide-text-type
2063 (gnus-article-hide-text-type (- (point) 2) (point) 'overstrike)
2108 (gnus-add-wash-type 'smiley)
2244 (gnus-add-wash-type 'face)
2251 (let ((wash-face-p buffer-read-only)) ;; When type `W f'
2267 ;; If type `W f', use gnus-original-article-buffer,
2293 (let ((process-connection-type nil))
2296 "article-x-face" nil shell-file-name
2342 ctl (and ct (mail-header-parse-content-type ct))
2347 (mail-content-type-get ctl 'charset)))
2348 format (and ctl (mail-content-type-get ctl 'format)))
2467 (let ((inhibit-read-only t) type charset)
2470 (setq type
2472 (let* ((ct (gnus-fetch-field "content-type"))
2473 (ctl (and ct (mail-header-parse-content-type ct))))
2475 (mail-content-type-get ctl 'charset)))
2483 (and type (let ((case-fold-search t))
2484 (string-match "quoted-printable" type))))
2495 (let ((inhibit-read-only t) type charset)
2498 (setq type
2500 (let* ((ct (gnus-fetch-field "content-type"))
2501 (ctl (and ct (mail-header-parse-content-type ct))))
2503 (mail-content-type-get ctl 'charset)))
2511 (and type (let ((case-fold-search t))
2512 (string-match "base64" type))))
2566 (let* ((ct (gnus-fetch-field "content-type"))
2567 (ctl (and ct (mail-header-parse-content-type ct))))
2569 (mail-content-type-get ctl 'charset)))
2668 (gnus-add-wash-type 'pem)
2669 (gnus-article-hide-text-type
2678 (gnus-article-hide-text-type
2758 (gnus-article-hide-text-type
2910 (defun gnus-article-check-hidden-text (type arg)
2916 (let ((hide (gnus-article-hidden-text-p type)))
2922 (gnus-article-show-hidden-text type)
2927 (gnus-article-show-hidden-text type)
2931 (defun gnus-article-hidden-text-p (type)
2932 "Say whether the current buffer contains hidden text of type TYPE."
2933 (let ((pos (text-property-any (point-min) (point-max) 'article-type type)))
2938 (text-property-any (1+ pos) (point-max) 'article-type type)))
2943 (defun gnus-article-show-hidden-text (type &optional dummy)
2944 "Show all hidden text of type TYPE.
2949 'article-type type
2951 (cons 'article-type (cons type
2953 (gnus-delete-wash-type type)))
2975 (defun article-date-ut (&optional type highlight)
2985 ((eq type 'lapsed)
3031 (insert (article-make-date-line date (or type 'ut)))
3046 (defun article-make-date-line (date type)
3048 (unless (memq type '(local ut original user iso8601 lapsed english))
3049 (error "Unknown conversion type: %s" type))
3054 ((eq type 'local)
3060 ((eq type 'ut)
3072 ((eq type 'original)
3077 ((eq type 'user)
3087 ((eq type 'iso8601)
3096 ((eq type 'lapsed)
3139 ((eq type 'english)
3282 (props (append '(article-type emphasis)
3297 (gnus-article-unhide-text-type
3301 (gnus-add-wash-type 'emphasis)
3330 (defun gnus-article-save (save-buffer file &optional num)
3355 (t file)))
3362 (defun gnus-read-save-file-name (prompt &optional filename
3369 (expand-file-name
3378 (setq default-name (expand-file-name
3379 (file-name-nondirectory default-name)
3389 (file
3394 (read-file-name
3396 (file-name-nondirectory default-name) "): ")
3397 (file-name-directory default-name)
3404 (read-file-name
3406 (file-name-nondirectory default-name) "): ")
3407 (file-name-directory default-name)
3411 (let* ((name (expand-file-name
3414 (dir (cond ((file-directory-p name)
3415 (file-name-as-directory name))
3416 ((file-exists-p name) name)
3418 (read-file-name
3425 (let ((file-name-history
3426 (nconc split-name file-name-history)))
3428 (expand-file-name
3429 (read-file-name
3434 (car (push result file-name-history)))))))
3436 (gnus-make-directory (file-name-directory file))
3437 ;; If we have read a directory, we append the default file name.
3438 (when (file-directory-p file)
3439 (setq file (expand-file-name (file-name-nondirectory
3441 (file-name-as-directory file))))
3443 (nnheader-translate-file-chars file))))))
3444 (gnus-make-directory (file-name-directory result))
3448 (set dir-var (file-name-directory result)))
3464 "Append this article to Rmail file.
3465 Optional argument FILENAME specifies file name.
3467 (setq filename (gnus-read-save-file-name
3468 "Save %s in rmail file" filename
3479 "Append this article to Unix mail file.
3480 Optional argument FILENAME specifies file name.
3482 (setq filename (gnus-read-save-file-name
3483 "Save %s in Unix mail file" filename
3490 (if (and (file-readable-p filename)
3491 (file-regular-p filename)
3492 (mail-file-babyl-p filename))
3493 (rmail-output-to-rmail-file filename t)
3497 (put 'gnus-summary-save-in-file :decode t)
3498 (put 'gnus-summary-save-in-file :headers 'gnus-saved-headers)
3499 (defun gnus-summary-save-in-file (&optional filename overwrite)
3500 "Append this article to file.
3501 Optional argument FILENAME specifies file name.
3503 (setq filename (gnus-read-save-file-name
3504 "Save %s in file" filename
3505 gnus-file-save-name gnus-newsgroup-name
3506 gnus-current-headers 'gnus-newsgroup-last-file))
3512 (file-exists-p filename))
3513 (delete-file filename))
3514 (gnus-output-to-file filename))))
3517 (put 'gnus-summary-write-to-file :decode t)
3518 (put 'gnus-summary-write-to-file :function 'gnus-summary-save-in-file)
3519 (put 'gnus-summary-write-to-file :headers 'gnus-saved-headers)
3520 (defun gnus-summary-write-to-file (&optional filename)
3521 "Write this article to a file, overwriting it if the file exists.
3522 Optional argument FILENAME specifies file name.
3524 (setq filename (gnus-read-save-file-name
3525 "Save %s in file" filename
3526 gnus-file-save-name gnus-newsgroup-name
3528 (gnus-summary-save-in-file filename t))
3530 (put 'gnus-summary-save-body-in-file :decode t)
3531 (defun gnus-summary-save-body-in-file (&optional filename overwrite)
3532 "Append this article body to a file.
3533 Optional argument FILENAME specifies file name.
3535 (setq filename (gnus-read-save-file-name
3536 "Save %s body in file" filename
3537 gnus-file-save-name gnus-newsgroup-name
3538 gnus-current-headers 'gnus-newsgroup-last-file))
3546 (file-exists-p filename))
3547 (delete-file filename))
3548 (gnus-output-to-file filename))))
3551 (put 'gnus-summary-write-body-to-file :decode t)
3552 (put 'gnus-summary-write-body-to-file
3553 :function 'gnus-summary-save-body-in-file)
3554 (defun gnus-summary-write-body-to-file (&optional filename)
3555 "Write this article body to a file, overwriting it if the file exists.
3556 Optional argument FILENAME specifies file name.
3558 (setq filename (gnus-read-save-file-name
3559 "Save %s body in file" filename
3560 gnus-file-save-name gnus-newsgroup-name
3562 (gnus-summary-save-body-in-file filename t))
3606 ;;; Article file names when saving.
3614 (defun gnus-Numeric-save-name (newsgroup headers &optional last-file)
3615 "Generate file name from NEWSGROUP, HEADERS, and optional LAST-FILE.
3616 If variable `gnus-use-long-file-name' is non-nil, it is ~/News/News.group/num.
3619 (expand-file-name
3620 (concat (if (gnus-use-long-file-name 'not-save)
3625 (if (and last-file
3626 (string-equal (file-name-directory default)
3627 (file-name-directory last-file))
3628 (string-match "^[0-9]+$" (file-name-nondirectory last-file)))
3630 (or last-file default))))
3632 (defun gnus-numeric-save-name (newsgroup headers &optional last-file)
3633 "Generate file name from NEWSGROUP, HEADERS, and optional LAST-FILE.
3634 If variable `gnus-use-long-file-name' is non-nil, it is
3637 (expand-file-name
3638 (concat (if (gnus-use-long-file-name 'not-save)
3643 (if (and last-file
3644 (string-equal (file-name-directory default)
3645 (file-name-directory last-file))
3646 (string-match "^[0-9]+$" (file-name-nondirectory last-file)))
3648 (or last-file default))))
3650 (defun gnus-plain-save-name (newsgroup headers &optional last-file)
3651 "Generate file name from NEWSGROUP, HEADERS, and optional LAST-FILE.
3652 If variable `gnus-use-long-file-name' is non-nil, it is
3654 (or last-file
3655 (expand-file-name
3656 (if (gnus-use-long-file-name 'not-save)
3658 (file-relative-name
3659 (expand-file-name "news" (gnus-newsgroup-directory-form newsgroup))
3663 (defun gnus-sender-save-name (newsgroup headers &optional last-file)
3664 "Generate file name from sender."
3666 (expand-file-name
4157 %t The MIME type
4158 %T MIME type, along with additional info
4169 '((?t gnus-tmp-type ?s)
4170 (?T gnus-tmp-type-long ?s)
4180 (gnus-mime-view-part-as-type "t" "View As Type...")
4274 file param
4276 (setq file (and data (mm-save-part data)))
4277 (when file
4280 (insert "Content-Type: " (mm-handle-media-type data))
4281 (mml-insert-parameter-string (cdr (mm-handle-type data))
4285 (mail-header-encode-parameter "name" (file-name-nondirectory file)))
4293 (access-type . "LOCAL-FILE")
4294 (name . ,file)))))
4351 (or (mail-content-type-get (mm-handle-disposition data) 'filename)
4353 (type (mm-handle-media-type data)))
4364 "| Type: " type "\n"
4444 (defun gnus-mime-view-part-as-type-internal ()
4449 (mail-content-type-get (mm-handle-type handle) 'name)
4452 (def-type (and name (mm-default-file-encoding name))))
4453 (and def-type (cons def-type 0))))
4455 (defun gnus-mime-view-part-as-type (&optional mime-type pred)
4456 "Choose a MIME media type, and view the part as such.
4460 (unless mime-type
4461 (setq mime-type
4462 (let ((default (gnus-mime-view-part-as-type-internal)))
4464 (format "View as MIME type (default %s): "
4472 (when (equal (mm-handle-media-type handle) "message/external-body")
4478 (cons mime-type (cdr (mm-handle-type handle)))
4492 ;; jka-compr.el uses a "sh -c" to direct stderr to err-file, but these days
4497 The uncompress method used is derived from `buffer-file-name'."
4500 (let ((info (jka-compr-get-compression-info buffer-file-name)))
4502 (let ((basename (file-name-nondirectory buffer-file-name))
4506 (err-file (jka-compr-make-temp-name)))
4513 t (list t err-file) nil
4516 (jka-compr-error prog args basename message err-file))
4517 (jka-compr-delete-temp-file err-file)))))))
4528 (file-name-nondirectory
4530 (mail-content-type-get (mm-handle-type handle) 'name)
4531 (mail-content-type-get (mm-handle-disposition handle)
4541 (setq buffer-file-name (expand-file-name base))
4544 (setq buffer-file-name nil))
4553 (file (mm-make-temp-file (expand-file-name "mm." mm-tmp-directory)))
4554 (printer (mailcap-mime-info (mm-handle-media-type handle) "print")))
4559 (mm-save-part-to-file handle file)
4560 (call-process shell-file-name nil
4565 printer file (mm-handle-type handle))))
4566 (delete-file file))
4586 (setq charset (or (mail-content-type-get
4587 (mm-handle-type handle) 'charset)
4614 (let* ((type (mm-handle-type (if (equal (mm-handle-media-type handle)
4621 (charset (assq 'charset (cdr type))))
4623 (delq charset type)))))
4654 (equal (mm-handle-media-type parts) "multipart/alternative")
4672 (type (mm-handle-media-type handle))
4673 (method (mailcap-mime-info type))
4676 (gnus-mime-view-part-as-type
4677 nil (lambda (type) (stringp (mailcap-mime-info type))))
4697 (gnus-mime-view-part-as-type
4698 nil (lambda (type) (mm-inlinable-p handle type)))
4776 (equal (mm-handle-media-type (cdr ihandle))
4846 (mm-handle-media-type handle)))))
4861 (or (mail-content-type-get (mm-handle-type handle) 'name)
4862 (mail-content-type-get (mm-handle-disposition handle) 'filename)
4863 (mail-content-type-get (mm-handle-type handle) 'url)
4865 (gnus-tmp-type (mm-handle-media-type handle))
4875 gnus-tmp-type-long b e)
4878 (setq gnus-tmp-type-long (concat gnus-tmp-type
4882 (setq gnus-tmp-type-long (concat " --- " gnus-tmp-type-long)))
4891 article-type annotation
4994 :type 'boolean)
5000 :type 'boolean)
5010 :type 'boolean)
5044 (gnus-add-wash-type 'signed)
5047 (gnus-add-wash-type 'encrypted)
5062 (let ((type (mm-handle-media-type handle))
5070 (when (string-match (pop ignored) type)
5082 (mm-automatic-external-display-p type)))
5097 (not (gnus-unbuttonized-mime-type-p type)))
5124 (let ((charset (mail-content-type-get (mm-handle-type handle)
5141 (mm-handle-media-type handle)))))))))
5143 (defun gnus-unbuttonized-mime-type-p (type)
5149 (when (string-match (pop types) type)
5154 (when (string-match (pop types) type)
5184 (not (gnus-unbuttonized-mime-type-p
5202 article-type multipart))
5213 (mm-handle-media-type handle)))
5247 (mm-handle-media-type handle))))))
5308 (defun gnus-add-wash-type (type)
5310 (add-to-list 'gnus-article-wash-types type))
5312 (defun gnus-delete-wash-type (type)
5314 (setq gnus-article-wash-types (delq type gnus-article-wash-types)))
5330 (gnus-delete-wash-type category)))
5345 (defun gnus-output-to-file (file-name)
5346 "Append the current article to a file named FILE-NAME.
5349 top of a file. Otherwise, this function saves a raw article without
5352 (file-name-coding-system nnmail-pathname-coding-system)
5360 (exists (file-exists-p file-name)))
5363 (insert-file-contents file-name)
5371 ;; save it to file.
5391 (write-region (point-min) (point-max) file-name nil 'no-message)
5392 (message "Appended to %s" file-name))
5393 (write-region (point-min) (point-max) file-name))))
5807 (autoload 'nneething-get-file-name "nneething"))
5858 (let ((dir (nneething-get-file-name
5861 (file-directory-p dir))
5993 :type 'hook)
6034 "\C-c\C-a" mml-attach-file
6103 ;; Don't associate the article buffer with a draft file.
6187 "\\b\\(\\(www\\.\\|\\(s?https?\\|ftp\\|file\\|gopher\\|nntp\\|news\\|telnet\\|wais\\|mailto\\|info\\):\\)\\(//[-a-z0-9_.]+:[0-9]*\\)?[-a-z0-9_=!?#$@~%&*+\\/:;.,[:word:]]+[-a-z0-9_=#$@~%&*+\\/[:word:]]\\)"
6188 "\\b\\(\\(www\\.\\|\\(s?https?\\|ftp\\|file\\|gopher\\|nntp\\|news\\|telnet\\|wais\\|mailto\\|info\\):\\)\\(//[-a-z0-9_.]+:[0-9]*\\)?\\([-a-z0-9_=!?#$@~%&*+\\/:;.,]\\|\\w\\)+\\([-a-z0-9_=#$@~%&*+\\/]\\|\\w\\)\\)")
6191 :type 'regexp)
6198 :type 'regexp)
6206 :type 'regexp)
6213 :type '(choice (function-item :tag "Man" manual-entry)
6226 :type '(choice (const "http://www.tex.ac.uk/tex-archive/")
6235 :type '(choice (function-item :tag "Browse Url" browse-url)
6243 :type '(choice (const "^/?tex-archive/\\|/")
6256 :type 'regexp)
6265 :type 'regexp)
6277 :type '(choice (function-item :tag "Heuristic function"
6341 :type '(repeat (cons (number :tag "Rate")
6504 (file (gnus-replace-in-string (or lib "") "\.elc" ".el")))
6507 (find-file-read-only file))))
6527 :type 'integer)
6539 :type 'integer)
6551 :type 'integer)
6560 :type 'integer)
6569 :type 'integer)
6704 :type '(repeat (list (choice regexp variable sexp)
6740 :type '(repeat (list (regexp :tag "Header")
6973 (if (text-property-any end (point-max) 'article-type 'signature)
6975 (gnus-delete-wash-type 'signature)
6977 'article-type 'signature end (point-max)
6978 (cons 'article-type (cons 'signature
6980 (gnus-add-wash-type 'signature)
6982 'article-type nil end (point-max)
6983 (cons 'article-type (cons 'signature
7225 article-type annotation))
7257 article-type annotation))
7324 (defun gnus-treat-article (condition &optional part-number total-parts type)
7328 (treated-type
7329 (or (not type)
7333 (when (string-match (pop list) type)
7345 treated-type)
7356 (defvar type)
7381 (equal (car val) type))
7470 %t The security MIME type
7477 %t The security MIME type
7483 '((?t gnus-tmp-type ?s)
7571 (gnus-tmp-type
7602 article-type annotation
7626 (unless (gnus-unbuttonized-mime-type-p (car handle))
7631 (unless (gnus-unbuttonized-mime-type-p (car handle))