Lines Matching +defs:parameter +defs:string
123 '((Q . rfc2047-q-encode-string)
124 (B . rfc2047-b-encode-string)
177 Quoting will not be done in a quoted string if it contains characters
320 ;; encoding. Double quotes are string delimiters, backslash is
507 (string-match encodable-regexp
508 (match-string 0)))
536 (mm-replace-in-string orig-text "[ \t\n]+" " "))))))))
540 (defun rfc2047-encode-string (string)
542 By default, the string is treated as containing addresses (see
545 (insert string)
547 (buffer-string)))
554 (defun rfc2047-encode-1 (column string cs encoder start crest tail
557 (cond ((string-equal string "")
562 (mm-encode-coding-string string cs)
563 string))
567 (cond ((string-match "\n[ \t]+\\'" eword)
570 ((string-match "(+\\'" eword)
572 (setq crest (concat crest (match-string 0 eword))
574 (rfc2047-encode-1 (length crest) string cs encoder start " " tail
578 (limit (1- (length string)))
586 (mm-encode-coding-string
587 (substring string 0 (1+ index))
589 (substring string 0 (1+ index))))
596 (<= (+ len (or (string-match "\n" tail)
601 (if (string-match "\\`)+" tail)
614 (string-match "(+\\'" eword))
615 (setq crest (concat crest (match-string 0 eword))
620 (when (string-match "\n[ \t]+\\'" eword)
623 (rfc2047-encode-1 (length crest) (substring string index)
667 (mm-replace-in-string
799 (defun rfc2047-b-encode-string (string)
801 (base64-encode-string string t))
803 (defun rfc2047-q-encode-string (string)
806 (insert string)
819 (buffer-string)))
821 (defun rfc2047-encode-parameter (param value)
822 "Return and PARAM=VALUE string encoded in the RFC2047-like style.
823 This is a replacement for the `rfc2231-encode-string' function.
833 \(defalias 'mail-header-encode-parameter 'rfc2047-encode-parameter)
837 (string (rfc2047-encode-string value)))
838 (if (string-match (concat "[" ietf-drums-tspecials "]") string)
839 (format "%s=%S" param string)
840 (concat param "=" string))))
910 "Decode successive encoded-words in WORDS and return a decoded string.
920 (setq text (base64-decode-string
923 (setq text (quoted-printable-decode-string
924 (mm-subst-char-in-string
927 (message "%s" (error-message-string code))
940 (mm-decode-coding-string (cdar rest) cs)
942 (message "%s" (error-message-string code))
947 (not (eq (string-to-char words) ? )))
986 (push (list (match-string 2) ;; charset
988 (match-string 5) ;; encoded-text
989 (match-string 1)) ;; encoded-word
1070 (defun rfc2047-decode-string (string &optional address-mime)
1075 (if (string-match "=\\?" string)
1080 ;; of the string. Also the string returned should always be
1082 ;; be multibyte before `buffer-string' is called.
1085 (insert string)
1088 (buffer-string))
1090 (setq string
1092 (when (mm-multibyte-string-p string)
1094 (insert string)
1096 (buffer-string))))
1102 ;; `decode-coding-string' in Emacs offers a third optional
1103 ;; arg NOCOPY to avoid consing a new string if the decoding
1107 ;; `rfc2047-decode-string' is called multiple times for each
1110 ;; `decode-coding-string' if the string is purely ASCII.
1111 (if (and (fboundp 'detect-coding-string)
1112 ;; string is purely ASCII
1113 (eq (detect-coding-string string t) 'undecided))
1114 string
1115 (mm-decode-coding-string string mail-parse-charset))
1116 (mm-string-as-multibyte string)))))
1118 (defun rfc2047-decode-address-string (string)
1122 (rfc2047-decode-string string t))
1124 (defun rfc2047-pad-base64 (string)
1127 ;; base64-decode-string accepts buggy strings, this function could
1129 (if (= 0 (mod (length string) 4))
1130 string
1131 (when (string-match "=+$" string)
1132 (setq string (substring string 0 (match-beginning 0))))
1133 (case (mod (length string) 4)
1134 (0 string)
1135 (1 string) ;; Error, don't pad it.
1136 (2 (concat string "=="))
1137 (3 (concat string "=")))))