Lines Matching +defs:base64 +defs:decode +defs:string
42 (require 'mm-decode)
51 (autoload 'parse-time-string "parse-time" nil nil)
240 no signature in the buffer. If it is a string, it will be used as a
267 If it is a string, the command will be executed in a sub-shell
269 :type `(choice string
307 A string is used as a regular expression to match the banner
353 (if (string-match regexp (setq pattern (car value)))
354 (list (cons (match-string 1 pattern) (match-string 2 pattern))
485 See `format-time-string' for the possible values.
489 be fed to `format-time-string'."
490 :type '(choice string symbol)
544 * :decode
651 If the match is a string, it is used as a regexp match on the
656 If this form or function returns a string, this string will be used as
661 (cons :value ("" "") regexp (repeat string))
679 :type 'string
841 (defcustom gnus-article-decode-hook
842 '(article-decode-charset article-decode-encoded-words
843 article-decode-group-name article-decode-idna-rhs)
844 "*Hook run to decode charsets in articles."
853 (defvar gnus-decode-header-function 'mail-decode-encoded-word-region
854 "Function used to decode headers.")
856 (defvar gnus-decode-address-function 'mail-decode-encoded-address-region
857 "Function used to decode addresses.")
923 string))
999 :type '(repeat (cons (string :tag "name")
1058 (>= (string-to-number emacs-version) 21))
1331 (and (string-match "^0x" (shell-command-to-string "uncompface"))
1512 It is a string, such as \"PGP\". If nil, ask user."
1514 :type 'string
1731 "Give the rank of the string HEADER as given by `gnus-sorted-header-list'."
1839 (when (gnus-string-equal
1854 (gnus-string-equal
1867 (gnus-string-equal
1880 (gnus-string-equal
1886 (when (gnus-string-equal
1904 'string<)
1908 'string<))))
1917 (< (days-between (current-time-string) date)
1984 (insert (make-string
2014 FROM is a string of characters to translate from; to is a string of
2019 (x (make-string 225 ?x))
2030 "Translate all string in the body of the article according to MAP.
2077 (let ((header (buffer-string)))
2286 (not (string-match gnus-article-x-face-too-ugly
2291 ;; The command is a string, so we interpret the command
2311 (defun article-decode-mime-words ()
2322 (mail-decode-encoded-word-region (point-min) (point-max)))))
2324 (defun article-decode-charset (&optional prompt)
2345 (mm-read-coding-system "Charset to decode: "))
2351 (if (and ctl (not (string-match "/" (car ctl))))
2363 (not format)) ;; article with format will decode later.
2364 (mm-decode-body
2369 (defun article-decode-encoded-words ()
2393 (funcall gnus-decode-address-function start end)
2394 (funcall gnus-decode-header-function start end))
2397 (defun article-decode-group-name ()
2412 (gnus-decode-newsgroups
2418 (match-string 1))
2427 (gnus-decode-newsgroups
2433 (match-string 1))
2439 (defun article-decode-idna-rhs ()
2452 (and (setq ace (match-string 1))
2457 (unless (string= ace unicode)
2462 If FORCE, decode the article whether it is marked as quoted-printable
2484 (string-match "quoted-printable" type))))
2486 (quoted-printable-decode-region
2489 (defun article-de-base64-unreadable (&optional force read-charset)
2490 "Translate a base64 article.
2491 If FORCE, decode the article whether it is marked as base64 not.
2512 (string-match "base64" type))))
2516 (base64-decode-region (point-min) (point-max))
2517 (mm-decode-coding-region
2523 (defun article-decode-HZ ()
2529 (rfc1843-decode-region (point-min) (point-max)))))
2705 (when (string-match (car pair) from)
2742 (trans (babel-as-string orig)))
3056 (format "Date: %s %s%02d%02d" (current-time-string time)
3062 (current-time-string
3063 (let* ((e (parse-time-string date))
3073 (concat "Date: " (if (string-match "\n+$" date)
3085 (concat "Date: " (format-time-string format time)))))
3091 (format-time-string "%Y%m%dT%H%M%S" time)
3127 (concat (if prev ", " "") (int-to-string
3140 (let ((dtime (decode-time time)))
3143 (number-to-string (nth 3 dtime))
3154 (number-to-string (nth 5 dtime))
3314 (when (and name (string-match (car elem) name))
3456 (match-string 1)))))
3497 (put 'gnus-summary-save-in-file :decode t)
3517 (put 'gnus-summary-write-to-file :decode t)
3530 (put 'gnus-summary-save-body-in-file :decode t)
3551 (put 'gnus-summary-write-body-to-file :decode t)
3572 (t (read-string
3581 (when (string-equal command "")
3591 (defmacro gnus-read-string (prompt &optional initial-contents history
3593 "Like `read-string' but allow for older XEmacsen that don't have the 5th arg."
3596 `(read-string ,prompt ,initial-contents ,history)
3597 `(read-string ,prompt ,initial-contents ,history ,default-value)))
3601 (setq command (gnus-read-string
3611 (concat (char-to-string (upcase (aref newsgroup 0)))
3623 "/" (int-to-string (mail-header-number headers)))
3626 (string-equal (file-name-directory default)
3628 (string-match "^[0-9]+$" (file-name-nondirectory last-file)))
3641 "/" (int-to-string (mail-header-number headers)))
3644 (string-equal (file-name-directory default)
3646 (string-match "^[0-9]+$" (file-name-nondirectory last-file)))
3667 (if (and from (string-match "\\([^ <]+\\)@" from))
3668 (match-string 1 from)
3684 (setq items (split-string sig))
3693 (split-string (nth 1 items) ",") "")))
3783 article-de-base64-unreadable
3784 article-decode-HZ
3805 article-decode-mime-words
3806 article-decode-charset
3807 article-decode-encoded-words
3880 ["Remove base64" gnus-article-de-base64-unreadable t]
3883 ["Decode HZ" gnus-article-decode-HZ t]))
3952 (progn (string-match "\\*Article" name)
4202 (unless (>= (string-to-number emacs-version) 21)
4281 (mml-insert-parameter-string (cdr (mm-handle-type data))
4348 (mail-decode-encoded-word-string (or (mm-handle-description data)
4606 (mm-decode-coding-string contents charset)
4607 (mm-string-to-multibyte contents)))
4867 (mail-decode-encoded-word-string (or (mm-handle-description handle)
4876 (when (string-match ".*/" gnus-tmp-name)
5070 (when (string-match (pop ignored) type)
5127 (mm-string-as-multibyte (mm-get-part handle)))
5130 (buffer-string)))
5132 (mm-decode-string (mm-get-part handle) charset)))))
5149 (when (string-match (pop types) type)
5154 (when (string-match (pop types) type)
5278 representing the particular washing function, ON is the string to use
5280 is the string to use when it is inactive.")
5287 "Return a string which display status of article washing."
5573 (let ((msg-id (concat "<" (match-string 0) ">")))
5704 "Display documentation of the function invoked by KEY. KEY is a string."
5719 (string-to-list key)))
5725 "Display documentation of the function invoked by KEY. KEY is a string."
5740 (string-to-list key)))
5940 ((not (string-match "^400 "
5970 (run-hooks 'gnus-article-decode-hook)
5972 (setq gnus-article-decoded-p gnus-article-decode-hook))
6186 (if (string-match "[[:digit:]]" "1") ;; support POSIX?
6210 The function must take at least one argument with a string naming the
6229 (string :tag "Other")))
6233 The function must take one argument, the string naming the URL."
6268 "What to do when the button on a string as \"foo123@bar.invalid\" is pushed.
6270 of the symbols `mid' or `mail', Gnus will always assume that the string is a
6273 function will be called with the string as its only argument. The function
6347 address, `ask' if unsure and `invalid' if the string is invalid."
6352 (length (gnus-replace-in-string mid-or-mail "^\\(.*\\)@.*$" "\\1")))
6355 (when (string-match
6363 (when (string-match "@.*@\\| " mid-or-mail)
6373 (when (string-match regexp mid-or-mail)
6385 ((string-match "[0-9][^0-9]+[0-9].*@" mid-or-mail)
6394 ((string-match "[^aeiouy][^aeiouy][^aeiouy][^aeiouy]+.*\@"
6423 (gnus-replace-in-string mid-or-mail "^<\\|>$" "")))
6438 (t (gnus-message 3 "Invalid string.")))))
6442 (customize-apropos (gnus-url-unhex-string url)))
6453 (gnus-replace-in-string url gnus-button-handle-describe-prefix ""))))
6459 (gnus-replace-in-string url gnus-button-handle-describe-prefix ""))))
6472 (let* ((key-string
6473 (gnus-replace-in-string url gnus-button-handle-describe-prefix ""))
6474 (keys (ignore-errors (eval `(kbd ,key-string)))))
6477 (gnus-message 3 "Invalid key sequence in button: %s" key-string))))
6481 (apropos (gnus-replace-in-string url gnus-button-handle-describe-prefix "")))
6486 (gnus-replace-in-string url gnus-button-handle-describe-prefix "")))
6492 (gnus-replace-in-string url gnus-button-handle-describe-prefix "")))
6498 (gnus-replace-in-string url gnus-button-handle-describe-prefix "")))
6504 (file (gnus-replace-in-string (or lib "") "\.elc" ".el")))
6515 (gnus-replace-in-string url gnus-button-handle-ctan-bogus-regexp ""))))
6693 REGEXP: is the string (case insensitive) matching text around the button (can
6694 also be Lisp expression evaluating to a string),
6812 (if (string-equal "" (nth 0 entry))
7007 (let ((string (match-string group)))
7009 0 (length string) nil string)
7010 string))
7028 (setq scheme (match-string 1))
7031 (setq server (match-string 1))
7032 (setq port (if (stringp (match-string 3))
7033 (string-to-number (match-string 3))
7034 (match-string 3)))
7039 (setq message-id (match-string 1)))
7041 (setq group (match-string 1)
7042 articles (split-string (match-string 2) "-")))
7044 (setq group (match-string 1)))
7073 (setq url (gnus-replace-in-string url "([1-9][X1a-z]*).*\\'" "")))
7079 (setq url (mm-subst-char-in-string ?+ ?\ url))
7081 ((string-match "^\\([^:/]+\\)?/\\(.*\\)" url)
7083 (concat "(" (or (gnus-url-unhex-string (match-string 1 url))
7085 ")" (gnus-url-unhex-string (match-string 2 url)))))
7086 ((string-match "([^)\"]+)[^\"]+" url)
7088 (gnus-replace-in-string
7089 (gnus-replace-in-string url "[\n\t ]+" " ") "\"" ""))
7095 (setq url (mm-subst-char-in-string ?_ ?\ url))
7096 (if (string-match "\\([^#]+\\)#?\\(.*\\)" url)
7099 (gnus-url-unhex-string
7100 (match-string 1 url))
7102 (or (gnus-url-unhex-string
7103 (match-string 2 url))
7109 (gnus-info-find-node (gnus-url-unhex-string url)))
7126 (if (not (string-match "[:/]" address))
7130 (string-match
7135 (match-string 4 address)
7136 `(nntp ,(match-string 1 address)
7137 (nntp-address ,(match-string 1 address))
7139 (match-string 3 address)
7142 (and (match-end 6) (list (string-to-number (match-string 6 address))))))))
7144 (defun gnus-url-parse-query-string (query &optional downcase)
7146 (setq pairs (split-string query "&"))
7150 (if (not (string-match "=" cur))
7152 (setq key (gnus-url-unhex-string (substring cur 0 (match-beginning 0)))
7153 val (gnus-url-unhex-string (substring cur (match-end 0) nil) t))
7164 (when (string-match "mailto:/*\\(.*\\)" url)
7167 (setq args (gnus-url-parse-query-string
7168 (if (string-match "^\\?" url)
7170 (if (string-match "^\\([^?]+\\)\\?\\(.*\\)" url)
7171 (concat "to=" (match-string 1 url) "&"
7172 (match-string 2 url))
7182 (insert (gnus-replace-in-string
7282 (defvar gnus-decode-header-methods
7283 '(mail-decode-encoded-word-region)
7284 "List of methods used to decode headers.
7292 \((\"chinese\" . gnus-decode-encoded-word-region-by-guess)
7293 mail-decode-encoded-word-region
7294 (\"chinese\" . rfc1843-decode-region))
7297 (defvar gnus-decode-header-methods-cache nil)
7299 (defun gnus-multi-decode-header (start end)
7301 (unless (and gnus-decode-header-methods-cache
7303 (car gnus-decode-header-methods-cache)))
7304 (setq gnus-decode-header-methods-cache (list gnus-newsgroup-name))
7307 (nconc gnus-decode-header-methods-cache (list x))
7309 (string-match (car x) gnus-newsgroup-name))
7310 (nconc gnus-decode-header-methods-cache
7312 gnus-decode-header-methods))
7313 (let ((xlist gnus-decode-header-methods-cache))
7333 (when (string-match (pop list) type)
7369 (string-match s ,(or gnus-newsgroup-name "")))
7435 (buffer-string)
7490 (unless (>= (string-to-number emacs-version) 21)