Lines Matching +defs:parameter +defs:string
72 (car (split-string (mm-handle-media-type handle) "/")))
74 (cadr (split-string (mm-handle-media-type handle) "/")))
95 (defmacro mm-handle-multipart-ctl-parameter (handle parameter)
96 `(get-text-property 0 ,parameter (car ,handle)))
152 identifier string into a URL that you might automatically retrieve
408 :type 'string
509 (when (string-match ty type)
554 (not (string-match "/" (car ctl))))
563 (setq type (split-string (car ctl) "/"))
581 ;; name as a text property of the "multipart/whatever" string.
600 (when (string-match " *<\\(.*\\)> *" id)
601 (setq id (match-string 1 id)))
698 (equal "text" (car (split-string type "/"))))
712 ;; Can non-string method ever happen?
756 ;; The function is a string to be executed.
782 (string-match "\\`%s\\(\\..+\\)\\'" suffix))
783 (setq suffix (match-string 1 suffix))
839 (buffer-string))))
911 (while (string-match "%{\\([^}]+\\)}\\|'%s'\\|\"%s\"\\|%s\\|%t\\|%%"
915 total (match-string 0 method)
916 sub (match-string 1 method))
918 ((string= total "%%")
920 ((or (string= total "%s")
922 (string= total "'%s'")
923 (string= total "\"%s\""))
927 ((string= total "%t")
1007 (function (cadr (mm-assoc-string-match mm-inline-media-tests type))))
1011 (defun mm-assoc-string-match (alist type)
1013 (when (string-match (car elem) type)
1023 (string-match method type))
1036 (when (string-match (caar alist) type)
1050 (string-match method type))
1062 (when (and (string-match ty type)
1073 (when (string-match ty type)
1081 (when (string-match method type)
1105 ;; if inserting a multibyte string. Contrarily, the buffer's
1106 ;; multibyteness should be off if inserting a unibyte string,
1107 ;; especially if a string contains 8bit data.
1122 "Return the contents of HANDLE as a string.
1131 (buffer-string)))
1133 (buffer-string))))
1144 (buffer-string)))
1146 (mm-string-to-multibyte (mm-get-part handle no-cache)))
1152 (while (string-match "\\s-+" file-name)
1158 (when (string-match "\\`\\s-+" file-name)
1160 (when (string-match "\\s-+\\'" file-name)
1166 (while (string-match "\\s-\\s-+" file-name)
1173 string if you do not like underscores."
1175 (while (string-match "\\s-" file-name)
1181 (gnus-replace-in-string filename "[\x00-\x1f\x7f]" ""))
1185 (setq filename (gnus-replace-in-string filename "[<>|]" ""))
1186 (gnus-replace-in-string filename "^[.-]+" ""))
1231 (read-string "Shell command on MIME part: " mm-last-shell-command)))
1246 (when (string= method "")
1248 (if (string-match "^[^% \t]+$" method)
1280 (when (string-match disc elem)
1340 (create-image (buffer-string)
1369 :data (buffer-string))))))
1426 (let* ((boundary (concat "--" (mm-handle-multipart-ctl-parameter ctl
1449 (setq result (buffer-string))))))
1461 (setq result (buffer-string))))))
1466 (defsubst mm-set-handle-multipart-parameter (handle parameter value)
1469 (put-text-property 0 (length (car handle)) parameter value
1474 (subtype (cadr (split-string (car ctl) "/")))
1491 (mm-handle-multipart-ctl-parameter ctl 'protocol))
1520 (mm-set-handle-multipart-parameter
1525 (mm-handle-multipart-ctl-parameter ctl 'protocol))
1552 (mm-set-handle-multipart-parameter