Lines Matching +defs:decode +defs:coding +defs:region
42 (require 'mm-decode)
544 * :decode
572 (defcustom gnus-article-save-coding-system
573 (or (and (mm-coding-system-p 'utf-8) 'utf-8)
574 (and (mm-coding-system-p 'iso-2022-7bit) 'iso-2022-7bit)
575 (and (mm-coding-system-p 'emacs-mule) 'emacs-mule)
576 (and (mm-coding-system-p 'escape-quoted) 'escape-quoted))
579 The recommended coding systems are `utf-8', `iso-2022-7bit' and so on,
605 (lambda (arg) (if (mm-coding-system-p (nth 3 arg)) arg))
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.")
1521 (mm-coding-system-p 'utf-8)
1657 "Set text PROPS on the B to E region, extending `intangible' 1 past B."
1665 "Remove hidden text properties from region between B and E."
1711 (delete-region b (point)))))
1713 (delete-region
1722 (delete-region
1781 (delete-region (point-min) (point)))
1805 (delete-region beg (point-max))))))))
1939 (narrow-to-region (point) (point-max))
1951 (narrow-to-region (point) (point-max))
2027 (translate-region (point) (point-max) x)))))
2106 (let ((images (smiley-region (point) (point-max))))
2162 (narrow-to-region (min (1+ (point)) (point-max))
2199 (delete-region
2204 (not (gnus-annotation-in-region-p
2301 (process-send-region "article-x-face"
2311 (defun article-decode-mime-words ()
2322 (mail-decode-encoded-word-region (point-min) (point-max)))))
2324 (defun article-decode-charset (&optional prompt)
2326 If PROMPT (the prefix), prompt for a coding system to use."
2345 (mm-read-coding-system "Charset to decode: "))
2356 (narrow-to-region (point) (point-max))
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
2427 (gnus-decode-newsgroups
2439 (defun article-decode-idna-rhs ()
2462 If FORCE, decode the article whether it is marked as quoted-printable
2464 If READ-CHARSET, ask for a coding system."
2479 (setq charset (mm-read-coding-system "Charset: " charset)))
2486 (quoted-printable-decode-region
2487 (point) (point-max) (mm-charset-to-coding-system charset))))))
2491 If FORCE, decode the article whether it is marked as base64 not.
2492 If READ-CHARSET, ask for a coding system."
2507 (setq charset (mm-read-coding-system "Charset: " charset)))
2515 (narrow-to-region (point) (point-max))
2516 (base64-decode-region (point-min) (point-max))
2517 (mm-decode-coding-region
2518 (point-min) (point-max) (mm-charset-to-coding-system charset)))))))
2523 (defun article-decode-HZ ()
2529 (rfc1843-decode-region (point-min) (point-max)))))
2546 If READ-CHARSET, ask for a coding system. If it is a number, the
2558 (setq charset (mm-read-coding-system "Charset: ")))
2577 (narrow-to-region (point) (point-max))
2596 (w3-region (point-min) (point-max))
2604 (w3m-region (point-min) (point-max)))
2620 (unless (mm-coding-system-p charset) ;; Bound by `article-wash-html'.
2623 (let ((coding-system-for-write charset)
2624 (coding-system-for-read charset))
2625 (call-process-region
2648 (delete-region (match-beginning 2) (match-end 0))
2652 (delete-region (match-beginning 1) (match-end 1))))))))
2722 (delete-region (point) (point-max))))
2726 (delete-region (match-beginning 0) (match-end 0)))))
2729 (delete-region (match-beginning 0) (match-end 0)))))))))
2744 (narrow-to-region start end)
2745 (delete-region start end)
2784 Point is left at the beginning of the narrowed-to region."
2785 (narrow-to-region
2815 (unless (gnus-annotation-in-region-p
2821 (unless (gnus-annotation-in-region-p
2823 (delete-region (match-beginning 1) (match-end 1)))))))
2885 (narrow-to-region (point) (point-max))
3005 (narrow-to-region pos (or (text-property-any pos (point-max)
3017 (delete-region (gnus-point-at-bol)
3021 (delete-region (gnus-point-at-bol)
3140 (let ((dtime (decode-time time)))
3268 (delete-region (match-beginning 1) (match-end 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)
3544 (narrow-to-region (point) (point-max)))
3551 (put 'gnus-summary-write-body-to-file :decode t)
3588 (shell-command-on-region (point-min) (point-max) command nil)))
3694 (delete-region (point-min) (point-max))
3710 (let ((coding-system-for-write (or gnus-newsgroup-charset
3730 (narrow-to-region (point) (point))
3784 article-decode-HZ
3805 article-decode-mime-words
3806 article-decode-charset
3807 article-decode-encoded-words
3883 ["Decode HZ" gnus-article-decode-HZ t]))
4259 (delete-region (point) (point-max))
4348 (mail-decode-encoded-word-string (or (mm-handle-description data)
4510 (unless (memq (apply 'call-process-region
4595 (mm-read-coding-system "Charset: "))))
4603 (setq charset (mm-charset-to-coding-system
4606 (mm-decode-coding-string contents charset)
4640 (mm-read-coding-system "Charset: ")))
4835 (narrow-to-region (point)
4842 (narrow-to-region (point) (point-max))
4867 (mail-decode-encoded-word-string (or (mm-handle-description handle)
4966 (delete-region (point) (point-max)))
4971 (narrow-to-region (point) (point-max))
4979 (narrow-to-region (point-min) (point))
5132 (mm-decode-string (mm-get-part handle) charset)))))
5137 (narrow-to-region beg (point))
5170 (narrow-to-region (car ibegend)
5176 (delete-region (point-min) (point-max))
5243 (narrow-to-region (car begend) (point-max))
5347 If `gnus-article-save-coding-system' is non-nil, it is used to encode
5348 text and used as the value of the coding cookie which is added to the
5350 the coding cookie."
5352 (file-name-coding-system nnmail-pathname-coding-system)
5353 (coding gnus-article-save-coding-system)
5354 (coding-system-for-read (if coding
5355 nil ;; Rely on the coding cookie.
5356 mm-text-coding-system))
5357 (coding-system-for-write (or coding
5358 mm-text-coding-system-for-write
5359 mm-text-coding-system))
5365 ;; Remove the existing coding cookie.
5367 (delete-region (match-beginning 0) (match-end 0))))
5374 (when coding
5375 ;; If the coding system is not suitable to encode the text,
5377 (when (fboundp 'select-safe-coding-system)
5378 (setq coding (coding-system-base
5380 (select-safe-coding-system (point-min) (point-max)
5381 coding))))
5382 (setq coding-system-for-write
5383 (or (cdr (assq coding '((mule-utf-8 . utf-8))))
5384 coding)))
5386 ;; Add the coding cookie.
5387 (insert (format "X-Gnus-Coding-System: -*- coding: %s; -*-\n\n"
5388 coding-system-for-write)))
5391 (write-region (point-min) (point-max) file-name nil 'no-message)
5393 (write-region (point-min) (point-max) file-name))))
5421 (narrow-to-region
5747 The text in the region will be yanked. If the region isn't active,
5766 The text in the region will be yanked. If the region isn't active,
5970 (run-hooks 'gnus-article-decode-hook)
5972 (setq gnus-article-decoded-p gnus-article-decode-hook))
6030 "\C-c\C-e" message-elide-region
6031 "\C-c\C-v" message-delete-not-region
6037 "\M-;" comment-region)
6857 (defun gnus-button-in-region-p (b e prop)
6858 "Say whether PROP exists in the region."
6897 (not (gnus-button-in-region-p
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))
7310 (nconc gnus-decode-header-methods-cache
7312 gnus-decode-header-methods))
7313 (let ((xlist gnus-decode-header-methods-cache))
7316 (narrow-to-region start end)
7436 (delete-region (point-min) (point-max))
7446 (narrow-to-region point (point-max))
7505 (let ((region (mm-handle-multipart-ctl-parameter handle 'gnus-region))
7507 (if region
7508 (goto-char (car region)))
7510 (narrow-to-region (point) (point))
7521 (when region
7522 (delete-region (point) (cdr region))
7523 (set-marker (car region) nil)
7524 (set-marker (cdr region) nil))
7543 (narrow-to-region (point) (point))
7545 (delete-region (point)
7625 (narrow-to-region (point) (point))
7636 handle 'gnus-region