Lines Matching +defs:save +defs:point
237 that number. If it is a floating point number, no signature may be
494 (defcustom gnus-save-all-headers t
516 "Headers to keep if `gnus-save-all-headers' is nil.
517 If `gnus-save-all-headers' is non-nil, this variable will be ignored.
520 `gnus-save-all-headers' will be overridden by the `:headers' property
526 (defcustom gnus-default-article-saver 'gnus-summary-save-in-rmail
527 "A function to save articles in your favourite format.
528 The function will be called by way of the `gnus-summary-save-article'
529 command, and friends such as `gnus-summary-save-article-rmail'.
533 * gnus-summary-save-in-rmail (Rmail format)
534 * gnus-summary-save-in-mail (Unix mail format)
535 * gnus-summary-save-in-folder (MH folder)
536 * gnus-summary-save-in-file (article format)
537 * gnus-summary-save-body-in-file (article body)
538 * gnus-summary-save-in-vm (use VM's folder format)
545 The value non-nil means save decoded articles. This is meaningful
546 only with `gnus-summary-save-in-file', `gnus-summary-save-body-in-file',
559 `gnus-save-all-headers' and `gnus-saved-headers' control what
562 :type '(radio (function-item gnus-summary-save-in-rmail)
563 (function-item gnus-summary-save-in-mail)
564 (function-item gnus-summary-save-in-folder)
565 (function-item gnus-summary-save-in-file)
566 (function-item gnus-summary-save-body-in-file)
567 (function-item gnus-summary-save-in-vm)
572 (defcustom gnus-article-save-coding-system
577 "Coding system used to save decoded articles to a file.
583 * gnus-summary-save-article-file
584 * gnus-summary-save-article-body-file
590 * gnus-summary-save-in-file
591 * gnus-summary-save-body-in-file
595 Those commands and functions save just text displayed in the article
612 (defcustom gnus-rmail-save-name 'gnus-plain-save-name
613 "A function generating a file name to save articles in Rmail format.
618 (defcustom gnus-mail-save-name 'gnus-plain-save-name
619 "A function generating a file name to save articles in Unix mail format.
624 (defcustom gnus-folder-save-name 'gnus-folder-save-name
625 "A function generating a file name to save articles in MH folder.
630 (defcustom gnus-file-save-name 'gnus-numeric-save-name
631 "A function generating a file name to save articles in article format.
641 For instance, if you would like to save articles related to Gnus in
649 value is a list of possible files to save in if the match is non-nil.
986 '(("save to file" . gnus-mime-save-part)
987 ("save and strip" . gnus-mime-save-part-and-strip)
1541 (defvar article-goto-body-goes-to-point-min-p nil)
1615 (defvar gnus-save-article-buffer nil)
1631 `(save-excursion
1633 (save-restriction
1635 (inhibit-point-motion-hooks t)
1644 `(save-excursion
1661 (max (1- b) (point-min))
1668 (put-text-property (max (1- b) (point-min))
1683 (put-text-property (max (1- b) (point-min))
1688 (save-excursion
1689 (let ((b (point-min))
1690 (e (point-max)))
1696 (save-excursion
1697 (let ((b (point-min)))
1702 (while (if (get-text-property (point) 'gnus-part)
1703 (setq b (point))
1704 (when (setq b (next-single-property-change (point)
1711 (delete-region b (point)))))
1712 (while (setq b (text-property-any b (point-max) 'article-type type))
1714 b (or (text-property-not-all b (point-max) 'article-type type)
1715 (point-max))))))))
1719 (save-excursion
1720 (let ((b (point-min)))
1721 (while (setq b (text-property-any b (point-max) 'invisible t))
1723 b (or (text-property-not-all b (point-max) 'invisible t)
1724 (point-max)))))))
1728 (text-property-any (point-min) (point-max) 'article-type type))
1749 (inhibit-point-motion-hooks t)
1752 (save-excursion
1774 (save-restriction
1781 (delete-region (point-min) (point)))
1791 (point) (1+ (point)) 'message-rank
1800 (point-min) (point-max) 'message-rank (+ 2 max)))
1803 (add-text-properties (point-min) (+ 5 (point-min))
1805 (delete-region beg (point-max))))))))
1814 (save-excursion
1815 (save-restriction
1818 (inhibit-point-motion-hooks t)
1823 (goto-char (point-min))
1830 (gnus-point-at-bol)
1835 (point-max)))
1930 (goto-char (point-min))
1935 (goto-char (point-min))
1936 (save-restriction
1939 (narrow-to-region (point) (point-max))
1942 (goto-char (point-min))
1947 (goto-char (point-min))
1948 (save-restriction
1951 (narrow-to-region (point) (point-max))
1956 (save-excursion
1957 (goto-char (point-min))
1960 (gnus-point-at-bol)
1965 (point-max)))
1976 (save-excursion
1977 (save-restriction
1981 ((< (setq column (- (gnus-point-at-eol) (point)))
1991 (point))
1992 (gnus-point-at-eol)
2016 (save-excursion
2027 (translate-region (point) (point-max) x)))))
2032 (save-excursion
2037 (save-excursion
2044 (save-excursion
2049 (previous (char-after (- (point) 2))))
2055 (gnus-article-hide-text-type (- (point) 2) (point) 'overstrike)
2056 (put-text-property (point) (1+ (point)) 'face 'bold))
2059 (1- (point)) (1+ (point)) 'overstrike)
2061 (- (point) 2) (1- (point)) 'face 'underline))
2063 (gnus-article-hide-text-type (- (point) 2) (point) 'overstrike)
2065 (point) (1+ (point)) 'face 'underline)))))))))
2075 (save-restriction
2080 (goto-char (point-min))
2083 (setq length (- (point-max) (point-min) 1)))
2087 (goto-char (point-max)))))))
2094 (save-restriction
2097 (goto-char (point-max))))))
2106 (let ((images (smiley-region (point) (point-max))))
2126 (save-restriction
2131 (goto-char (point-max))))))
2139 (goto-char (point-max))
2140 (let ((start (point)))
2142 (gnus-add-text-properties start (point) '(invisible t intangible t))
2148 (gnus-put-text-property start (point) 'gnus-decoration 'header)))))
2153 (save-excursion
2156 (save-restriction
2162 (narrow-to-region (min (1+ (point)) (point-max))
2163 (gnus-point-at-bol))
2164 (let ((goback (point-marker)))
2173 (save-excursion
2184 (save-excursion
2186 (goto-char (point-min))
2189 (goto-char (point-min))
2196 (save-excursion
2198 (goto-char (point-max))
2200 (point)
2205 (point) (gnus-point-at-eol))))
2208 (point))))))
2223 (save-current-buffer
2228 (save-restriction
2233 (goto-char (point-min))
2238 (setq from (point))
2263 (save-current-buffer
2271 (save-restriction
2302 (point-min) (point-max)))
2314 (save-excursion
2316 (let ((inhibit-point-motion-hooks t)
2320 (save-excursion (set-buffer gnus-summary-buffer)
2322 (mail-decode-encoded-word-region (point-min) (point-max)))))
2328 (let ((inhibit-point-motion-hooks t) (case-fold-search t)
2332 (save-excursion (condition-case nil
2337 (save-excursion
2338 (save-restriction
2353 (goto-char (point-max)))
2355 (save-restriction
2356 (narrow-to-region (point) (point-max))
2371 (let ((inhibit-point-motion-hooks t)
2374 (save-excursion (condition-case nil
2380 (goto-char (point-min))
2383 (setq end (point))
2389 (setq start (point))
2399 (let ((inhibit-point-motion-hooks t)
2405 (save-restriction
2408 (goto-char (point-min)))
2411 (replace-match (save-match-data
2421 (goto-char (point-min))
2423 (goto-char (point-min)))
2426 (replace-match (save-match-data
2444 (save-restriction
2445 (let ((inhibit-point-motion-hooks t)
2448 (goto-char (point-min))
2451 (when (save-match-data
2453 (save-excursion
2466 (save-excursion
2487 (point) (point-max) (mm-charset-to-coding-system charset))))))
2494 (save-excursion
2514 (save-restriction
2515 (narrow-to-region (point) (point-max))
2516 (base64-decode-region (point-min) (point-max))
2518 (point-min) (point-max) (mm-charset-to-coding-system charset)))))))
2527 (save-excursion
2529 (rfc1843-decode-region (point-min) (point-max)))))
2534 (save-excursion
2536 (goto-char (point-min))
2549 (save-excursion
2575 (save-window-excursion
2576 (save-restriction
2577 (narrow-to-region (point) (point-max))
2596 (w3-region (point-min) (point-max))
2604 (w3m-region (point-min) (point-max)))
2609 (point-min) (point-max)
2626 (point-min) (point-max)
2635 (let ((inhibit-point-motion-hooks t)
2641 (save-excursion
2642 (save-restriction
2644 (goto-char (point-min))
2660 (save-excursion
2662 (goto-char (point-min))
2673 (point-max))
2685 (save-excursion
2686 (save-restriction
2687 (let ((inhibit-point-motion-hooks t))
2695 (let ((from (save-restriction
2711 (save-excursion
2712 (save-restriction
2713 (let ((inhibit-point-motion-hooks t)
2722 (delete-region (point) (point-max))))
2735 (save-excursion
2739 (start (point))
2740 (end (point-max))
2743 (save-restriction
2754 (save-excursion
2755 (save-restriction
2759 (point-min) (point-max) 'signature))))))
2765 (save-excursion
2774 (save-excursion
2775 (let ((inhibit-point-motion-hooks t)
2786 (goto-char (point-min))
2788 (1- (point))
2789 (point-max)))
2790 (goto-char (point-min)))
2793 "Place point at the start of the body."
2794 (goto-char (point-min))
2798 (article-goto-body-goes-to-point-min-p
2803 (goto-char (point-max))
2809 (save-excursion
2810 (let ((inhibit-point-motion-hooks t)
2828 (save-excursion
2829 (let ((inhibit-point-motion-hooks t)
2838 (save-excursion
2839 (let ((inhibit-point-motion-hooks t)
2855 (save-excursion
2856 (let ((inhibit-point-motion-hooks t)
2864 (let ((inhibit-point-motion-hooks t))
2874 (< (- (point-max) (point)) limit))
2876 (< (count-lines (point) (point-max)) limit))
2885 (narrow-to-region (point) (point-max))
2890 Put point at the beginning of the signature separator."
2891 (let ((cur (point)))
2892 (goto-char (point-max))
2914 (save-excursion
2915 (save-restriction
2933 (let ((pos (text-property-any (point-min) (point-max) 'article-type type)))
2938 (text-property-any (1+ pos) (point-max) 'article-type type)))
2947 (inhibit-point-motion-hooks t))
2950 (point-min) (point-max)
2965 "Move point to the start of the next header.
2993 (inhibit-point-motion-hooks t)
2995 (save-excursion
2996 (save-restriction
2998 (goto-char (point-min))
2999 (while (or (setq date (get-text-property (setq pos (point))
3002 (point) 'original-date))
3005 (narrow-to-region pos (or (text-property-any pos (point-max)
3007 (point-max)))
3008 (goto-char (point-min))
3010 (setq bface (get-text-property (gnus-point-at-bol) 'face)
3011 eface (get-text-property (1- (gnus-point-at-eol)) 'face)))
3012 (goto-char (point-min))
3017 (delete-region (gnus-point-at-bol)
3020 (point)))
3021 (delete-region (gnus-point-at-bol)
3025 (point)))
3026 (setq pos (point))))
3042 (put-text-property (point-min) (1- (point-max)) 'original-date date)
3043 (goto-char (point-max))
3186 (save-match-data
3188 (save-excursion
3194 (let ((mark (point-marker)))
3195 (goto-char (point-min))
3231 (defmacro gnus-article-save-original-date (&rest forms)
3235 (goto-char (point-min))
3244 (goto-char (point-max))
3246 (put-text-property (point-min) (point) 'original-date date)
3248 (goto-char (point-max))
3250 (put-text-property (point-min) (point) 'original-date date)))
3255 ;; (save-excursion
3257 ;; (gnus-article-unhide-text (point-min) (point-max)))))
3262 (save-excursion
3263 (save-restriction
3266 (goto-char (point-min))
3274 (save-excursion
3286 (setq beg (point))
3330 (defun gnus-article-save (save-buffer file &optional num)
3333 (not gnus-save-all-headers))
3339 (gnus-article-buffer save-buffer))
3340 (save-excursion
3341 (set-buffer save-buffer)
3343 (save-window-excursion
3346 ;; !!! Magic! The saving functions all save
3347 ;; `gnus-save-article-buffer' (or so they think), but we
3348 ;; bind that variable to our save-buffer.
3350 (let* ((gnus-save-article-buffer save-buffer)
3362 (defun gnus-read-save-file-name (prompt &optional filename
3413 gnus-article-save-directory))
3417 (t gnus-article-save-directory))))
3431 gnus-article-save-directory
3433 gnus-article-save-directory)))
3455 (nnheader-concat gnus-article-save-directory
3461 (gnus-group-get-parameter group 'save-article-group)))
3463 (defun gnus-summary-save-in-rmail (&optional filename)
3466 Directory to save to is default to `gnus-article-save-directory'."
3467 (setq filename (gnus-read-save-file-name
3469 gnus-rmail-save-name gnus-newsgroup-name
3471 (gnus-eval-in-buffer-window gnus-save-article-buffer
3472 (save-excursion
3473 (save-restriction
3478 (defun gnus-summary-save-in-mail (&optional filename)
3481 Directory to save to is default to `gnus-article-save-directory'."
3482 (setq filename (gnus-read-save-file-name
3484 gnus-mail-save-name gnus-newsgroup-name
3486 (gnus-eval-in-buffer-window gnus-save-article-buffer
3487 (save-excursion
3488 (save-restriction
3497 (put 'gnus-summary-save-in-file :decode t)
3498 (put 'gnus-summary-save-in-file :headers 'gnus-saved-headers)
3499 (defun gnus-summary-save-in-file (&optional filename overwrite)
3502 Directory to save to is default to `gnus-article-save-directory'."
3503 (setq filename (gnus-read-save-file-name
3505 gnus-file-save-name gnus-newsgroup-name
3507 (gnus-eval-in-buffer-window gnus-save-article-buffer
3508 (save-excursion
3509 (save-restriction
3518 (put 'gnus-summary-write-to-file :function 'gnus-summary-save-in-file)
3523 The directory to save in defaults to `gnus-article-save-directory'."
3524 (setq filename (gnus-read-save-file-name
3526 gnus-file-save-name gnus-newsgroup-name
3528 (gnus-summary-save-in-file filename t))
3530 (put 'gnus-summary-save-body-in-file :decode t)
3531 (defun gnus-summary-save-body-in-file (&optional filename overwrite)
3534 The directory to save in defaults to `gnus-article-save-directory'."
3535 (setq filename (gnus-read-save-file-name
3537 gnus-file-save-name gnus-newsgroup-name
3539 (gnus-eval-in-buffer-window gnus-save-article-buffer
3540 (save-excursion
3541 (save-restriction
3544 (narrow-to-region (point) (point-max)))
3553 :function 'gnus-summary-save-body-in-file)
3557 The directory to save in defaults to `gnus-article-save-directory'."
3558 (setq filename (gnus-read-save-file-name
3560 gnus-file-save-name gnus-newsgroup-name
3562 (gnus-summary-save-body-in-file filename t))
3564 (defun gnus-summary-save-in-pipe (&optional command)
3586 (save-restriction
3588 (shell-command-on-region (point-min) (point-max) command nil)))
3604 (gnus-summary-save-in-pipe command))
3614 (defun gnus-Numeric-save-name (newsgroup headers &optional last-file)
3620 (concat (if (gnus-use-long-file-name 'not-save)
3624 gnus-article-save-directory)))
3632 (defun gnus-numeric-save-name (newsgroup headers &optional last-file)
3638 (concat (if (gnus-use-long-file-name 'not-save)
3642 gnus-article-save-directory)))
3650 (defun gnus-plain-save-name (newsgroup headers &optional last-file)
3656 (if (gnus-use-long-file-name 'not-save)
3661 gnus-article-save-directory)))
3663 (defun gnus-sender-save-name (newsgroup headers &optional last-file)
3670 gnus-article-save-directory)))
3686 (let ((inhibit-point-motion-hooks t)
3694 (delete-region (point-min) (point-max))
3720 (save-restriction
3722 (goto-char (point-max))
3724 (setq bface (get-text-property (gnus-point-at-bol) 'face)
3725 eface (get-text-property (1- (gnus-point-at-eol)) 'face))
3729 (goto-char (point-max)))
3730 (narrow-to-region (point) (point))
3732 (goto-char (point-min))
3739 (goto-char (point-min))
3743 (put-text-property (match-end 0) (point-max)
3766 (save-excursion
3865 ["Fetch Message-ID at point" gnus-article-refer-article t]
3866 ["Mail to address at point" gnus-article-mail t]
3901 \\[gnus-article-refer-article]\t Go to the article referred to by an article id near point
3903 \\[gnus-article-mail]\t Send a reply to the address near point
3960 (save-excursion
3967 (save-excursion
3983 (save-excursion
3998 (save-excursion
4010 (save-excursion
4012 (goto-char (point-min))
4014 (point-min)
4018 (point)))))
4025 (save-excursion
4035 (save-excursion
4046 (save-excursion
4065 (save-excursion
4086 (save-excursion
4112 (save-excursion
4118 (goto-char (point-min))
4127 (set-window-point (get-buffer-window (current-buffer)) (point))
4182 (gnus-mime-save-part "o" "Save...")
4183 (gnus-mime-save-part-and-strip "\C-o" "Save and Strip")
4237 (save-window-excursion
4240 (goto-char (posn-point pos))
4247 (save-current-buffer
4256 (goto-char (point-min))
4257 (or (search-forward "\n\n") (goto-char (point-max)))
4259 (delete-region (point) (point-max))
4262 (defun gnus-mime-save-part-and-strip ()
4263 "Save the MIME part under point then replace it with an external body."
4273 (let* ((data (get-text-property (point) 'gnus-data))
4276 (setq file (and data (mm-save-part data)))
4333 "Delete the MIME part under point.
4344 (let* ((data (get-text-property (point) 'gnus-data))
4355 (error "No MIME part under point"))
4376 ;; `gnus-mime-save-part-and-strip') isn't necessary?
4412 ;; Not in `gnus-mime-save-part-and-strip':
4417 (defun gnus-mime-save-part ()
4418 "Save the MIME part under point."
4421 (let ((data (get-text-property (point) 'gnus-data)))
4423 (mm-save-part data))))
4426 "Pipe the MIME part under point to a process."
4429 (let ((data (get-text-property (point) 'gnus-data)))
4434 "Interactively choose a viewing method for the MIME part under point."
4437 (let ((data (get-text-property (point) 'gnus-data)))
4446 (let* ((handle (get-text-property (point) 'gnus-data))
4470 (let ((handle (get-text-property (point) 'gnus-data)))
4511 (point-min) (point-max)
4520 "Put the MIME part under point into a new buffer.
4525 (let* ((handle (or handle (get-text-property (point) 'gnus-data)))
4545 (goto-char (point-min)))))
4548 "Print the MIME part under point."
4551 (let* ((handle (or handle (get-text-property (point) 'gnus-data)))
4559 (mm-save-part-to-file handle file)
4573 "Insert the MIME part under point into the current buffer."
4576 (let* ((handle (or handle (get-text-property (point) 'gnus-data)))
4578 (b (point))
4626 "Insert the MIME part under point into the current buffer using the
4630 (let ((handle (or handle (get-text-property (point) 'gnus-data)))
4631 (fun (get-text-property (point) 'gnus-callback))
4650 (get-text-property (point) 'gnus-data))))
4651 (setq parts (get-text-property (point) 'gnus-part))
4662 "View the MIME part under point with an external viewer."
4665 (let* ((handle (or handle (get-text-property (point) 'gnus-data)))
4684 "View the MIME part under point with an internal viewer.
4688 (let* ((handle (or handle (get-text-property (point) 'gnus-data)))
4705 "Do something with the MIME attachment at \(point\)."
4718 ;; `gnus-article-goto-part' may really move the point.
4722 (save-window-excursion
4736 (defun gnus-article-save-part (n)
4739 (gnus-article-part-wrapper n 'mm-save-part))
4790 (save-current-buffer
4810 (let ((id (get-text-property (point) 'gnus-part))
4811 (point (point))
4819 (save-excursion
4823 (save-excursion
4826 (beg (point)))
4829 (goto-char point)
4834 (save-restriction
4835 (narrow-to-region (point)
4836 (if (eobp) (point) (1+ (point))))
4840 (goto-char (point-min))
4842 (narrow-to-region (point) (point-max))
4849 (goto-char point)
4853 (goto-char point))))
4857 (gnus-goto-char (text-property-any (point-min) (point-max) 'gnus-part n)))
4885 (setq b (point))
4895 (1- (point))
4896 (point)))
4930 (save-excursion
4931 (save-selected-window
4933 (point (point)))
4937 ;; may change the point. So we set the window point.
4938 (set-window-point window point)))
4966 (delete-region (point) (point-max)))
4969 (save-restriction
4971 (narrow-to-region (point) (point-max))
4976 (save-excursion
4977 (save-restriction
4979 (narrow-to-region (point-min) (point))
4980 (gnus-article-save-original-date
4983 (goto-char (point-max))
5094 ((or (bobp) (eq (char-before (1- (point))) ?\n)) 0)
5103 (setq beg (point))
5108 (setq beg (point)))
5111 (save-excursion (condition-case ()
5116 (goto-char (point-max)))
5120 (setq beg (point)))
5133 (goto-char (point-max))))
5135 (save-excursion
5136 (save-restriction
5137 (narrow-to-region beg (point))
5160 (point) (progn (insert "\n") (point)) 'gnus-undeletable t))
5165 (point (point))
5167 (save-window-excursion
5168 (save-restriction
5175 (point))))
5176 (delete-region (point-min) (point-max))
5178 (setq begend (list (point-marker)))
5187 (setq from (point))
5190 (point))
5203 (widget-convert-button 'link from (point)
5209 (setq from (point))
5214 (point))
5227 (widget-convert-button 'link from (point)
5237 (save-excursion (set-buffer gnus-summary-buffer)
5241 (save-excursion
5242 (save-restriction
5243 (narrow-to-region (car begend) (point-max))
5248 (goto-char (point-max))
5249 (setcdr begend (point-marker)))))
5251 (goto-char point))))
5288 (save-excursion
5338 (not (save-excursion (set-buffer gnus-summary-buffer)
5347 If `gnus-article-save-coding-system' is non-nil, it is used to encode
5353 (coding gnus-article-save-coding-system)
5364 (goto-char (point-min))
5368 (goto-char (point-max))
5371 ;; save it to file.
5372 (goto-char (point-max))
5379 (save-window-excursion
5380 (select-safe-coding-system (point-min) (point-max)
5385 (goto-char (point-min))
5391 (write-region (point-min) (point-max) file-name nil 'no-message)
5393 (write-region (point-min) (point-max) file-name))))
5401 (save-excursion
5403 (goto-char (point-min))
5416 (save-excursion
5417 (goto-char (point-min))
5422 (point)
5425 (point)))
5427 (> (point-min) (save-restriction (widen) (point-min))))
5428 (save-excursion
5429 (goto-char (point-min))
5432 (< (point-max) (save-restriction (widen) (point-max))))
5433 (save-excursion
5434 (goto-char (point-max))
5443 (goto-char (point-min))
5474 (if (save-excursion
5477 (>= (1+ (point)) (point-max)))) ;Allow for trailing newline.
5480 (save-excursion
5481 (save-restriction
5496 "Move point to the beginning of the window.
5497 In Emacs, the point is placed at the line number which `scroll-margin'
5518 (max 0 (- (count-lines (window-start) (point-max))
5525 (goto-char (point-max))))
5535 (not (save-restriction (widen) (bobp)))) ;Real beginning-of-buffer?
5538 (goto-char (point-max))
5545 (goto-char (point-min))))
5555 (save-excursion
5556 (let ((inhibit-point-motion-hooks t))
5561 (gnus-faces-at (point))
5567 "Read article specified by message-id around point."
5569 (save-excursion
5570 (re-search-backward "[ \t]\\|^" (gnus-point-at-bol) t)
5571 (re-search-forward "<?news:<?\\|<" (gnus-point-at-eol) t)
5572 (if (re-search-forward "[^@ ]+@[^ \t>]+" (gnus-point-at-eol) t)
5576 (error "No references around point"))))
5586 (gnus-summary-position-point)))
5604 (set-window-point (get-buffer-window (current-buffer)) (point))))
5633 keys new-sum-point)
5634 (save-excursion
5648 (save-window-excursion
5659 (setq new-sum-point (point)))
5665 (opoint (point))
5681 (setq new-sum-point (point)
5693 (set-window-point (get-buffer-window (current-buffer))
5694 (point)))
5696 new-sum-point)
5697 (set-window-point win new-sum-point)
5708 (save-excursion
5729 (save-excursion
5755 (setq contents (buffer-substring (point) (mark t)))
5774 (setq contents (buffer-substring (point) (mark t)))
5813 (save-excursion
5819 ;; `nntp-server-buffer' - so we'll save some time by not having to
5834 (save-excursion
5871 (eq (cdr (save-excursion
5879 (save-excursion
5957 (save-excursion
5982 (set-window-point (gnus-get-buffer-window (current-buffer) t)
5983 (point))
6102 (let ((message-auto-save-directory
6119 (p (point))
6129 (save-excursion
6138 (gnus-set-text-properties (point-min) (point-max) nil)
6143 (set-window-point (get-buffer-window buf) (point)))
6152 (p (point))
6161 ;; Tippy-toe some to make sure that point remains where it was.
6162 (save-current-buffer
6171 (save-excursion
6172 (goto-char (point-min))
6428 (save-window-excursion
6757 (let* ((pos (posn-point (event-start event)))
6765 "Check text at point for a callback function.
6766 If the text at point has a `gnus-callback' property,
6769 (let ((data (get-text-property (point) 'gnus-data))
6770 (fun (get-text-property (point) 'gnus-callback)))
6800 (save-excursion
6802 (save-restriction
6806 (inhibit-point-motion-hooks t)
6810 (goto-char (point-min))
6821 (setq from (point))
6825 (not (memq (point) hpoints)))
6826 (push (point) hpoints)
6827 (gnus-put-text-property from (point) 'face header-face))
6829 (not (memq (setq from (point)) fpoints)))
6833 (goto-char (point-max)))
6834 (gnus-put-text-property from (point) 'face field-face))))))))
6841 (save-excursion
6844 (inhibit-point-motion-hooks t))
6845 (save-restriction
6848 (gnus-overlay-put (gnus-make-overlay (point-min) (point-max))
6866 (save-excursion
6869 (inhibit-point-motion-hooks t)
6876 (if (or (< marker (point-min)) (>= marker (point-max)))
6887 (setq beg (point))
6910 (save-excursion
6912 (save-restriction
6914 (inhibit-point-motion-hooks t)
6923 (goto-char (point-min))
6929 (point-max)))
6964 (save-excursion
6969 (save-excursion
6972 (inhibit-point-motion-hooks t))
6973 (if (text-property-any end (point-max) 'article-type 'signature)
6977 'article-type 'signature end (point-max)
6982 'article-type nil end (point-max)
7001 (save-excursion
7004 (inhibit-point-motion-hooks t)
7026 (goto-char (point-min))
7055 (save-excursion
7120 (save-excursion
7218 (let ((b (point))
7229 (1- (point))
7230 (point))
7251 (let ((b (point))
7261 (1- (point))
7262 (point))
7315 (save-restriction
7318 (funcall (pop xlist) (point-min) (point-max))))))
7325 (let ((length (- (point-max) (point-min)))
7327 (article-goto-body-goes-to-point-min-p t)
7340 (save-excursion
7349 (save-restriction
7413 (save-excursion
7418 references point)
7429 (and (save-restriction
7431 (goto-char (point-min))
7436 (delete-region (point-min) (point-max))
7442 (goto-char (point-max))
7443 (setq point (point))
7446 (narrow-to-region point (point-max))
7452 (goto-char (point-min))
7460 (save-excursion
7506 point (inhibit-read-only t))
7509 (save-restriction
7510 (narrow-to-region (point) (point))
7518 (setq point (point))
7520 (goto-char (point-max)))
7522 (delete-region (point) (cdr region))
7525 (goto-char point)))
7533 (not (get-text-property (point) 'gnus-mime-details)))
7535 (get-text-property (point) 'gnus-line-format))
7538 (while (eq (get-text-property (point) 'gnus-line-format)
7542 (save-restriction
7543 (narrow-to-region (point) (point))
7545 (delete-region (point)
7547 (point) (point-max)
7550 (point-max))))
7560 (goto-char (point-min)))
7564 (save-excursion
7594 (setq b (point))
7606 (1- (point))
7607 (point)))
7624 (save-restriction
7625 (narrow-to-region (point) (point))
7637 (cons (set-marker (make-marker) (point-min))
7638 (set-marker (make-marker) (point-max))))))