Lines Matching +defs:parameter +defs:string
82 TYPE is a string containing a regexp to match the MIME type. FUNCTION
84 part. This variable is used only when no TWEAK parameter exists in
89 NAME is a string containing the name of the TWEAK parameter in the MML
106 NAME is a string containing the name of the part (without the
129 suggestion each time. The function is called with one parameter,
143 equals the value and there's no parameter (e.g. charset, format, etc.)
200 (cond ((string= mode "sign")
202 ((string= mode "encrypt")
204 ((string= mode "signencrypt")
256 (string-match "[^ \t\r\n]" contents))
347 (when (string-match "^\"\\(.*\\)\"$" val)
348 (setq val (match-string 1 val)))
390 (equal (match-string 2) "multipart"))
413 (buffer-string)))))
432 (member (car (split-string type "/")) '("text" "message")))
471 ((string= (car (split-string type "/")) "message")
477 ;; parts where there either isn't a format parameter
481 (when (and (string= type "text/plain")
482 (not (string= (cdr (assq 'sign cont)) "pgp"))
484 (string= (cdr (assq 'format cont))
491 ;; insert a "; format=flowed" string unless the
497 (setq coded (buffer-string)))
504 (insert (mm-string-as-unibyte
506 (buffer-string)))))
514 (string-match "[^\000-\377]" contents)
515 (mm-multibyte-string-p contents))
522 coded (mm-string-as-multibyte (buffer-string))))
529 (let ((parameters (mml-parameter-string
536 (mml-insert-parameter
537 (mail-header-encode-parameter "name" name)
539 (mml-insert-parameter
540 (mail-header-encode-parameter
542 (mail-header-encode-parameter "site" (nth 1 name))
543 (mail-header-encode-parameter
545 (mml-insert-parameter
551 (mml-insert-parameter
552 (mail-header-encode-parameter "url" url)
555 (mml-insert-parameter-string
656 (concat (make-string (% number 60) ?=)
665 (mml-parameter-string
677 (mml-insert-parameter
678 (mail-header-encode-parameter "charset" (symbol-name charset))))
680 (mml-insert-parameter "format=flowed"))
682 (mml-insert-parameter-string
688 (mml-parameter-string
694 (mml-insert-parameter-string
706 (defun mml-parameter-string (cont types)
707 (let ((string "")
711 ;; Strip directory component from the filename parameter.
714 (setq string (concat string "; "
715 (mail-header-encode-parameter
717 (when (not (zerop (length string)))
718 string)))
720 (defun mml-insert-parameter-string (cont types)
724 ;; Strip directory component from the filename parameter.
727 (mml-insert-parameter
728 (mail-header-encode-parameter
736 (string-match efs-path-regexp path)
738 (string-match (car ange-ftp-name-format) path)))
739 (list (match-string 1 path) (match-string 2 path)
821 (insert (mm-decode-string (mm-get-part handle) charset)))
832 (let ((start (mm-handle-multipart-ctl-parameter handle 'start)))
855 (defun mml-insert-parameter (&rest parameters)
1029 (string (completing-read
1032 (if (not (equal string ""))
1033 string
1037 (let ((description (read-string "One line description: ")))
1038 (when (string-match "\\`[ \t]*\\'" description)
1044 (if (and (string-match "\\`text/" type)
1045 (not (string-match "\\`text/rtf\\'" type)))
1082 (when (string-match "[\"'\\~/*;() \t\n]" value)
1083 (setq value (with-output-to-string
1134 content-type, a string of the form \"type/subtype\". DESCRIPTION
1268 (let ((s (buffer-string)))
1317 (if (string-match (caar alist) type)