Lines Matching +defs:end +defs:point
57 (fcc . mh-folder-expand-at-point)
68 Each hook function can find the citation between point and mark.
69 And each hook function should leave point and mark around the
243 "Find header field region between point and LIMIT."
244 (and (< (point) (mh-letter-header-end))
245 (< (point) limit)
246 (let ((end (min limit (mh-letter-header-end)))
247 (point (point))
248 data-end data-begin field)
249 (end-of-line)
250 (setq data-end (if (re-search-forward "^[^ \t]" end t)
252 end))
253 (goto-char (1- data-end))
255 (setq data-begin (point-min))
256 (setq data-begin (match-end 0))
258 (setq data-begin (max point data-begin))
259 (goto-char (if (equal point data-end) (1+ data-end) data-end))
264 (list data-begin data-end data-begin data-end))
267 (defun mh-letter-header-end ()
268 "Find the end of the message header.
272 (goto-char (point-min))
273 (cond ((equal mh-mail-header-separator "") (point-min))
276 (t (point-min)))))
327 (goto-char (mh-mail-header-end))
328 (buffer-substring-no-properties (point) (mh-line-end-position))))
399 This command leaves the mark before the letter and point after it."
420 (narrow-to-region (point) (point))
421 (let ((start (point-min)))
426 (goto-char (point-max)) ;Needed for sc-cite-original
428 (goto-char (point-min)) ;Needed for sc-cite-original
459 (narrow-to-region (point) (point))
485 (goto-char (point-min))
488 (> (point-max) (point-min))
495 (if (not (> (point-max) (point-min)))
500 "Perform completion on header field or word preceding point.
513 ((setq func (cdr (assoc (mh-letter-header-field-at-point)
527 (end-of-prev (save-excursion
533 ((> (point) end-of-prev) (self-insert-command arg))
534 ((setq func (cdr (assoc (mh-letter-header-field-at-point)
547 ((eq (cdr (assoc (mh-letter-header-field-at-point)
561 command then moves point to the message body before cycling back
562 to the first field. If point is already past the first line of
566 (let ((header-end (save-excursion
567 (goto-char (mh-mail-header-end))
569 (point))))
570 (if (> (point) header-end)
580 point to the last field from anywhere in the body."
582 (let ((header-end (mh-mail-header-end)))
583 (if (>= (point) header-end)
584 (goto-char header-end)
589 (goto-char (match-end 0))
591 (t (goto-char header-end)
595 "Insert a newline and leave point before it.
598 inserts a newline after point. It differs in that it also inserts
606 (message "Sorry, point seems to be within the line prefix")
622 (goto-char (point-min))
654 Set the mark to point before moving."
665 (let ((eol (point)))
667 (delete-region (point) eol))
719 (let ((to-point (point))
734 (buffer-substring (point-min) (mh-mail-header-end))
736 (buffer-substring (region-beginning) (region-end))))
738 (buffer-substring (region-beginning) (region-end)))
744 (goto-char (point-min))
745 (mh-goto-header-end 1)
746 (point))
747 (point-max)))
751 (buffer-substring (point-min) (point-max)))
753 (buffer-substring (point) (point-max))))))
756 (narrow-to-region to-point to-point)
758 (goto-char (point-max)) ;Needed for sc-cite-original
760 (goto-char (point-min)) ;Needed for sc-cite-original
768 ;; text, so leave the cursor at the end of the yanked text. In
769 ;; either case, leave a mark at the opposite end of the included
770 ;; text to make it easy to jump or delete to the other end of the
773 (goto-char (point-max))
775 (mh-exchange-point-and-mark-preserving-active-mark)))))
797 (goto-char (point-min))
803 (cond ((and (not (get-text-property (point) 'mh-data))
805 (delete-region (1- (point)) (point))
807 ((get-text-property (point) 'mh-data)
808 (delete-region (point)
809 (save-excursion (forward-line) (point)))
815 (buffer-substring-no-properties (point-min) (point-max))))
834 (let ((header-end (mh-mail-header-end)))
835 (cond ((>= (point) header-end) (goto-char (point-min)))
836 ((< (point) (progn
839 (mh-line-end-position) t)
840 (point)))
842 (t (end-of-line)))
843 (cond ((re-search-forward mh-letter-header-field-regexp header-end t)
847 (t (goto-char header-end)
852 "Move to the end of the FIELD in the header.
853 Move to end of entire header if FIELD not found.
858 (mh-header-field-end)
860 ((mh-goto-header-end 0)
863 (defun mh-letter-header-field-at-point ()
864 "Return the header field name at point.
868 (end-of-line)
872 (defun mh-folder-expand-at-point ()
874 (let* ((end (point))
876 (folder (buffer-substring-no-properties beg end))
882 (mh-complete-word folder choices beg end)))
885 (defun mh-complete-word (word choices begin end)
905 (delete-region begin end)
948 (goto-char (point-min))
958 (while (< (point) (point-max))
961 (goto-char (point-min))))) ;leave point like sc-cite-original
967 ;; sentence-end-double-space: nil