Lines Matching +defs:write +defs:region
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
539 * gnus-summary-write-to-file (article format -- overwrite)
540 * gnus-summary-write-body-to-file (article body -- overwrite)
547 `gnus-summary-write-to-file', and `gnus-summary-write-body-to-file'.
554 `gnus-summary-write-to-file' and `gnus-summary-write-body-to-file'.
568 (function-item gnus-summary-write-to-file)
569 (function-item gnus-summary-write-body-to-file)
585 * gnus-summary-write-article-file
586 * gnus-summary-write-article-body-file
592 * gnus-summary-write-to-file
593 * gnus-summary-write-body-to-file
853 (defvar gnus-decode-header-function 'mail-decode-encoded-word-region
856 (defvar gnus-decode-address-function 'mail-decode-encoded-address-region
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"
2322 (mail-decode-encoded-word-region (point-min) (point-max)))))
2356 (narrow-to-region (point) (point-max))
2486 (quoted-printable-decode-region
2515 (narrow-to-region (point) (point-max))
2516 (base64-decode-region (point-min) (point-max))
2517 (mm-decode-coding-region
2529 (rfc1843-decode-region (point-min) (point-max)))))
2577 (narrow-to-region (point) (point-max))
2596 (w3-region (point-min) (point-max))
2604 (w3m-region (point-min) (point-max)))
2623 (let ((coding-system-for-write 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)
3268 (delete-region (match-beginning 1) (match-end 1)))))))
3517 (put 'gnus-summary-write-to-file :decode t)
3518 (put 'gnus-summary-write-to-file :function 'gnus-summary-save-in-file)
3519 (put 'gnus-summary-write-to-file :headers 'gnus-saved-headers)
3520 (defun gnus-summary-write-to-file (&optional filename)
3544 (narrow-to-region (point) (point-max)))
3551 (put 'gnus-summary-write-body-to-file :decode t)
3552 (put 'gnus-summary-write-body-to-file
3554 (defun gnus-summary-write-body-to-file (&optional filename)
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))
4259 (delete-region (point) (point-max))
4510 (unless (memq (apply 'call-process-region
4835 (narrow-to-region (point)
4842 (narrow-to-region (point) (point-max))
4966 (delete-region (point) (point-max)))
4971 (narrow-to-region (point) (point-max))
4979 (narrow-to-region (point-min) (point))
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))
5357 (coding-system-for-write (or coding
5358 mm-text-coding-system-for-write
5367 (delete-region (match-beginning 0) (match-end 0))))
5382 (setq coding-system-for-write
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,
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
7283 '(mail-decode-encoded-word-region)
7292 \((\"chinese\" . gnus-decode-encoded-word-region-by-guess)
7293 mail-decode-encoded-word-region
7294 (\"chinese\" . rfc1843-decode-region))
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