Lines Matching +defs:list +defs:part
7 ;; This file is part of GNU Emacs.
59 "*A list of acceptable parameters in MML tag.
67 "*A list of acceptable parameters in MML tag.
81 "A list of (TYPE . FUNCTION) for tweaking MML parts.
84 part. This variable is used only when no TWEAK parameter exists in
88 "A list of (NAME . FUNCTION) for tweaking MML parts.
91 handle to tweak the part.")
95 "A list of (SEXP . FUNCTION) for tweaking MML parts.
98 handle to tweak the part.")
106 NAME is a string containing the name of the part (without the
108 FUNCTION is a Lisp function which is called to generate the part.
111 contents of this part.")
134 "A list of symbols, each of which disables some warning.
142 The Content-Type header will not be put in the MIME part if the type
146 part. This is for the internal use, you should never modify the value.")
148 (defvar mml-buffer-list nil)
152 (push buf mml-buffer-list)
157 (mapcar 'kill-buffer mml-buffer-list)
158 (setq mml-buffer-list nil)))
178 ;; The secure part is essentially a meta-meta tag, which
179 ;; expands to either a part tag if there are no other parts in
193 "<#\\(/\\)?\\(multipart\\|part\\|external\\|mml\\)." nil t)
195 (setq secure-mode "part")))
201 (setq tags (list "sign" method)))
203 (setq tags (list "encrypt" method)))
205 (setq tags (list "sign" method "encrypt" method))))
217 (push (nconc (mml-read-tag) (list (cons 'contents (mml-read-part))))
220 (if (or (looking-at "<#part") (looking-at "<#mml"))
224 (setq tag (list 'part '(type . "text/plain"))
229 contents (mml-read-part (eq 'mml (car tag)))
233 (list
258 (push (nconc tag (list (cons 'contents contents)))
266 A message part needs to be split into %d charset parts. Really send? "
304 (list (cons 'contents
313 ;; Compute places where it might be nice to break the part.
324 ;; Do the final part.
327 (list (cons 'contents
355 (setq contents (append (list (cons 'tag-location orig-point)) contents))
367 (defun mml-read-part (&optional mml)
368 "Return the buffer up till the next part, multipart or closing part or multipart.
385 "<#\\(/\\)?\\(multipart\\|part\\|external\\|mml\\)." nil t)
411 (mml-generate-mime-1 (nconc (list 'multipart '(type . "mixed"))
420 (mml-tweak-part cont)
422 ((or (eq (car cont) 'part) (eq (car cont) 'mml))
455 "<#!+/?\\(part\\|multipart\\|external\\|mml\\)"
469 ;; ignore 0x1b, it is part of iso-2022-jp
473 ;; ignore 0x1b, it is part of iso-2022-jp
586 (let ((cont cont) part)
587 (while (setq part (pop cont))
589 (when (and (consp part) (consp (cdr part)))
591 (mml-generate-mime-1 part)
635 ((eq (car cont) 'part)
674 "Can't encode a part with several charsets"))
739 (list (match-string 1 path) (match-string 2 path)
798 (mm-insert-part handle 'no-cache)
820 (mm-insert-part handle)
821 (insert (mm-decode-string (mm-get-part handle) charset)))
825 (insert "<#/part>\n")))))
838 (insert "<#part type=" (mm-handle-media-type handle)))
906 (define-key map "p" 'mml-insert-part)
913 ;;(define-key map "n" 'mml-narrow-to-part)
960 ["Insert Part..." mml-insert-part
968 ;;["Narrow" mml-narrow-to-part t]
1031 (mapcar 'list (mailcap-mime-types)))))
1067 "<#!*/?\\(multipart\\|part\\|external\\|mml\\)" nil t)
1113 If it is a list, valid members are `type', `description' and
1120 (list :value (type description disposition)
1144 (list file type description disposition)))
1147 (mml-insert-empty-tag 'part
1184 (list buffer type description)))
1187 (mml-insert-empty-tag 'part 'type type 'buffer buffer
1193 FILE is an ange-ftp/efs specification of the part location.
1199 (list file type description)))
1206 (interactive (list (completing-read "Multipart type (default mixed): "
1215 (defun mml-insert-part (&optional type)
1217 (list (mml-minibuffer-read-type "")))
1218 (mml-insert-tag 'part 'type type 'disposition "inline")
1304 (defun mml-tweak-part (cont)
1305 "Tweak a MML part."
1334 (when (and (eq (car cont) 'part)